ExcelのVBAで、あるファイルが開いていなかったらメッセージボックスを出すようにしたいです。「●●.xlsを開いていなかったら、◆◆というメッセージボックスを出す」場合の、具体的なソースを書いて下さい。
具体的なソースを書いていただけない場合は、回答しないでください。
No.1
526
0
40pt
こんな感じでしょうか？
Sub Test()
b = False
sss = ”c:￥●●.xls”
n = Application.Workbooks.Count
For i = 1 To n
If Application.Workbooks.Item(i).FullName = sss Then
bOpen = True
i = n
End If
Next
If bOpen = False Then MsgBox ”◆◆”
end sub
検索するファイル名はフルパスで指定してください。
2
3
3
Hyla
NetVista
sukkyxp
ku__ra__ge
kurozo
ありがとうございました。
.FullName を .Name にすれば、sssはファイル名だけでいいですね。バッチリです。