根據單元格值選擇工作表

Question

使用 Excel 365。我正在嘗試根據 ThisWorkbook 表數據，單元格中的團隊數量從“錦標賽主格式 36.xls”（所有選項卡都是基於括號中的團隊數量的數字）中的模板復制工作表K4。

Sub CopyPaste()

    Dim Size As String

    Size = "ThisWorkbook.Sheets("Data").Range("K4")"

    Workbooks("Tournament Master Format 36.xls").Sheets(Size).Range("A1:AO311").Copy _
    ThisWorkbook.Sheets("Sheet4").Range("A1") 

End Sub

更新代碼：

Sub CopyPaste()

Dim Size As String
Dim i As Integer
Dim SheetNum As String
Dim ws As Worksheet

    Workbooks("Scheduling Test Template.xlsx").Sheets("Data").Activate

For i = 2 To 10
    'Size = Cells(i, 11).Value
    Size = CStr(Workbooks("Scheduling Test 
    Template.xlsx").Sheets("Data").Range("K4").Value)

    'SheetNum = CStr(Cells(i, 10)) + " & Under"
    SheetNum = i
    Debug.Print Size

    If Size > 0 Then
        Set ws = 

    ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets
    (ThisWorkbook.Sheets.Count))
        ws.Name = SheetNum

        Workbooks("Tournament Master Format 36.xls").Sheets(Size)
        .Range("A1:AO311").Copy ThisWorkbook.Sheets(SheetNum).Range ("A1")
    End If
Next i

End Sub

Answer 1

我無法發表評論，因為我沒有足夠的聲譽，但請嘗試使用Debug.Print Size並查看這是否是 Size 的正確值。 如果是正確的值，現在檢查是否存在與Size值相同的工作表。

另外，我建議不要使用.Activate而是使用：

Size = Workbooks("Scheduling Test Template.xlsx").Sheets("Data").Range("K4").Value

附言。 如果您在此答案下發表評論，我將能夠加入與您和 braX 的對話。