このコードを適用してsaveasを挿入する方法

Question

私のワークブックのワークシートを保存するには以下のコードがありますが、変更しようとしているもののいくつかを変更したいと思います。これは私のコードにSaveAsBoxを追加することです。最近マクロを実行して特定のフォルダに新しいワークシートを自動的に保存するとき、私はこの方法をもう保存したくないので、マクロを実行して、SaveAsボックスを推奨名 "Savings"とFileでポップアップしたいと思います"Excelマクロが有効なワークブック"と入力してください 皆さん、これを理解する手助けをしてもらえますか？

Dim FolderPath As String, path As String, count As Integer 
    FolderPath = "C:\Users\luuke\Desktop" 
    path = FolderPath & "\*.xlsx" 

    Filename = Dir(path) 

    Do While Filename <> "" 
     count = count + 1 
     Filename = Dir() 
    Loop 

    Sheets("Savings").Select 
    Sheets("Savings").Copy 
    ChDir _ 
     FolderPath 
    ActiveWorkbook.SaveAs Filename:= _ 
     FolderPath & "\Relatorio_Saving " & count & ".xlsx" _ 
     , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

Answer 1

あなただけ明確にするために、このコード

Dim name as Variant 

name=Application.GetSaveAsFilename(Relatorio_Saving " & count 
            & ".xlsx","Excel File 
            (*.xlsx), *.xlsx") 

If name <> "" then 
    ActiveWorkbook.SaveAs name,xlOpenXMLWorkbook 
End If