如何多個excel 放在一個excel?

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

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

3^#

發表於 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&謝謝提醒囉!

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2013-11-10 19:18 | 只看該作者

謝謝 c_c_lai 大的熱心~!我好像不還沒有權限耶~
還是我再敘述更清楚一下:
假如果桌面有個資料夾，名稱為" ...
ui123 發表於 2013-11-10 19:03

妳可以將AllFiles 目錄及檔案一起壓縮成 .rar 或 .zip 壓縮檔，
妳便可以上傳了。

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

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

5^#

發表於 2013-11-10 19:34 | 只看該作者

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

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-11-10 19:52 | 只看該作者

回復 5# ui123
試試看

Option Explicit
Sub Ex()
Dim xFileAr, i As Integer, x As Integer, S As Integer
Dim wB As Workbook
With Application.FileDialog(msoFileDialogFilePicker) '選資料夾的視窗
Do '迴圈: 可多次選資料夾
.Show '顯示:資料夾的視窗
For i = 1 To .SelectedItems.Count '選擇的檔案之個數
xFileAr = xFileAr & "," & .SelectedItems(i) '紀錄字串:選擇的檔案之完整路徑
Next
Loop Until .SelectedItems.Count = 0 '一直到沒有選擇檔案
If xFileAr = "" Then Exit Sub
End With
xFileAr = Split(Mid(xFileAr, 2), ",") '紀錄選擇的檔案字串轉換為陣列
Set wB = ThisWorkbook '這程式碼所在的活頁簿 '或是 Workbooks("AAA.XLS") '多個excel放在一個excel
For i = 0 To UBound(xFileAr)
With Workbooks.Open(xFileAr(i)) '要開啟的多個excel...
x = wB.Sheets.Count '這活頁簿的工作表數量
For S = 1 To .Sheets.Count
.Sheets(S).Copy wB.Sheets(x) '工作表複製,
ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
Next
.Close False
End With
Next
End Sub

複製代碼

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

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

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

7^#

發表於 2013-11-10 20:22 | 只看該作者

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

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

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

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

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

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-11-10 20:47 | 只看該作者

本帖最後由 GBKEE 於 2013-11-10 20:48 編輯

回復 7# ui123

For S = .Sheets.Count To 1 Step -1 '索引值由後往前
.Sheets(S).Copy wB.Sheets(1) '複製工作表,在這活頁簿的第1個工作表之前
ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
Next

複製代碼

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

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

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

9^#

發表於 2013-11-10 21:00 | 只看該作者

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

c_c_lai

博士班 Rank: 6 Rank: 6

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

10^#

發表於 2013-11-11 06:24 | 只看該作者

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

(當然還有謝謝 c_c_lai 小狗狗教我上傳資料) ...
ui123 發表於 2013-11-10 20:22

小狗狗只是在懷舊而已，歲月已逝！
順便再提示妳，當要回答對方時，請一定要先點按左下方的 "回復" 選鈕
再行作答。否則對方是不知道妳已回復了，就好比是你會看到 "有(1)消息" 的訊息情況。
還好 GBKEE 版大有留意到，否則一般當事人會不知道因此而無法答覆妳的。
恭喜妳終於得到解答了！
(P.S. 這是引發妳先行上傳檔案的目的，GBKEE 版大不好意思哦)