Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53344 / 76732

←次へ　｜　前へ→


	【28204】Re:ファイルの呼び出し

りん

- 05/8/30(火) 21:07 -


	引用なし

	パスワード

はじめさん、こんばんわ。
ponponさんの補足ですが、

>　　myFile = TextBox1.Text & "-" & TextBox2.Text & "*"
>　　Filename = myPath & folder & "\" & myFile

　ワイルドカード入りのファイル名ではOpenメソッドはエラーになりました（XL2000）。

>　　if dir filename <>""then
>　　　　Workbooks.Open Filename
>　　Else
>　　　　MsgBox "見つかりません"
>　　End If
>
>End Sub

Dir関数の使い方をちょっといじって。

　　Ifile = Dir(Filename) '一つ目のチェック
　　If Ifile = "" Then
　　　 MsgBox "見つかりません"
　　Else
　　　Do
　　　　 Workbooks.Open myPath & folder & "\" & Ifile
　　　　 Ifile = Dir '同じ条件でチェック
　　　Loop While Ifile <> ""　'無くなるまで繰り返す
　　End If

こんな感じです。

0 hits

▼

【27056】ファイルの呼び出し はじめ 05/7/27(水) 12:48