通过添加一些字符串命名工作簿时语句结束时出错

Question

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_"突出显示，并显示“编译错误：预期结束语句”。你能告诉我这里的问题是什么？我用过的字符串是什么？

Answer 1

<强> A 即可。变化

Dim wb, dwb As Workbook

到

Dim wb As Workbook, dwb As Workbook

在VBA中，您必须明确声明其他变量，否则它们将被视为变体。

<强>乙即可。变化

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

到

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

您在SPACE

之前和之后错过了&