使用变量 select Excel sheet in vba

Question

我有以下 Excel VBA 代码。

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

Excel sheet 称为 "week 01"、"week 02"、“...”、"week 52".

现在我需要 select sheet 用正确的数字粘贴我复制的数据。

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

我知道以下代码不正确。我怎样才能 select 正确的 excel sheet，使用变量 "number"?

Sheets("Week" number).Select

Answer 1

关于下面的代码，你是没有在中间加上“&”，还是只是没有输入？

Sheets("Week" number).Select

应该是

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

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

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

使用变量 select Excel sheet in vba

Using a variable to select an Excel sheet in vba

variables

excel

vba