こんばんは！よつ葉です。
今回は、ある特定のファイルを開いているかチェックするマクロです。
マクロの中で、ファイルを開く操作を組み込むことが多いと思いますが、既にそのファイルを開いている場合、普通に Workbooks.open で開こうとするととまってしまうので、以下のようなファイルを開いているかをチェックするコードを入れることでスマートにプログラミングできるようになります。
Sub mainflow()
If wbcheck("wb.xlsx") <> 1 Then
'ここでファイル名を指定する
Workbooks.Open Filename:="c:samplewb.xlsx"
End If
End Sub
Function wbcheck(ByVal strWbname As String)
'このFunctionに"wb.xlsxが引き継がれる
Dim wb As Workbook
For Each wb In Workbooks
'今開いているファイル数分繰り返す
If wb.Name = strWbname Then
wbcheck = 1
Exit For
End If
Next wb
'開いているファイルのファイル名が指定したファイル名(wb.xlsx)と
'同じであれば、wbcheckに1を入れ、mainflowに返す
End Function
ぜひ使ってみてください♪
お付き合い頂きありがとうございました。
以上、よつ葉でした。
