我想工作簿中的特定工作表导出到一个单独的工作簿格式(.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工作表。
笔记:
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
注意:您将需要添加的错误处理,等等。