麻辣家族討論版版 » Excel程式區 » 多筆EXECL 之資料,合在一起

返回列表下一主題上一主題發帖

多筆EXECL 之資料,合在一起

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-5-26 00:54 | 只看該作者

多筆EXECL 之資料,合在一起

EX:

1. 1.XLS 之SHEET1 頁面  A1:A D3: B
                                    A2:1 B2: 2 C2: 3  D2: 4
                                    ..
                                    ..
                                    ..

2.  rt.XLS 之SHEET1 頁面  A1:B D3: R
                                    A2:3 B2: 9 C2: 8  D2: 6

3. ...

4..

合在一起,
變整個LIST

樓主熱帖

收藏

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

9^#

發表於 2011-6-21 08:26 | 只看該作者

DEAR GBKEE

THS.

超級版主 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^#

發表於 2011-5-29 08:01 | 只看該作者

本帖最後由 GBKEE 於 2011-5-29 10:12 編輯

回復 7# tomking
"即可取DATA 是否有機會,先將來源DATA 先轉成.csv, 再取data. " 看不懂啊
檔案一定要開啟試試看

Option Explicit
Sub Ex()
Dim R As Range, i As Long, ii As Integer
With Application.FileDialog(msoFileDialogOpen) '檔案對話方塊執行個體
.AllowMultiSelect = True '可複選檔案
.InitialFileName = "D:\TEST" '可修改為你要開啟的目錄
.Show '顯示檔案對話方塊
If .SelectedItems.Count >= 1 Then '選擇的檔案數
For i = 1 To .SelectedItems.Count '依序在選擇的檔案
With Workbooks.Open(.SelectedItems(i)) '開啟檔案
With .Sheets(1)
For ii = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
Set R = Workbooks("需求.XLS").Sheets("LIST").Cells(Rows.Count, "A").End(xlUp).Offset(1)
R.Resize(, 4) = Array(.[C1], .[E1], .[I2], .[A2])
R.Offset(, 4).Resize(, 11) = .Range(.Cells(ii, "A"), .Cells(ii, "K")).Value
Next
End With
.Close False '關閉檔案不存檔
End With
Next
End If
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

7^#

發表於 2011-5-28 22:21 | 只看該作者

回復 6# GBKEE

DEAR GRKEE

每個需取的EXECEL 檔中,只有一個頁面, 是否有機會,幫忙改成,不用開,來源DATA EXCEL檔，即可取DATA
是否有機會,先將來源DATA 先轉成.csv, 再取data.

以上,請在幫忙

超級版主 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^#

發表於 2011-5-27 14:47 | 只看該作者

回復 5# tomking
需求.xls,OS124.xls,OS123.xls 等都開啟的狀態下的程式碼

Option Explicit
Sub Ex()
Dim MyBook As Workbook, B As Workbook, R As Range, i As Long
Set MyBook = Workbooks("需求.XLS")
For Each B In Workbooks '
If B.Name <> MyBook.Name Then
With B.Sheets(1)
For i = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
Set R = MyBook.Sheets("LIST").Cells(Rows.Count, "A").End(xlUp).Offset(1)
R.Resize(, 4) = Array(.[C1], .[E1], .[I2], .[A2])
R.Offset(, 4).Resize(, 11) = .Range(.Cells(i, "A"), .Cells(i, "K")).Value
Next
End With
End If
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

5^#

發表於 2011-5-27 12:31 | 只看該作者

附上附件... 感謝.

data.rar (9.11 KB)

附件

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-5-27 10:32 | 只看該作者

資料~匯入外部資料

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2011-5-26 09:48 | 只看該作者

回復 1# tomking

方便用一個檔案當例子說明嗎...
不然這樣很籠統

超級版主 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兔年全勤獎章

2^#

發表於 2011-5-26 08:33 | 只看該作者

回復 1# tomking
合在一起, 變整個LIST
合在哪裡要說清楚

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。

返回列表下一主題上一主題