如何複製工作頁到第二個檔案

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

2^#

發表於 2011-7-8 17:54 | 只看該作者

請問有高手可以幫到忙嗎?

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兔年全勤獎章

3^#

發表於 2011-7-8 19:53 | 只看該作者

本帖最後由 GBKEE 於 2011-7-8 19:54 編輯

回復 2# enoch
將有關工作表另存成個別檔案,並存放在c:\import 內, 例如:
檔案AA 包括工作表 sheet1, sheet2, sheet3, 及book1,book2 內的所有工作表
檔案BB 包括工作表 sheet4, sheet5, sheet6, book3內的所有工作表
sheet1, sheet2, sheet3,sheet4, sheet5, sheet6 是開啟中檔案的工作表嗎?

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

4^#

發表於 2011-7-9 00:30 | 只看該作者

GBKEE
sheet1, sheet2, sheet3,sheet4, sheet5, sheet6 包括提供資料的工作表
都是在開啟中檔案 summary.xls 的工作表內
而 book2, 及 book3 是存在於c:\export\內未開啟的檔案
現希望跟據資料, 將工作表 sheet1, sheet2, sheet3, 及 book1,book2 檔案內的所有工作表
結合成新檔案AA.xls 並存於 c:\test\
請幫忙

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兔年全勤獎章

5^#

發表於 2011-7-9 08:52 | 只看該作者

本帖最後由 GBKEE 於 2011-7-9 10:40 編輯

回復 4# enoch
試試看

Sub Ex()
Dim NewBook As Workbook
With Workbooks("summary.xls")
'''''''''''''''''''''''''''''''''''
Set NewBook = Workbooks.Open("c:\export\BOOK1.XLS") '開啟BOOK1
With Workbooks.Open("c:\export\BOOK2.XLS") '開啟BOOK2
.Sheets.Copy After:=NewBook.Sheets(NewBook.Sheets.Count) '全部工作表複製到 BOOK1的後面
.Close False '關閉BOOK2 不存檔
End With
.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy After:=NewBook.Sheets(NewBook.Sheets.Count)
'所選的工作表複製到 BOOK1的後面
NewBook.Close True, "c:\test\AA.XLS" '關閉BOOK1 存檔為 "c:\test\AA.XLS"
''''''''''''''''''''''''''''''''''''''''''
Set NewBook = Workbooks.Open("c:\export\BOOK3.XLS") '開啟BOOK3
.Sheets(Array("Sheet4", "Sheet5", "Sheet6")).Copy After:=NewBook.Sheets(NewBook.Sheets.Count)
'所選的工作表複製到 BOOK3的後面
NewBook.Close True, "c:\test\BB.XLS" '關閉BOOK3 存檔為 "c:\test\BB.XLS"
End With
End Sub

複製代碼

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

6^#

發表於 2011-7-10 00:20 | 只看該作者

不好意思, 誤會了我的問題,
其實以上只是例子
檔案及工作表名稱及資料多少其實不會固定

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兔年全勤獎章

7^#

發表於 2011-7-10 08:38 | 只看該作者

回復 6# enoch
如此的話為何你1樓的附檔只有三個工作表

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

8^# 倒序看帖

打印

字體大小: tT

發表於 2011-7-10 22:31 | 只看該作者

如何複製工作頁到第二個檔案

我想將工作頁複製到第二個檔案的最後面,

fileN = Cells(2, 1)
sheetn = Cells(2, 2)
Sheets(sheetN).Copy before:=Workbooks(fileN).Sheets(1)

但結果出現錯誤, 陳列索引超出範圍, 請問錯在何處及應如何修改
請指教

chin15

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

9^#

發表於 2011-7-10 22:44 | 只看該作者

Sheets(sheetN).Copy before:=Workbooks(fileN).Sheets(1)

是複製到第二個工作簿的最前面
語句應沒問題，也許是你第二個工作簿沒打開。

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

10^#

發表於 2011-7-10 22:57 | 只看該作者

檢查過檔案有開啟,及附上整個巨集內容,
請指教錯在何處

Sub export()

Sheets("export").Select
Range("A1").Select
fileN = Cells(2, 1)
sheetn = Cells(2, 2)
Workbooks.Add

ChDir "C:\"
ActiveWorkbook.SaveAs Filename:=fileN
ThisWorkbook.Activate

Sheets(sheetn).Select
Sheets(sheetn).Copy before:=Workbooks(fileN).Sheets(1)

End Sub

Book1.zip (8.2 KB)