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

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-8-26 23:17 | 只看該作者

hello，你是不是忘了上傳檔案了呢？

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

3^#

發表於 2013-8-27 21:13 | 只看該作者

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

補上檔案...

test01.rar (20.62 KB)

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-8-28 08:42 | 只看該作者

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

回復 1# jackyliu

Sub Copy_Sheet()
Sheets(Array("TEST", "RAW")).Copy
fs="D:\" & Format(Date, "yyyy_mm_dd") & ".xls" '存檔檔名
ActiveWorkbook.SaveAs FileName:= fs,FileFormat:=-4143
End Sub

複製代碼

學海無涯_不恥下問

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

5^#

發表於 2013-8-28 13:43 | 只看該作者

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-8-28 14:35 | 只看該作者

回復 5# jackyliu
檢查一下工作表的名稱 "TEST", "RAW", "TODAY","YESDAY","NOW"是否有誤!
有"TEST "," TEST" 這情況嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

7^#

發表於 2013-8-28 14:47 | 只看該作者

回復 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"

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-8-28 15:07 | 只看該作者

回復 7# jackyliu
2003 沒這限制

參考[彰化一整天的blog]的檔案

彰化一整天的blog.rar (16.19 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2013-8-28 15:30 | 只看該作者

回復 GBKEE

檢查一下工作表的名稱 "TEST", "RAW", "TODAY","YESDAY","NOW"是否有誤!
有"TEST "," TES ...
jackyliu 發表於 2013-8-28 14:47

Sub Copy_Sheet()
Sheets(Array("TEST", "RAW", "TODAY", "YESDAY", "NOW")).Copy ' 同時複製 "TEST"、以及 "RAW" 等五個工作表單
fs = ThisWorkbook.Path & "\" & Format(Date, "yyyy_mm_dd") & ".xls" ' 存檔檔名
ActiveWorkbook.SaveAs FileName:=fs, FileFormat:=-4143
End Sub

複製代碼

這語法是正確的，GBKEE版大用的是 2003，而我是使用 2010，
請檢查妳的程式碼。

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

10^#

發表於 2013-8-28 15:30 | 只看該作者

回復 8# GBKEE
回覆GBKEE: 重新在檢查測試其他檔案,都不行複製三個以上的sheet! Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy ,