在vba中使用变量选择Excel工作表

Question

我有以下 Excel VBA 代码。

我已经从另一个 Excel 文档中复制了一些数据。我需要将这些日期粘贴到包含每周 Excel 工作表的第二个文档中。

Excel 工作表称为“第 01 周”、“第 2 周”、“...”、“第 52 周”。

现在我需要选择具有正确编号的工作表将我复制的数据粘贴到那里。

Sub Macro1()

Dim number As String
Dim year As String

number = Application.InputBox(Prompt:="insert week number (01-52))", Type:=2)
year = Application.InputBox(Prompt:="insert year (YYYY)", Type:=2)

Workbooks.Open Filename:= _
"F:\documents\" & year & "\example " & number & ".xlsm"

Sheets("Week" number).Select

Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

我知道以下代码不正确。如何使用变量“数字”选择正确的 Excel 工作表？

Sheets("Week" number).Select

Answer 1

关于下面的代码，您是错过了在其间添加“&”，还是只是错过了输入？

Sheets("Week" number).Select

应该是

Sheets("Week " & number).Select 'there is a space after week??

请注意“”之间的空格。他们可以堆积你的代码。像下面的那个。 “\example”后面有一个空格：

"F:\documents\" & year & "\example " & number & ".xlsm"