[VBA ] 請問EXCEL VBA如何用saveas使另存新檔的視窗出現,thx

看板Visual_Basic作者 (願君珍重幸福隨~)時間17年前 (2008/09/29 17:09), 編輯推噓3(305)
留言8則, 4人參與, 最新討論串1/1
各位板友好: 小弟有個問題,最近在幫朋友打很久沒用的excel VBA幫他做簡 單的進出貨單. 只是小弟碰到一個問題. saveas 的參數要如何下,才會出現 另存新檔的視窗出現. 不然都一直判別錯誤. QQ, 不然就一定要打固定的檔案路徑. 問題是每天不可能存同一個檔案. 如: ActiveWorkbook.SaveAs Filename:="c:\aaa.xls" 試了很多修改這行的想法, 但是都沒辦法成功. 用巨集的側錄也錄不到,當開啟另存新檔畫面,按取消. 跟本沒有這一行, 按執行,又會出現上面那一行程式碼的 寫法. 不知道這邊有沒有高手可以給點建議. 謝謝. -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.112.236.248

09/29 20:03, , 1F
寫在VB的或可以用一個TEXT作為檔案名稱輸入....
09/29 20:03, 1F

09/29 20:07, , 2F
ActiveWorkbook.SaveAs "c:\aaa.xls"
09/29 20:07, 2F

09/29 20:08, , 3F
沒RUN過憑記憶
09/29 20:08, 3F

09/29 20:50, , 4F
使用inputbox()問檔名 如savefn=inputbox("filename: ")
09/29 20:50, 4F

09/29 20:50, , 5F
然後 activeworkbook.saveas filename:=savefn 就結了
09/29 20:50, 5F

09/29 22:30, , 6F
謝謝各位高手的幫忙~3Q
09/29 22:30, 6F

09/30 12:23, , 7F
可以參考Application.GetSaveAsFilename的用法
09/30 12:23, 7F

09/30 12:25, , 8F
它等同是可以選路徑的INPUTBOX,幫你取得路徑檔名
09/30 12:25, 8F
文章代碼(AID): #18u9jQ-e (Visual_Basic)