合併一個excel內的幾個worksheet的內容在另一個excel內的一個worksheet內
- 帖子
- 438
- 主題
- 67
- 精華
- 0
- 積分
- 531
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-5-28
|
合併一個excel內的幾個worksheet的內容在另一個excel內的一個worksheet內
 合併3個EXCEL.rar (18.97 KB)
Private Sub cmdMerge_Click()
Dim a, b, c As Integer '宣告A,B,C為整數
Dim objsheet As Worksheet
Source = Excel.ActiveWorkbook.Name '新檔案視窗編號
n = Range("b3")
m = Range("b4")
hmerger = UCase(Range("b5")) '是否為水平合併
'將之前合併的結果清除
Sheet2.Range("A:AB").Clear
z = 1
i = 1
Filename1 = Range("b" & 6) & "." & Range("b2")
Filename2 = Range("b" & 7) & "." & Range("b2")
Filename3 = Range("b" & 8) & "." & Range("b2")
Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename1
Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename2
Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename3
WorkName = Excel.ActiveWorkbook.Name ' |
|
|
|
|
|
|
|
- 帖子
- 438
- 主題
- 67
- 精華
- 0
- 積分
- 531
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-5-28
|
回復 2# Hsieh
請問如果將幾個不同的excel合併可以嗎？這個只是將一個excel的不同worksheet合併。但不同的excel我就想不到，怎樣解決？ |
|
|
|
|
|
|
|
發表於 2012-11-18 11:01
| 
