作者leo00134 (小卷)
看板Office
标题[算表] VBA 巨集另存新档功能跳出可另存位置
时间Wed Oct 19 12:24:30 2016
软体: 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://webptt.com/cn.aspx?n=bbs/Office/M.1476851076.A.C3B.html
1F：→ soyoso: 另存新档的对话窗可用application.getsaveasfilename 10/19 12:35
2F：→ soyoso: 或是以application.dialogs(xldialogsaveas).show 10/19 12:38
3F：→ soyoso: 巨集新增於另个档案内，可以workbook.vbproject 10/19 12:51
4F：→ soyoso: .vbcomponents export和import 汇出入 10/19 12:52
5F：→ leo00134: so大 谢谢您! 经过几次尝试後已得出想要的功能! 谢谢! 10/19 14:30