為什麼這篇excel vba另存新檔路徑鄉民發文收入到精華區：因為在excel vba另存新檔路徑這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者leo00134 (小捲)看板Office標題[算表] VBA 巨集另存新檔功能跳出可另存位置時...
軟體: EXCEL
版本: 2010
大家好，
想請問我目前寫了一個檔案，裡面有跨檔案存檔，
例如：A檔案按下巨集後，將資料存到B檔案。
這時候，想同時在A檔案的巨集內新增程式碼，
在資料存到B檔案後，自動跳出另存新檔的這個功能，
(無預設路徑，可自己選路徑)。
另外，希望在另存後，能保有原先巨集的功能。
之前有參考過版上so大幫別人解決的問題，
相關程式碼如下：
Sub test()
Dim Wrk As Workbook
Dim shp As Shape, Fn$
Application.DisplayAlerts = False
Set Wrk = ThisWorkbook
With Application.FileDialog(2)
If .Show Then Fn = .SelectedItems(1)
End With
ActiveSheet.Copy
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
ActiveWorkbook.SaveAs Fn
Wrk.Activate
Application.DisplayAlerts = True
End Sub
但此程式碼似乎會將巨集功能自動刪除，
想請問若想將巨集功能留下的話，該如何寫比較好呢?
麻煩大家了，謝謝!!
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.41.204
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1476851076.A.C3B.html
→ soyoso: 另存新檔的對話窗可用application.getsaveasfilename 10/19 12:35
→ soyoso: 或是以application.dialogs(xldialogsaveas).show 10/19 12:38
→ soyoso: 巨集新增於另個檔案內，可以workbook.vbproject 10/19 12:51
→ soyoso: .vbcomponents export和import 匯出入 10/19 12:52
→ leo00134: so大 謝謝您! 經過幾次嘗試後已得出想要的功能! 謝謝! 10/19 14:30