正在将 excel 张工作表复制到新文件并隐藏它们

Question

我正在尝试使用 excel VBA 将一些 sheet 复制到新文件中，我需要隐藏一些 sheet（例如输入 sheet, "Market PnLs (Market Place)", "Markets Graph (Market Place)") 我已经写了一个 VBA 来复制 sheets 但我现在知道如何在新文件中隐藏上面的 sheets，请问有人能帮我处理代码吗？

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

Answer 1

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

这是你正在尝试的吗？ (未测试)

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 创建的默认值 sheet，那么您也可以试试这个。

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)", "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
        '~~> Delete the default sheet
        Application.DisplayAlerts = False
        wbThat.Sheets(shtToDelete).Delete
        Application.DisplayAlerts = True
        
        '~~> 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

正在将 excel 张工作表复制到新文件并隐藏它们

Copying excel sheets to a new file and hiding them

excel

vba

hide