ワークシートを別の名前の別のパスに保存する方法

Question

複数のワークシートを持つExcelファイルがあります。これらのファイルの1つを別のパスにエクスポートしたいのですが、これを行うためにマクロを作成しました。私はマクロボタンをクリックするたびにファイルを別の名前でそのファイルに保存するつもりです。例：ボタンをクリックして初めてxxx1として保存し、2回目に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 

を

Answer 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