- 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です。
なぜインデックスが有効範囲にないのか・・・。
どなたか教えてください。
よろしくお願いします。
|
- Excel VBA 質問スレ Part52
621 ：デフォルトの名無しさん[]：2018/04/08(日) 11:56:26.77 ID:GhjqeU3J - >>618
開いてなかったですね・・・。
ありがとうございます
|
- Excel VBA 質問スレ Part52
622 ：デフォルトの名無しさん[]：2018/04/08(日) 11:57:47.06 ID:GhjqeU3J - >>619
pathですね。お恥ずかしい・・・。
ありがとうございました。
|
- Excel VBA 質問スレ Part52
623 ：デフォルトの名無しさん[]：2018/04/08(日) 11:59:21.51 ID:GhjqeU3J - >>620
このプログラムの直後に
Workbooks.Open (ThisPath & "\" & strfirstfilename)
があったので、それをsetの前に持ってきて成功しました。
ありがとうございました。
|