如何导出从我的工作簿中单独的工作簿特定的表?

问题描述 投票:-1回答:1

我想工作簿中的特定工作表导出到一个单独的工作簿格式(.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工作表。

笔记:

  • 可以在工作表,而不是一个“启用宏表”出口?
excel vba
1个回答
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

注意:您将需要添加的错误处理,等等。

© www.soinside.com 2019 - 2024. All rights reserved.