Excel VBA質問箱 IV

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

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


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

41117 / 76732

←次へ　｜　前へ→


	【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

1 hits

▼

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

≪