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

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

Sheets("Week" number).Select

Answer 1

关于以下代码，您是否错过了＆＃34;＆amp;＆＃34;介于两者之间，或者你只是错过打字吗？

Sheets("Week" number).Select

应该是

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

请注意＆＃34;之间的空格。＆＃34 ;.他们可以批量编写代码。喜欢下面这个。在＆＃34; \ example＆＃34;：

之后有一个空格

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

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

1 个答案: