下記のマクロをエクセル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
下記のマクロをエクセル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