軟體: 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
但此程式碼似乎會將巨集功能自動刪除，
想請問若想將巨集功能留下的話，該如何寫比較好呢?
麻煩大家了，謝謝!!