2 
Sub openwb()

Dim sb As String

Dim wb, dwb As Workbook

Dim ws As Worksheet

Set dwb = ActiveWorkbook

Set ws = dwb.Sheets("Home")

sb = ws.Range("F4").Value

Set wb = sb&"_Powertrain Metrics_" & (Format(Date, "YYYYMMDD") & ".xlsm")

Debug.Print wb

End Sub

ここで 8 行目では、その部分"_Powertrain Metrics_"が強調表示され、「コンパイル エラー: ステートメントの終わりが予想されます」と表示されます。ここで何が問題なのか教えてもらえますか?それは私が使用した文字列に関するものですか?

4

1 に答える 1

1

A. _ 変化する

Dim wb, dwb As Workbook

に

Dim wb As Workbook, dwb As Workbook

VBA では、変数を明示的に宣言する必要があります。そうしないと、バリアントと見なされます。

B. _ 変化する

Set wb = sb&"_Powertrain Metrics_" & (Format(Date, "YYYYMMDD") & ".xlsm")

に

Set wb = Workbooks.Open(sb & "_Powertrain Metrics_" & Format(Date, "YYYYMMDD") & ".xlsm")

SPACEの前後がありませんでした&

于 2013-10-05T05:59:53.870 に答える