エクセル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’インデックスが有効範囲にありません。』
となってしまいます。
どなたか回避策を教えてください。
どうぞよろしくお願いします。