標題: [發問] 複製工作表時, 如何可以不複製工作表背後附著的巨集 [打印本頁]

---

作者: enoch    時間: 2014-3-6 12:27     標題: 複製工作表時, 如何可以不複製工作表背後附著的巨集

當使用巨集複製工作表時, 如何可以不複製工作表背後附著的巨集如
Private Sub Worksheet_Change(ByVal Target As Range)
或將巨集刪除

請指教

---

作者: huijuang    時間: 2014-3-6 15:17

我的做法是複製工作表，如下

Sub test()

Sheets("sheet1").Select  '選擇要複製的工作表
Sheets("sheet1").Copy    '複製工作表
ActiveWorkbook.Save     '存檔

End Sub

---

作者: enoch    時間: 2014-3-7 14:34

用這方法會將附著sheet1 的巨集都會複製到新檔案
Private Sub Worksheet_Change(ByVal Target As Range)

---

作者: huijuang    時間: 2014-3-7 15:19

不好意思我沒注意到是Worksheet
那如果改成以下程式
應該可以

Sub test()

Sheets("sheet1").Select  '選擇要複製的工作表
Cells.Copy       '複製工作表
Workbooks.Add    '新增一個excel檔
ActiveSheet.Paste  '貼上複製
ActiveWorkbook.Save     '存檔

End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)