我很接近这一点但并不完全存在。我试图在计算完成后仅将顶级工作表(List for Mailchimp)保存为单独的工作表。现在我收到错误,在一个完美的世界中,它会提示用户命名文件并选择一个位置来保存它,同时将保存的格式设置为.csv但是在这一点上我会满足于不会在saveAs上出错
Sub SaveSheet()
'
' SaveSheet Macro
'
'
Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("List for Mailchimp").Copy Before:=wb.Sheets(1)
wb.SaveAs Filename:= _
MyFileName, _
CreateBackup:=False
End Sub