另存为 excel 宏单张工作表

Question

>我有一个工作表，我将其导出为pdf，并希望将其部分保存为excel。当我使用代码保存 excel 工作表时，它只是生成工作表，而不保存它

感谢您的帮助

Worksheets("Sheet1").Copy
With Worksheets("Sheet1")
.SaveAs "C:Users" & .Sheet(1).Name
.Sheets(1).Name
.Close0

Answer 1

这应该可以解决它

Sub CopySht_as_NewWrkBook()
Dim strFileName As String
'Copy sheet as a new workbook
Sheets("Sheet1").Copy
'this creates the "Save as". Change sheets as to your sheet. The new 
'workbook is now the active one
strFileName = Application.GetSaveAsFilename("C:Users" & Sheets("Sheet1").Name & ".xls")
If strFileName = "False" Then Exit Sub 
ActiveWorkbook.SaveAs Filename:=strFileName
'Change "False" to "True" as you like if you wanna have prompt at the end
ActiveWorkbook.Close SaveChanges:=False
End Sub

希望这能把你推向正确的方向

编辑保存文件而不带任何提示删除Application.GetSaveAs...如下所示：

Sub CopySht_as_NewWrkBook()
Dim strFileName As String
'Copy sheet as a new workbook
Sheets("Sheet1").Copy
'this creates the "Save as". Change sheets as to your sheet. The new 
'workbook is now the active one
strFileName = "C:Users" & Sheets("Sheet1").Name & ".xls"
If strFileName = "False" Then Exit Sub 
ActiveWorkbook.SaveAs Filename:=strFileName
'Change "False" to "True" as you like if you wanna have prompt at the end
ActiveWorkbook.Close SaveChanges:=False
End Sub