人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelのVBAの具体的なソースを書いて下さい。
ExcelのVBAで、あるファイルが開いていなかったらメッセージボックスを出すようにしたいです。「●●.xlsを開いていなかったら、◆◆というメッセージボックスを出す」場合の、具体的なソースを書いて下さい。
具体的なソースを書いていただけない場合は、回答しないでください。

●質問者: kunio-n
●カテゴリ:コンピュータ
✍キーワード:Excel VBA xls ソース ファイル
○ 状態 :終了
└ 回答数 : 1/7件

▽最新の回答へ

1 ● nitscape
●40ポイント

http://www.google.co.jp/

Google

こんな感じでしょうか?


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


検索するファイル名はフルパスで指定してください。

◎質問者からの返答

ありがとうございました。

.FullName を .Name にすれば、sssはファイル名だけでいいですね。バッチリです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ