【VBA】特定名のブックを全て開く

質問

デスクトップに「資料1」、「資料2」、「資料3」、、、
と言った具合に、毎回任意の数ブックが作成されます。
ブックの数だけブックを開くコードを書きたいのですが、
「最終連番」を取得する方法が分かりません。

下記は、ブックが10有る場合ですが、
「最終連番迄のブックを開く」様にするにはどの様にすれば良いでしょうか。

ご教示宜しくお願いします。

Sub 特定のブックを全て開く()
Dim n As Integer
For n = 1 To 10
If Dir("C:\Users\fmv\Desktop\資料" & n & ".xlsx") <> "" Then
Workbooks.Open "C:\Users\fmv\Desktop\資料" & n & ".xlsx"
Else
MsgBox "ファイルが存在しません。", vbExclamation
End If
Next n
End Sub

回答No.2

SI299792 · ベストアンサー

全て開くのですか。10も開いたらいっぱいになって大変ですが。

Option Explicit
'
Sub Macro1()
　　Dim FileName As String
'
　　ChDrive "C:"
　　ChDir "C:\Users\fmv\Desktop"
　　FileName = Dir("資料*.xlsx")
'
　　If FileName = "" Then
　　　　MsgBox "ファイルが存在しません。", vbExclamation
　　End If
'
　　While FileName > ""
　　　　Workbooks.Open FileName
　　　　FileName = Dir
　　Wend
End Sub

お礼

有難うございました。
資料ナンバーを指定するよりも効率的でした。
問題となる点をもう一度検討し、別のパターンも研究してみます。

回答No.3

kon555

正当な回答は既についていますので邪道にて。

『For n = 1 To 10』
を
『For n = 1 To 9999』に

『MsgBox "ファイルが存在しません。", vbExclamation』
を
『Exit For』
と変更することで実務的には対応可能です。連番限定ですけど。

　もしも連番とは限らないなら、Elseでの動作を特に指定せず延々最後まで処理させるという手もありますね。

回答No.1

bardfish

Bookを開くコードを書く前に、特定フォルダ内の*.xlsxファイルの一覧を配列に取り込むコードを書けばいいだけじゃ・・・

最近はvb.netでプログラムをしているのでExcel VBAがものすごく面倒くさく感じるのでできればExcelでプログラムは書きたくないです(笑)

vb.netだと特定フォルダ内のファイルを取得するコードは1行で済みます。
https://dobon.net/vb/dotnet/file/getfiles.html
こちらのページの「Dim files As String() = System.IO.Directory.GetFiles("C:\test", "*", System.IO.SearchOption.AllDirectories)」という部分です。
あとは、配列の要素数(この場合は見つかったファイル数)を知りたいときは「UBound(files)」で求められます。

「excel vba ファイル一覧 取得」をキーワードにしてネットを検索すればサンプルコード付きで解説しているページがヒットすると思いますよ。