如何調整此代碼以插入saveas對話框

我有下面的代碼來保存我的工作簿的一個工作表，我想更改一些東西，我嘗試更改的一個東西，我遇到了一些問題這是在我的代碼中添加一個SaveAsBox。現在，當我運行宏自動保存在一個特定的文件夾中的新工作表，我不想保存這種方式了，我想運行宏並彈出SaveAs框與建議名稱「儲蓄」和文件鍵入「Excel宏啓用工作簿」你能幫我解決這個問題嗎？如何調整此代碼以插入saveas對話框

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

來源

2017-04-25 Lucas Senne

只是爲了澄清，你想有一個保存對話框，以便您可以輸入所需的文件名，而不是硬編碼呢？ – gr8tech

@ gr8tech確切地說，我只是想建議一個名稱（在名稱Field show Savings上），但不能保存爲代碼 –

你可以試試這個代碼

Dim name as Variant 

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

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

來源

2017-04-25 17:17:21 gr8tech

編譯錯誤：預期：列表分隔符或）出現此錯誤和行名稱= .. 。be red –

我修復了錯誤的拼寫錯誤，再次嘗試一下代碼 – gr8tech

如何調整此代碼以插入saveas對話框

回答

相關問題