0
Sub openwb()

Dim x260path As String

x260path = "E:\sarath\PTMetrics\20131002\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_" & Format(Date, "YYYYMMDD") - 1

Workbooks("x260path").Activate

ActiveWorkbook.SaveAs ["E:\sarath\PTMetrics\20131002\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_" & Format(Date, "YYYYMMDD")]

Debug.Print x260path

End Sub

ここで、実行すると、「添え字が範囲外です」というエラーが表示されます。4 行目に表示されます。「workbook」を使用して文字列の代わりに「x260path」を宣言すると、3 行目に「オブジェクト変数またはブロック変数が設定されていません」という別のエラーが表示されます。

4

1 に答える 1