標題: [發問] 工作表保留 [打印本頁]

---

作者: ziv976688    時間: 2021-7-18 17:56     標題: 工作表保留

'    Sheets(Shrr).Move   '列72
'    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "期" & ".xls"

想將Sheets(Shrr)共6個工作表複製後轉出；即轉出後，主檔還要Sheets(Shrr)原版保留。
請問：列72的程式碼要如何修正？
謝謝！
[attach]33675[/attach]

---

作者: n7822123    時間: 2021-7-18 18:33

回復 1# ziv976688


Sheets(Shrr).Copy   '列72
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "期" & ".xls"

---

作者: ziv976688    時間: 2021-7-18 19:45

回復 2# n7822123
我還以先COPY，再MOVE
OK了!感謝您

還有1個清除內容的問題~我一直寫失敗~煩請您再指導：
將Sheets(Shrr)共6個工作表的T2：CM200儲存格的內容清除，
然後浮標停留在DATA!的J1
請問：Module1的程式碼要如何編寫？
謝謝您!
[attach]33676[/attach]

---

作者: n7822123    時間: 2021-7-18 23:40

回復 3# ziv976688


試試

Sub 清除()
For Each sh In Sheets(Array("準2進3", "準3進4", "準4進5", "準5進6", "準6進7", "準7進8"))
   sh.[T2:CM200].ClearContents
Next
Application.Goto [DATA!J1]
End Sub

---

作者: ziv976688    時間: 2021-7-18 23:53

回復 4# n7822123
哈~我是一丈差9尺九九九^^"
測試OK了!
萬分感謝您的指導和幫忙~感恩

---

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