VBA使用保存对话框创build带有文件名的新工作表并保存为CSV格式

我的要求是，我有一个表单，有一些数据和一个button，必须执行下面的任务。

任务是，一旦点击了button，它必须要求文件名和位置以csv格式保存到新工作表中，并且活动工作表中的数据必须被复制并粘贴在新工作表中，并且新工作表的名称应该是为文件提供的名称以CSV格式保存。

任何人都可以请帮助吗？

Answer 1

这应该做的伎俩，编辑品尝。 将macros保存到一个新的模块，然后添加一个button开发人员选项卡>插入>button。 将该button分配给此macros。

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 

信贷到期的信贷。 改编自这个答案： 使用VB将excel工作表保存为文件名+工作表名称的CSV文件