返回列表 上一主題 發帖

[發問] 工作表保留

[發問] 工作表保留

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

想將Sheets(Shrr)共6個工作表複製後轉出;即轉出後,主檔還要Sheets(Shrr)原版保留。
請問:列72的程式碼要如何修正?
謝謝!
工作表保留(主檔).rar (122.08 KB)

回復 1# ziv976688


Sheets(Shrr).Copy   '列72
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "期" & ".xls"
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

還有1個清除內容的問題~我一直寫失敗~煩請您再指導:
將Sheets(Shrr)共6個工作表的T2:CM200儲存格的內容清除,
然後浮標停留在DATA!的J1
請問:Module1的程式碼要如何編寫?
謝謝您!
清除指定內容.rar (121.8 KB)

TOP

回復 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
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題