Excel VBA質問箱 IV

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

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


41121 / 76736 ←次へ | 前へ→

【40697】VBA基本
質問  トホホ  - 06/7/20(木) 16:28 -

引用なし
パスワード
   ある文字で始まる複数のファイルを開きたいのですが、一覧の取得の方法も怪しいレベルの私です。すみませんm(__)m

D:\売上\DBにある30個以上のファイルの中からファイル名がES08で始まるものだけを開きたいのですが、記述がわかりません。
一応わからないなりにも書いてみました。動かなかったのですが(ToT)/~~~

開きたいファイルが保存されているフォルダ→D:\売上\DB
開きたいファイル名の先頭文字→ES08
マクロの保存ファイル→マクロ.xls
マクロファイルの保存先→D:\売上\DB


Sub ES08で始まるファイルを開く()
  Dim buf As String, i As Long
  buf = Dir("D:\売上\DB\*.*")
  Do While buf <> ""
    i = i + 1
    Worksheets("Sheet1").Cells(i, 1) = buf
    buf = Dir()
  Loop
  Dim OpenFileName As String
  Application.GetOpenFilename ("マクロ,*.xls")
  If OpenFileName= Like "ES08*.xls" Then
  Workbooks.Open OpenFileName
  End If
End Sub
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 お礼

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