Excel VBA中的运行时错误1004

Question

我正在使用此代码通过创建新的工作簿和工作表将粘贴数据从一个工作簿工作表复制到另一工作簿。

在ActiveSheet.Name = "Summary"处抛出1004错误。

Sub MakeExcelFiles()
' create an Excel file from an Excel table
Dim DefFolder As String
Dim XMLFileName As String, RTC1 As Integer
Dim Counter As Integer
Dim CounterMax As Integer
Dim Name1 As String
DefFolder = "C:\HRBPEMAIL\"   'change this to the location where you want to save Excel files
Calculate
Counter = 1
CounterMax = 10
Sheets("Combinations").Cells(1, 1).Value = Now()
    For Counter = 1 To CounterMax
        Range("B1").Select
        ActiveCell.FormulaR1C1 = Counter
        Calculate
        Name1 = Range("G1")
        XMLFileName = DefFolder & Name1
        Workbooks.Add
        ActiveSheet.Name = "Summary"
        'ActiveWorkbook.Worksheet("Sheet1").Activate
        'Sheets("Sheet1").Select
        'Sheets("Sheet1").Name = "Summary"
        'Sheets.Add After:=ActiveSheet
        'ActiveWorkbook.Worksheet("Sheet2").Activate
        'Sheets("Sheet2").Select
        'Sheets("Sheet2").Name = "Data"
        Sheets.Add.Name = "Data"
        ActiveWorkbook.SaveAs Filename:=XMLFileName, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        Windows("HRBP-Email-Master-Working-21-Sep-2015-Grand-Master-File_V1.xlsm").Activate
        Sheets("FinalData").Select
        Sheets("FinalData").Range("A1:BN2200").Copy
        Application.Workbooks(Name1).Activate
        Sheets("Data").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
        Application.CutCopyMode = False
        Windows("HRBP-Email-Master-Working-21-Sep-2015-Grand-Master-File_V1.xlsm").Activate
        Sheets("Summary").Select
        Sheets("Summary").Range("A1:D24").Copy
        Application.Workbooks(Name1).Activate
        Sheets("Sheet1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
        Windows("HRBP-Email-Master-Working-21-Sep-2015-Grand-Master-File_V1.xlsm").Activate
        Sheets("Summary").Select
        Sheets("Summary").Range("A1:D24").Copy
        Application.Workbooks(Name1).Activate
        Sheets("Sheet1").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Columns("B:B").EntireColumn.AutoFit
        Columns("D:D").EntireColumn.AutoFit
        Application.CutCopyMode = False
        Range("A1").Select
        Application.Workbooks(Name).Save
        Application.Workbooks(Name).Close
        Windows("HRBP-Email-Master-Working-21-Sep-2015-Grand-Master-File_V1.xlsm").Activate
        Sheets("Combinations").Select

Next Counter
Sheets("Combinations").Cells(2, 1).Value = Now()
End Sub

Answer 1

我会猜测：

一个名为“摘要”的工作表已经存在（不太可能，因为我很确定您会对此进行检查），或者这是缺少参考的普遍错误。

在VBE中，单击“工具” /“参考”，然后取消选中任何列表为“缺失”