使用變量在VBA中選擇Excel工作表

Question

我有以下Excel VBA代碼。

我已經從另一個Excel文檔中復制了一些數據。 我需要將這些日期粘貼到包含每周的Excel工作表的第二個文檔中。

Excel工作表稱為“ 01周”，“ 02周”，“ ...”，“ 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"