如何讀取多數EXCEL檔案中同一列or行的數據並進行分析
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- WIN8.0
- 閱讀權限
- 10
- 註冊時間
- 2015-1-21
- 最後登錄
- 2015-2-16
|
如何讀取多數EXCEL檔案中同一列or行的數據並進行分析
各位先進好，小弟之前研習過C++程式，因為對於VBA倍感親切；先前藉由"錄製巨集"土法煉鋼的學習，不過礙於很多指令名稱不熟悉，又苦無途徑入門，所以想在此和大家請教：
我想要設定一個巨集可以跳出視窗指定資料夾，並把資料夾內所有EXCEL檔案中同一列或是同一行的數據整理到新的活頁簿中：
資料夾內檔案是有規律性的，P.S "ABCDE-Eng-ABC123.1-01.XLS" , "ABCDE-Eng-ABC123.1-02.XLS" , "ABCDE-Eng-ABC123.1-03.XLS" .......數量不一
請問要用甚麼指令在VBA中實現呢?
謝謝∼ |
|
|
|
|
|
|
|
- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
2#
發表於 2015-1-21 17:35
| 只看該作者
本帖最後由 hugh0620 於 2015-1-21 17:37 編輯
回復 1# shauefu
VBA，分段落寫：
1. 先寫出如何指定資料夾
2. 讀取其中一個EXCEL中的資料
下面範例式指定資料夾其中一個excel將資料貼到目標excel中- Private Sub CommandButton2_Click() '匯出資料
- Application.ScreenUpdating = False
- patch = Application.GetOpenFilename("Microsoft Excel 活頁簿 (*.xls), *.xls") '點選檔案
- If patch = False Then
- Exit Sub
- Else
- Workbooks.Open (patch) '開啟檔案
- '匯入新舊資料
- ActiveWorkbook.Sheets(2).Select
- Sheets(2).Range("A3:M3").Select
- Sheets(2).Range(Selection, Selection.End(xlDown)).Copy ThisWorkbook.Worksheets.Item(4).Range("A1").End(xlDown).Offset(1, 0)
- ActiveWorkbook.Close 0
- End If
- Application.ScreenUpdating = True
- End Sub
下面式案例針對同一個excel中sheet的刪除，用相同的方式可以跑每一個excel檔- Private Sub CommandButton2_Click() '刪除
- Dim Sh As Worksheet
- Application.DisplayAlerts = False
- For Each Sh In Sheets
- If Sh.Name <> "Data匯整" And Sh.Name <> "原始Data" Then Sh.Delete
- Next
- Application.DisplayAlerts = True
- End Sub
|
|
|
學習才能提升自己
|
|
|
|
|
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- WIN8.0
- 閱讀權限
- 10
- 註冊時間
- 2015-1-21
- 最後登錄
- 2015-2-16
|
3#
發表於 2015-1-22 13:25
| 只看該作者
|
|
|
|
|
|
|
