如何使用不同的名称在不同的路径中保存工作表

时间:2017-04-20 11:55:10

标签: excel vba excel-vba

我有一个带有多个工作表的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 个答案:

答案 0 :(得分:1)

这是未经测试的,但您可以计算文件夹中的文件并将其用作下一个文件编号:

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