如何多個excel 放在一個excel?

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-10 17:29 | 顯示全部帖子

如何多個excel 放在一個excel?

最近遇到一個難題>''<，情形是這樣的:

我有一個資料夾(可能放在不同位置，所以可能需要一個可以選資料夾的視窗)，裡面有很多excel檔，可能情形如下:

1.A檔名的excel 有兩個sheet,B檔名的excel 的有10個sheet,....(每一個excel 裡面的sheet數目不一定一樣)
2.excel 檔名不一樣，但sheet檔名可能一樣

有辦法將多個excel放在一個excel，不同excel 的sheet檔名可以用: excel檔名"_"sheet檔名來命名?

不知道這個問題會不會太難? .....

樓主熱帖

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2013-11-10 19:03 | 顯示全部帖子

謝謝 c_c_lai 大的熱心~!我好像不還沒有權限耶~
還是我再敘述更清楚一下:
假如果桌面有個資料夾，名稱為"AllFile"
裡面有兩個excel(可能更多)，
一個excel名稱為:
Data1 並且有2個SHEET,名稱為SHEET1,SHEET2
另一個excel名稱為:
Data2 並且有3個SHEET,名稱為SHEET1,SHEET2,SHEET3
(實際上excel數可能更多，每個excel SHEET數量不一定，想放在一個EXCEL裡)
應該可以用迴圈嗎?還是搜尋?...自己的想法如下:
For i=excel名稱
數有幾個sheet 重新命sheet名稱為"excel檔名_原SHEET名稱"
Next i
然後把改好的檔案放在一起....正在學習語法,感謝指教!

還有再次謝謝GBKEE大~ 剛剛才看到您的提醒，Sorry&謝謝提醒囉!

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2013-11-10 19:34 | 顯示全部帖子

AllFile.rar (12.33 KB)
Ya~我會上傳了
不知道你有看到嗎?
應該還要用數sheet?的語法 Worksheets.Count ?
然後For each i .....不管有沒有解，都要感謝您，謝謝!~

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2013-11-10 20:22 | 顯示全部帖子

GBKEE超級版大~可以用，而且竟然可以多層耶! 謝謝你 ^^~

(當然還有謝謝 c_c_lai 小狗狗教我上傳資料)

有個小小疑問，有辦法依照Data1.xlsx_Sheet1然後Data1.xlsx_Sheet2排列順序?
剛剛試一下，好像剛好相反了

還有我會努力把你寫的程式看懂的~

果然是超級版主，超級厲害的!

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2013-11-10 21:00 | 顯示全部帖子

我有試了! 成功了~超開心
這幾天我會努力&試著讀懂它~ 謝謝超級版大 (◕‿◕✿