0
我有多個工作簿,名爲'SUMMARY-F'。我需要將這些工作表合併成一個工作簿中,我使用下面的代碼:下標超出範圍錯誤 - 合併工作表
Sub CopySheets1()
Dim wkb As Workbook
Dim sWksName As String
sWksName = "SUMMARY-F"
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then
wkb.Worksheets(sWksName).Copy _
Before:=ThisWorkbook.Sheets(1)
End If
Next
Set wkb = Nothing
End Sub
代碼現在工作完全約4倍然而,當我運行它,我得到一個下標超出範圍錯誤9.任何提示關於如何解決這個問題?
感謝, 辛達
您的工作簿中沒有名爲「SUMMARY-F」的工作表? –
你有PERSONAL.xls *嗎? –