返回列表 上一主題 發帖

[發問] 檔案中的兩個Sheet 複製到新的檔案問題

回復 6# GBKEE

檢查一下工作表的名稱 "TEST", "RAW", "TODAY","YESDAY","NOW"是否有誤!
有"TEST "," TEST" 這情況嗎?
回覆GBKEE: 檢查一下,應該沒錯,  Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy ,好像只能複製兩個sheet,
三個以上就不行了 !


順道一提,依日期時間產生的檔案,要如何mail出去,
我之前都是一直指定同一個檔案,但目前做法是要將
剛才產生的mail出去,可否指導一下 !

CDO_Mail_Object.AddAttachment "D:\TEMP\test.xls"

TOP

回復 5# jackyliu
檢查一下工作表的名稱 "TEST", "RAW", "TODAY","YESDAY","NOW"是否有誤!
有"TEST "," TEST" 這情況嗎?
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 4# Hsieh
我將code 轉修改到其他檔案 , 有些檔案有五個sheet 要轉存到新的檔案,
且sheet 不連續; 我用您的方式,將其他 sheet名稱加入到 Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy , 這樣會出現錯誤耶 !

TOP

本帖最後由 Hsieh 於 2013-8-28 08:46 編輯

回復 1# jackyliu
  1. Sub Copy_Sheet()
  2. Sheets(Array("TEST", "RAW")).Copy
  3. fs="D:\" & Format(Date, "yyyy_mm_dd") & ".xls"  '存檔檔名
  4. ActiveWorkbook.SaveAs FileName:= fs,FileFormat:=-4143
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

目的:A檔案(test01.xls)的樞紐整理完畢後,將A檔案的其中幾個Sheets(TEST、RAW;TEMP不要COPY)內容複製到B檔案 ...
jackyliu 發表於 2013-8-26 21:22


補上檔案...

test01.rar (20.62 KB)

test01.rar (20.62 KB)

TOP

hello,你是不是忘了上傳檔案了呢?

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題