[算表] 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
→
10/19 12:35, , 1F
10/19 12:35, 1F
→
10/19 12:38, , 2F
10/19 12:38, 2F
→
10/19 12:51, , 3F
10/19 12:51, 3F
→
10/19 12:52, , 4F
10/19 12:52, 4F
→
10/19 14:30, , 5F
10/19 14:30, 5F
Office 近期熱門文章
PTT數位生活區 即時熱門文章