Сохранение в виде макроса на одном листе

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