エクセルVBA 実行時エラー‘13’型が一致しまん

質問

VBAは初級レベルです。説明が分かりづらかったらすみません。

Windows7／Excel2002を使っています。
エクセルVBAで、変数MMMと変数DDに処理する日付を入れたいのですが、
実行時エラーになってしまい、うまく変数が設定できません。

例えば、31MAR.xls というエクセルファイルがあります。
（ファイルは、デイリーベースで存在します。）
このファイル名の月と日にちを変数に入れます。
DD ＝ 日にち　（例えば、31日なら“31”）
MMM ＝ アルファベット3文字　（3月なら“MAR”）

そして、入力する為のワークシートを
Set NYURYOKU = Workbooks(DD & MMM & ".xls").Worksheets("入力")
としたのですが、
『実行時エラー‘9’インデックスが有効範囲にありません。』
となってしまいます。

このとき、
DDの値は、0:
MMMの値は、00:
になっています。

－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim HIDUKE As Date　

HIDUKE = Left(ThisWorkbook.Name, 5)
MMM = Mid(HIDUKE, 3, 3)
DD = Left(HIDUKE, 2)
Set NYURYOKU = Workbooks(DD & MMM & ".xls").Worksheets("入力")

－－－－－－－－－－－－－－－－－－－－－－－－－－－

変数宣言で、Dim HIDUKE As Date　にすると、
HIDUKE = Left(ThisWorkbook.Name, 5) の所で『実行時エラー‘13’型が一致しません。』
となってしまい、

試しに　Dim HIDUKE As String　にすると、
MMM = Mid(HIDUKE, 3, 3) の所で『実行時エラー‘13’型が一致しません。』
となってしまいます。

変数宣言をしないと、
Set NYURYOKU = Workbooks(DD & MMM & ".xls").Worksheets("入力")の所で
『実行時エラー‘9’インデックスが有効範囲にありません。』
となってしまいます。

どなたか回避策を教えてください。
どうぞよろしくお願いします。

回答No.1

pringlez · ベストアンサー

>試しに　Dim HIDUKE As String　にすると、
>MMM = Mid(HIDUKE, 3, 3) の所で『実行時エラー‘13’型が一致しません。』
>となってしまいます。

ファイル名の文字列がDate型のわけはありませんからString型にします。それで正しいです。それでエラーになることはないはずです。単にあなたが「Stringにした」と思い込んでいるだけで、実際にはやっていないだけでしょう。

31MAR.xlsというファイル名で、以下のコードででエラーなく動くことを確認しました。もしもそれでもStringにしてもエラーが出るというのならエラーが出た際のコードを貼りましょう。もしくはファイル名が間違っているのかもしれませんが、とにかく正しく書けば必ず動きます。

Dim HIDUKE As String
HIDUKE = Left(ThisWorkbook.Name, 5)
MMM = Mid(HIDUKE, 3, 3)
DD = Left(HIDUKE, 2)
Set NYURYOKU = Workbooks(DD & MMM & ".xls").Worksheets("入力")

お礼

無事に動きました。
丁寧なご説明、ありがとうございました。助かりました。

回答No.2

山田 太郎（@f_a_007）

＞実行時エラー‘9’インデックスが有効範囲にありません。

Workbooks(DD & MMM & ".xls").Worksheets("入力")

に該当するシートが存在しないってことです。あるいは、存在しないと誤認しているかです。

【回避策】前者であれば、実際に存在する名前を指定すれば回避できます。

後者であれば

http://excelshogikan.com/tips/tips043.html