Excel VBA質問箱 IV

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

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


53348 / 76736 ←次へ | 前へ→

【28204】Re:ファイルの呼び出し
発言  りん E-MAIL  - 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 質問
【27057】Re:ファイルの呼び出し IROC 05/7/27(水) 12:53 回答
【27061】Re:ファイルの呼び出し はじめ 05/7/27(水) 15:15 発言
【27062】Re:ファイルの呼び出し IROC 05/7/27(水) 15:30 回答
【27065】Re:ファイルの呼び出し はじめ 05/7/27(水) 16:38 お礼
【28201】Re:ファイルの呼び出し はじめ 05/8/30(火) 19:31 質問
【28203】Re:ファイルの呼び出し ponpon 05/8/30(火) 20:16 発言
【28204】Re:ファイルの呼び出し りん 05/8/30(火) 21:07 発言
【28214】Re:ファイルの呼び出し はじめ 05/8/31(水) 11:09 お礼
【28303】Re:ファイルの呼び出し はじめ 05/9/2(金) 12:31 質問
【28358】Re:ファイルの呼び出し ponpon 05/9/3(土) 11:19 発言
【28388】Re:ファイルの呼び出し はじめ 05/9/5(月) 10:24 お礼
【28394】Re:ファイルの呼び出し りん 05/9/5(月) 13:55 発言

53348 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free