如何讀取多數EXCEL檔案中同一列or行的數據並進行分析
- 帖子
- 550
- 主題
- 55
- 精華
- 0
- 積分
- 614
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-4-23
|
本帖最後由 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
|
|
|
學習才能提升自己
|
|
|
|
|
發表於 2015-1-21 17:35
| 