返回列表 上一主題 發帖

[發問] 複製工作表時, 如何可以不複製工作表背後附著的巨集

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
1# 跳轉到 »
發表於 2014-3-6 15:17 | 顯示全部帖子
我的做法是複製工作表，如下

Sub test()

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

End Sub
動念成因積因成果 by huijuang

TOP

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
2#
發表於 2014-3-7 15:19 | 顯示全部帖子
不好意思我沒注意到是Worksheet
那如果改成以下程式
應該可以

Sub test()

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

End Sub
動念成因積因成果 by huijuang

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題