ExcelのVBAの具体的なソースを書いて下さい。

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/09/14 23:26:34
  • 終了:--

回答(7件)

id:nitscape No.1

nitscape回答回数526ベストアンサー獲得回数02005/09/14 23:37:47

ポイント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


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

id:kunio-n

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

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

2005/09/15 10:33:19

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 Hyla 20 15 0 2005-09-14 23:56:48
2 NetVista 843 747 0 2005-09-14 23:50:18
3 sukkyxp 43 38 0 2005-09-14 23:51:08
4 NetVista 843 747 0 2005-09-14 23:54:26
5 ku__ra__ge 118 75 40 2005-09-15 00:29:47
6 kurozo 20 18 0 2005-09-15 09:36:47

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません