Question

我正在尝试将工作簿中的特定工作表导出到单独的工作簿（.xlsx）。

我可以导出为PDF。

这是代码的相关部分：

On Error Resume Next
Kill ("D:\MAT.pdf")
On Error GoTo 0

With Sheets("MAT")
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:MAT.pdf", OpenAfterPublish:=False
End With

目的是将其附加到我已经成功完成的电子邮件中，但是我希望能够将其附加为Excel工作表。

注意：

可以在不成为“启用宏的工作表”的情况下导出工作表吗？

Answer 1

Option Explicit

Sub Save_Worksheet(Worksheet_Name As String, Destination_Path As String)
Dim ws As Worksheet

   Application.ScreenUpdating = False

   Set ws = ThisWorkbook.Worksheets(Worksheet_Name)

   ws.Copy
   ActiveWorkbook.SaveAs Filename:=Destination_Path & "\" & ws.Name, FileFormat:=xlWorkbookDefault
   ActiveWorkbook.Close SaveChanges:=True

   Application.ScreenUpdating = True
End Sub

要将Sheet1保存到D：

Sub Test()
  Save_Worksheet "Sheet1", "D:"
End Sub

注意：您将需要添加错误处理等。

如何将特定的工作表从我的工作簿导出到单独的工作簿？

1 个答案: