Excel VBA質問箱 IV

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

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


41119 / 76736 ←次へ | 前へ→

【40699】Re:VBA基本
回答  へっぽこ  - 06/7/20(木) 16:46 -

引用なし
パスワード
   こんにちは。
こんな感じでしょうか?

Sub ES08で始まるファイルを開く()
  Dim ファイル名 As String
  ファイル名 = Dir("C:\売上\DB\ES08*.xls")
  Do While ファイル名 <> ""
    Workbooks.Open "C:\売上\DB\" & ファイル名
    ファイル名 = Dir()
  Loop
End Sub

ちなみにマクロを書いたブックと同じフォルダから探したいのであれば
下記のようになります。

Sub ES08で始まるファイルを開く2()
  Dim ファイル名 As String
  'マクロのブックのパス(ThisWorkbook.Path)から探す
  ファイル名 = Dir(ThisWorkbook.Path & "\ES08*.xls")
  Do While ファイル名 <> ""
    Workbooks.Open ThisWorkbook.Path & "\" & ファイル名
    ファイル名 = Dir()
  Loop
End Sub

両方とも自分自身(マクロを書いたブック自身)がES08で始まるケースは
考えていません。
0 hits

【40697】VBA基本 トホホ 06/7/20(木) 16:28 質問
【40699】Re:VBA基本 へっぽこ 06/7/20(木) 16:46 回答
【40700】Re:VBA基本 へっぽこ 06/7/20(木) 16:47 発言
【40712】Re:VBA基本 トホホ 06/7/21(金) 9:19 お礼
【40723】すみません トホホ 06/7/21(金) 13:56 質問
【40724】Re:すみません Jaka 06/7/21(金) 14:06 発言
【40726】Re:すみません Kein 06/7/21(金) 14:45 回答
【40781】Re:すみません トホホ 06/7/24(月) 9:35 お礼
【40702】Re:VBA基本 Kein 06/7/20(木) 17:26 回答
【40711】Re:VBA基本 トホホ 06/7/21(金) 9:19 お礼

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