excelVBAインデックスが有効範囲にありません

質問

excel2000を利用しています。

like演算子についてアドバイスお願いいたします。

「vw201109241638[1].xls」というファイルがあります。

こういったexcelのファイル名が、ころころと名前を変えて現れるのですが、ファイル名が流動的なために、VBAでファイル名を指定してアクティブブックの切り替え等が出来ません。

そこで、下記のように、like演算子を用いてファイルの切り替え等を行おうとした場合、

「実行時エラー'9'： インデックスが有効範囲にありません。」と怒られてしまいます。

どういった修正をすればいいでしょうか？

Sub keiryou_select()

Workbooks("vW20*.xls").Sheets(1).Activate

End Sub

回答No.2

keithin · ベストアンサー

Like演算子を使ってみると，こんな具合になります。

sub macro1()
　dim w as workbook
　for each w in workbooks
　if strconv(w.name,vblowercase) like "vw20*.xls" then
　　w.worksheets(1).activate
　　exit sub
　end if
　next
　msgbox "not found"
end sub

＃補足
like演算子はアルファベットの大文字と小文字を区別するので，念のためstrconvを使います。

お礼

回答ありがとうございます。

私の説明不足な依頼内容に対して +α して回答いただけてとても助かります。

ありがとうございました。

回答No.3

mitarashi

既にブックが開いているなら、こういう事だと思います。
条件を二つ満足するモノがある事は無いのか等、当方には詳細は分かりませんのでアレンジなさってください。
ご参考まで。

Sub test()
Dim wbk As Workbook

For Each wbk In Workbooks
If wbk.Name Like "vw20*" Then
wbk.Activate
End If
Next wbk
End Sub

お礼

回答ありがとうございます。

まさしく注文どおりの正確な回答でした。

回答No.1

notnot

＞Workbooks("vW20*.xls").Sheets(1).Activate

Like演算子とか使われてませんけど。Like演算子を使わなくても、どこでも "*" が機能すると思ったら大間違いです。"vW20*.xls" という名前のファイルがないので、そのSheetsのサイズも０で、それを(1)で参照しているから、「インデックスが有効範囲にありません。」ですね。

そういうことをしたいのなら、こんな感じで。

Dim FSO As Object, File As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File In FSO.GetFolder(".").Files
If <File.Nameが条件を満たす> Then
<処理>
End If
Next

お礼

回答ありがとうございます。

ＦＳＯを使ってみたいのですが、まだ使いこなせていません。

勉強して、お教えいただいたコードを是非活用させていただきたいと思います。