Question

我有下面的代码来保存我的工作簿的一个工作表，我想改变一些事情，我想要改变的一件事，我遇到的一些问题是在我的代码中添加一个SaveAsBox。现在当我运行宏自动将新工作表保存在特定文件夹中时，我不想再以这种方式保存了，我想运行宏并弹出SaveAs框，其中包含建议名称＆＃34; Savings＆＃ 34;和文件类型＆＃34; Excel启用宏的工作簿＆＃34; 你能帮我解决这个问题吗？

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

如何调整此代码以插入saveas对话框

1 个答案: