将 Excel 工作表复制到新文件并隐藏它们

如何解决将 Excel 工作表复制到新文件并隐藏它们

我正在尝试使用 excel VBA 将一些工作表复制到新文件中，我需要隐藏一些工作表（例如输入工作表、“市场盈亏（市场）”、“市场图表（市场）”） 我已经编写了一个 VBA 来复制工作表，但我现在知道如何在新文件中隐藏上述工作表，谁能帮我代码？

Sub split_online()
Dim onlinepath As Range
Set onlinepath = ThisWorkbook.Sheets("Input").Range("G33")
With ActiveWorkbook.Sheets(Array("P&L Metrics (Ecomm- Global)","Market PnLs (Online)",_
        "Markets Graph (Online)","Market Totals (Online)","GC(Online)","Apac(Online)",_
        "EMEA (Online)","AM(Online)","P&L vs LE (Online)","P&L vs PY (Online)",_
        "Market PnLs (Market Place)","Markets Graph (Market Place)",_
        "Market Totals (Market Place)","GC(Market Place)","Apac (Market Place)",_
        "EMEA (Market Place)","AM (Market Place)","P&L vs LE (Market Place)",_
        "P&L vs PY (Market Place)","Input","Input"))
    .Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & onlinepath,FileFormat:=51
End With
End Sub

解决方法

创建一个新工作簿，然后将工作表复制到那里。最后隐藏相关的工作表。

这是你正在尝试的吗？ （未经测试）

Option Explicit

Sub split_online()
    Dim onlinepath As Range
    Dim wbThis As Workbook
    Dim wbThat As Workbook
    
    Set wbThis = ThisWorkbook
    
    Set onlinepath = wbThis.Sheets("Input").Range("G33")
    
    '~~> Create a new workbook
    Set wbThat = Workbooks.Add
    
    '~~> Copy the relevant sheets to new workbook
    wbThis.Sheets(Array("P&L Metrics (Ecomm- Global)","Market PnLs (Online)",_
                  "Markets Graph (Online)","Market Totals (Online)","GC(Online)","Apac(Online)",_
                  "EMEA (Online)","AM(Online)","P&L vs LE (Online)","P&L vs PY (Online)",_
                  "Market PnLs (Market Place)","Markets Graph (Market Place)",_
                  "Market Totals (Market Place)","GC(Market Place)","Apac (Market Place)",_
                  "EMEA (Market Place)","AM (Market Place)","P&L vs LE (Market Place)",_
                  "P&L vs PY (Market Place)","Input")).Copy Before:=wbThat.Sheets(1)
        
    With wbThat
        '~~> Hide relevant sheets
        .Sheets(Array("Market PnLs (Market Place)","Markets Graph (Market Place)")).Visible = False
        .SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & onlinepath,FileFormat:=51
    End With
End Sub

如果您不想要使用 Workbooks.add 创建的默认工作表，那么您也可以试试这个。

Option Explicit

Sub split_online()
    Dim onlinepath As Range
    Dim wbThis As Workbook
    Dim wbThat As Workbook
    Dim shtCount As Long,i As Long
    Dim shtToDelete As String
    
    Set wbThis = ThisWorkbook
    
    Set onlinepath = wbThis.Sheets("Input").Range("G33")
    
    '~~> Create a new workbook
    Set wbThat = Workbooks.Add
    shtCount = wbThat.Sheets.Count
    
    '~~> Delete sheet(s) created by default.
    Application.DisplayAlerts = False
    On Error Resume Next
    For i = wbThat.Sheets.Count To 1 Step -1
        wbThat.Sheets(i).Delete
    Next i
    On Error GoTo 0
    Application.DisplayAlerts = True
    
    '~~> Get the name of the sole sheet in the new workbook
    shtToDelete = wbThat.Sheets(1).Name
    
    '~~> Copy the relevant sheets to new workbook
    wbThis.Sheets(Array("P&L Metrics (Ecomm- Global)",_
              "Markets Graph (Online)",_
              "EMEA (Online)",_
              "Market PnLs (Market Place)",_
              "Market Totals (Market Place)",_
              "EMEA (Market Place)",_
              "P&L vs PY (Market Place)","Input")).Copy Before:=wbThat.Sheets(1)
      
    With wbThat
        '~~> Delete the default sheet
        Application.DisplayAlerts = False
        wbThat.Sheets(shtToDelete).Delete
        Application.DisplayAlerts = True
        
        '~~> Hide relevant sheets
        .Sheets(Array("Market PnLs (Market Place)",FileFormat:=51
    End With
End Sub