12
返回列表 上一主題 發帖

如何多個excel 放在一個excel?

ui123

帖子
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檔名來命名?

不知道這個問題會不會太難? .....
收藏 分享

ssthree

帖子
6 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
XP 32bit 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2013-12-10 
最後登錄
2018-6-7 
12#
發表於 2013-12-10 00:28 | 只看該作者
在看到這篇文章前，都用笨方法來操作
您的做法節省了非常多時間
雖然我的檔案太大了，結合檔案的結果，卻造成開檔緩慢
應該是要升級電腦的時候了嗎

TOP

jeffrey628litw

帖子
228 
主題
62 
精華
0 
積分
364 
點名
20  
作業系統
Win 10 
軟體版本
Office 2007 & 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-5 
最後登錄
2024-9-16 

2011兔年全勤獎章
11#
發表於 2013-11-13 21:49 | 只看該作者
真的是超好用的，超級版主真是太強了，版大也很有想法喔，能想出這樣彙整資料的方法。

TOP

c_c_lai

帖子
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 版大不好意思哦)

TOP

ui123

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

論壇榮譽勳章論壇贊助勳章
9#
發表於 2013-11-10 21:00 | 只看該作者
我有試了!  成功了~超開心
這幾天我會努力&試著 讀懂它~ 謝謝  超級版大 (◕‿◕✿

TOP

GBKEE

帖子
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
  1.     For S = .Sheets.Count To 1 Step -1         '索引值由後往前
  2.                 .Sheets(S).Copy wB.Sheets(1)  '複製工作表,在這活頁簿的第1個工作表之前
  3.                 ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
  4.             Next  
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ui123

帖子
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排列順序?
剛剛試一下，好像剛好相反了

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

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

TOP

GBKEE

帖子
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
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xFileAr, i As Integer, x As Integer, S As Integer
  4.     Dim wB As Workbook
  5.     With Application.FileDialog(msoFileDialogFilePicker)    '選資料夾的視窗
  6.         Do                                                  '迴圈: 可多次選資料夾
  7.             .Show                                           '顯示:資料夾的視窗
  8.             For i = 1 To .SelectedItems.Count               '選擇的檔案之個數
  9.                 xFileAr = xFileAr & "," & .SelectedItems(i) '紀錄字串:選擇的檔案之完整路徑
  10.             Next
  11.         Loop Until .SelectedItems.Count = 0                 '一直到沒有選擇檔案
  12.         If xFileAr = "" Then Exit Sub
  13.      End With
  14.      xFileAr = Split(Mid(xFileAr, 2), ",")                   '紀錄選擇的檔案字串轉換為陣列
  15.      Set wB = ThisWorkbook        '這程式碼所在的活頁簿      '或是 Workbooks("AAA.XLS") '多個excel放在一個excel
  16.      For i = 0 To UBound(xFileAr)
  17.         With Workbooks.Open(xFileAr(i))  '要開啟的多個excel...
  18.             x = wB.Sheets.Count                                 '這活頁簿的工作表數量
  19.             For S = 1 To .Sheets.Count
  20.                 .Sheets(S).Copy wB.Sheets(x)           '工作表複製,
  21.                 ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
  22.             Next
  23.             .Close False
  24.         End With
  25.      Next
  26. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ui123

帖子
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 .....不管有沒有解，都要感謝您，謝謝!~

TOP

c_c_lai

帖子
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 壓縮檔，
妳便可以上傳了。

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題