Excel VBA 質問スレ Part52

[617 デフォルトの名無しさん 2018/04/08(日) 00:48:16.79 ID:GhjqeU3J]

質問です。

Dim Wb2 As Workbook

buf = Dir(ThisPass & "\" & strfirstfilename)
Do While Len(buf) > 0
If LCase(buf) Like "*.xls" Then

buf2 = Left(buf, InStrRev(buf, ".") - 1)
End If
buf = Dir()
Loop

Set Wb2 = Workbooks(strfirstfilename)　　←”インデックスが有効範囲にありません”
というエラーが発生します。

strfirstfilenameには”AAA_original-コピー.xls”が入っており、ここまではOKです。

なぜインデックスが有効範囲にないのか・・・。
どなたか教えてください。
よろしくお願いします。