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

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

2^#

發表於 2011-7-8 17:54 | 顯示全部帖子

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

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

3^#

發表於 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\
請幫忙

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

4^#

發表於 2011-7-10 00:20 | 顯示全部帖子

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

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

5^# 倒序看帖

打印

字體大小: tT

發表於 2011-7-10 22:31 | 顯示全部帖子

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

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

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

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

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

6^#

發表於 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)