Excel VBA使用“保存”对话框和“另存为CSV格式”创建具有文件名的新图纸

我的要求是，我有一些数据表和一个按钮，必须执行下面说的任务

任务是，单击按钮后，必须要求将文件名和位置以csv格式保存到新工作表中，并且必须将活动工作表中的数据复制并粘贴到新工作表中，并且新工作表的名称应为以csv格式保存的文件的名称

---

有人能帮忙吗？

这应该可以，根据口味编辑。将宏保存到新模块，然后添加按钮“开发人员”选项卡>“插入”>“按钮”。将按钮指定给此宏

Sub SaveWorksheetsAsCsv()

Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

Dim CurrentWorkbook As String
Dim CurrentFormat As Long

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook

'Change the path, must end with \
SaveToDirectory = "C:\Users\username\Documents\test\"
For Each WS In ThisWorkbook.Worksheets
    Sheets(WS.Name).Copy
    ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV
    ActiveWorkbook.Close savechanges:=False
    ThisWorkbook.Activate
Next
'edit/remove the for loop to suit
End Sub

信用到期时的信用。根据这个答案改编：

---

搜索，这类问题已经被回答了很多次。如果你有@sorceri won，你能给我发个链接吗？因为这是我为你做的搜索，关键是如果你只是在页面顶部搜索，搜索vba保存表CSV，你可能已经有答案了，第一次点击就会给你答案。