保存工作表的Excel另存爲位置VBA

Question

嗯，我不是開發人員，而是一個普通的Excel用戶在工作時嘗試自動化一些過程，所以請理解我的問題是否簡單。

我只想一個宏，可當我運行宏，它能讓我 瀏覽計算機，以便我可以將文件保存在方向和文件名，我喜歡 如果可能的話 默認位置是位置工作簿的，只是爲了節省時間

謝謝

Answer 1

試試下面的代碼：

Sub SaveAsDailog() 

Application.DisplayAlerts = False 
Dim filePath As Variant 
filePath = Application.GetSaveAsFilename("abcd.xlsx", "Excel Files (*.xlsx), *.xlsx") 

If VarType(filePath) = vbString Then 
ActiveWorkbook.SaveAs Filename:=filePath 
End If 


Application.DisplayAlerts = True 
End Sub