標題: [發問] 將10個XLS檔案結合成一個檔案(已解決) [打印本頁]

---

作者: jimmuLu    時間: 2011-8-19 14:03     標題: 將10個XLS檔案結合成一個檔案(已解決)

本帖最後由 jimmuLu 於 2011-8-22 10:46 編輯

請問各位大大:

要如何將具有相同工作表及相同資料欄位之XLS資料

結合成一個檔案

巨集?函數?

麻煩囉

---

作者: infoverdad    時間: 2011-8-19 17:15

回復 1# jimmuLu

1. Sub Exx()
   
2. '合併同一資料夾內所有Excel檔之Sheet工作表
   
3. Dim NewName As String
   
4. Dim MyBook As Workbook
   
5. Dim MyFile$, i%, k%
   
6. 
   
7. MyFile = Dir(ThisWorkbook.Path & "\*.xls")
   
8. Set MyBook = ThisWorkbook
   
9. 
   
10. i = 1
    
11. Application.ScreenUpdating = False
    
12. Do While MyFile <> ""
    
13.   If MyFile <> MyBook.Name Then
    
14.      With Workbooks.Open(ThisWorkbook.Path & "\" & MyFile)
    
15.      For k = 1 To Sheets.Count
    
16.         Sheets(k).Select
    
17.         ActiveSheet.Range("a1").Select
    
18.         NewName = Left(MyFile, Len(MyFile) - 4)
    
19.         ActiveSheet.Copy After:=MyBook.Sheets(MyBook.Sheets.Count)
    
20.         ActiveSheet.Name = NewName & "_" & k
    
21.      Next k
    
22.      k = 1
    
23.      Application.DisplayAlerts = False
    
24.      .Close
    
25.        On Error Resume Next
    
26.      End With
    
27.   End If
    
28.   MyFile = Dir
    
29. Loop
    
30. Application.ScreenUpdating = True
    
31. End Sub

複製代碼

---

作者: jimmuLu    時間: 2011-8-22 10:46

回復 2# infoverdad


    感謝您!!

有關VBA的寫法還要跟大大學習

3Qs

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)