如何将多张工作表复制到新工作簿？

Question

我正在尝试为报告创建另存为功能。

主表有 25 个选项卡。 我希望将 25 个中的 23 个复制到每日另存为特定文件夹。

我有一个错误消息警告框，阻止用户保存文件，因此他们无法弄乱它。

Sub SaveMain()

Application.EnableEvents = False
'Stop ThisWorkbook VBA currently blocking the user being able to Save

Dim FlName As String
Dim FilePath As String
Dim NewWkBk As Workbook
Dim FileDate As String

    FlName = " September Reporting" & InputBox("Enter Yesterday's Date DD/MM/YYYY:", "Creating New File...") & ".xlsb"
    FilePath = "Z:\Call Agent Brief\Reporting\September Reporting\Reports"

    Set NewWkBk = Workbooks.Add
    Windows("September Reports Calculator - MASTER COPY.xlsb").Activate
    Sheets(Array("Admin Tab", "Home Tab", "Dashboard", "Drop Down Values", _
        "Reports Home", "Deployments", "Daily Summary", "Daily Breakdown", _
        "Monthly Summary", "Monthly Breakdown - Title Page", "Monthly Breakdown", _
        "Monthly Rolling 12 Months", "Monthly Cancellations", "Non-Deployments", _
        "Non-Deployments Summary", "Non-Deployments Breakdown", "FNOL", "FNOL Summary", _
        "FNOL Breakdown", "FNOL Deployments by User", "FNOL Deployments by Team", _
        "FNOL Deployments by Insurer", "FNOL Non-Deployed Opportunities")).Copy After:=Workbooks(NewWkBk)
    NewWkBk.SaveAs FilePath & "\" & FlName, FileFormat:=xlsb


Application.EnableEvents = True

End Sub

运行宏时，日期条目的表单会正确加载，但会出现运行时错误消息。

运行时错误“13”：类型不匹配

调试突出显示长的Sheets copy行。 即使我将它限制为复制一个标签，它也会出现同样的问题。

我无法将值粘贴到新工作表，因为主工作表中有很多格式旨在使此用户友好。 据我所知，唯一的方法是复制整张纸。

Answer 1

我认为您将遇到问题，您命名文件的内容以空格开头，在名称中使用“/”。 一旦你解决了这个问题，我认为这将起作用：

Sub SaveMain()

Application.EnableEvents = False
'Stop ThisWorkbook VBA currently blocking the user being able to Save

Dim FlName As String
Dim FilePath As String
Dim NewWkBk As Workbook
Dim FileDate As String

    FlName = "September Reporting" & InputBox("filename ", "Creating New   File...") & ".xlsb"
    FilePath = "C:\users\adm123\documents\xlworking"
    Sheets(Array("Admin Tab", "Home Tab", "Dashboard", "Drop Down Values", _
        "Reports Home", "Deployments", "Daily Summary", "Daily Breakdown", _

        "Monthly Summary", "Monthly Breakdown - Title Page", "Monthly Breakdown", _

        "Monthly Rolling 12 Months", "Monthly Cancellations", "Non-
Deployments", _

        "Non-Deployments Summary", "Non-Deployments 
Breakdown", "FNOL", "FNOL Summary", _

        "FNOL Breakdown", "FNOL Deployments by User", "FNOL Deployments by 
Team", _


            "FNOL Deployments by Insurer", "FNOL Non-Deployed 
Opportunities")).Copy

    newfilename = FilePath & "\" & FlName

    With ActiveWorkbook
    .SaveAs newfilename, FileFormat:=50
    .Close 0

    End With


Application.EnableEvents = True


End Sub