注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
３．ブック・シートの制御 ３ー１ブックをチェックしオープン又はアクティブ化 Const fil2 As String = ... ３．ブック・シートの制御 ３ー１ブックをチェックしオープン又はアクティブ化 Const fil2 As String = "b:\VBA雑\小文字.xls" Const fil2a As String = "小文字.xls" Sub 例31() fila = 0 For Each file_name In Windows If file_name.Caption = fil2a Then Windows(fil2a).Activate fila = 1 End If Next If fila = 0 Then Workbooks.Open Filename:=fil2 End If End Sub ・このプログラムでは定数を使用しファイル名を入れているが、システムに合わせ変更する。 ・Ｆｏｒｅ ＥａｃｈでＥｘｃｅｌでオープンされているウインドウを調べ
2009/12/15 リンク