下記のマクロをエクセル95で動かすと正常に終わるのですが、エクセル2000で
動かすとデバッグエラーで止まります。
何処がおかしいのでしょうか教えてください。
出来れば言語の意味も教えてください。

Sub 送信メニュ()
Dim i, C_COUNT, folda, work, tuki
i = MsgBox("加工業者別の発注基礎資料を作成します。", 1, "着色加工計画作成システム")
If i <> 1 Then Exit Sub
Sheets("msg2").Select
Call gafalse
folda = "C:\aa着色加工計画\"
tuki = Sheets("ACT").Cells(5, 12).Text→最初にここでデバッグエラーになります。
tuki = Val(Right(tuki, 2))
If tuki = 12 Then
tuki = 1
Else
tuki = tuki + 1
End If
tuki = Format(Str(tuki), "00")
Workbooks.Add
F_NAME = "加計" + tuki + "月.XLS"
ActiveWorkbook.SaveAs Filename:=folda + F_NAME, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Windows("加工品.xls").Activate
Sheets("masta").Select
C_COUNT = Sheets("masta").Cells(2, 3).Text

For count = 1 To C_COUNT 'C_COUNT
Windows("加工品.xls").Activate
Sheets("masta").Select
Cells(3, 5) = count
i = count
M_KAKOBA(count) = "sheet" + i
Call 送信
Next count
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=folda + F_NAME, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

End Sub

A 回答 (2件)

マクロを実行したとき、そのブックに「ACT」というシート名のワークシートはありますか?


そのエラーは主に配列を使用したときに出るんですが、
例えば、配列で最初10までの定義をしてないのに、11番目の配列に代入しようとするときに出ます。
定義していない(存在しない)ものに代入したり、変数に存在しない値を代入したりとかはしてないですか?
    • good
    • 0
この回答へのお礼

確認してみます。ありがとうございました。

お礼日時:2002/02/16 08:43

意味はともあれ、何というエラーメッセージが表示されたのか、書いてください。

この回答への補足

tuki = Sheets("ACT").Cells(5, 12).Text
最初にここのところで下記のエラーがでます。

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

補足日時:2002/02/13 08:09
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


人気Q&Aランキング

おすすめ情報

カテゴリ