如何将工作表保存在具有不同名称的其他path中

我有一个Excel文件与多个工作表，其中一个文件，我想导出到不同的path我创build了一个macros来做到这一点，它工作得很好，但我想每次我点击macrosbutton文件是将以不同的名字保存在该文件中。 例如：第一次我点击保存为xxx1的button，第二次创build了一个名为xxx2的新文件，甚至有可能这样做吗？

我将在下面粘贴我的代码：

Sub Macro7() ' Macro7 Macro Sheets("Saving").Select Sheets("Saving").Copy ChDir _ "C:\Users\L10\Desktop\Rodrigo" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\L10\Desktop\Rodrigo\xxx1.xlsx" _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub 

有了我创build的这个macros，当我点击macrosbutton时总是保存在同一个文件中（而不是保存）

Answer 1

这是未经testing，但您可以计数您的文件在文件夹中，并将其用作下一个文件编号：

 Sub Macro7() Dim FolderPath As String, path As String, count As Integer FolderPath = "C:\Users\L10\Desktop\Rodrigo" path = FolderPath & "\*.xlsx" Filename = Dir(path) Do While Filename <> "" count = count + 1 Filename = Dir() Loop Sheets("Saving").Select Sheets("Saving").Copy ChDir _ FolderPath ActiveWorkbook.SaveAs Filename:= _ FolderPath & "\xxx" & count & ".xlsx" _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub