如何将工作表保存在具有不同名称的不同路径中
如何将工作表保存在具有不同名称的不同路径中
提问于 2017-04-20 11:55:09
我有一个带有多个工作表的excel文件，其中一个文件我想导出到一个不同的路径--我创建了一个宏来完成这个任务--它运行得很好，但是我希望每次单击宏按钮时，该文件都会以不同的名称保存在该文件中。例:当我第一次点击按钮保存为xxx1时，第二次创建一个名为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使用我创建的这个宏，当我单击宏按钮时，总是保存在同一个文件中(而不是像)那样保存。
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-04-20 12:01:55
这是未经测试的，但您可以计数文件夹中的文件并将其用作下一个文件号：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43518813
复制相关文章
相似问题
腾讯云开发者
