Gộp nhiều file nối tiếp nhau mà không cần mở hộp chọn

Chia sẻ bởi:hands

★★★★★

‹ Tìm max và min với nhiều điều... Xin các đổi tên hàng loạt folder... ›

Quảng cáo

Yêu cầu:

Yêu cầu:- Tư tìm file dựa vào đặc điểm tên của file
– Ghi nối tiếp nhau

Trong file đính kèm, em có 2 đoạn code:
– Code GopFileExcel: đúng với yêu cầu là ghi nối tiếp, nhưng sử dụng hộp chọn
– Code ImportSheets: đúng với yêu cầu là tự tìm file, nhưng không ghi nối tiếp

Làm sao để kết hợp 2 code này lại để có thể được như yêu cầu ạ. Xin giúp đỡ.

Tức bạn muốn làm y như code gộp nhưng không hiện hộp thoại mà code tự lấy tất cả các tập tin dạng XLSX?
Nếu thế thì vấn đề cụ thể này của bạn có thể giải quyết như sau. Tôi chả sửa, cũng chả làm cách khác mà chỉ gộp 2 code thành một thôi. Chẳng qua là lấy gương mặt thiên thần của cô A, lấy đường cong của cô B, và lấy sự dịu dàng của cô C để tạo cô D hoàn hảo. Thế thôi.

Sub Gop()
Dim x As Integer, directory As String, fileName As String, wb As Workbook

Application.ScreenUpdating = False
    Application.DisplayAlerts = False

directory = (ThisWorkbook.Path & "")
    fileName = Dir(directory & "*.xlsx")

Do While fileName <> ""
        Set wb = Workbooks.Open(fileName)

If x = 0 Then
            wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1")
        Else
            lr = ThisWorkbook.Sheets(1).UsedRange.Rows.Count
            wb.Sheets(1).UsedRange.Offset(1).Copy ThisWorkbook.Sheets(1).Range("A" & lr + 1)
        End If

wb.Close False
        x = x + 1
        fileName = Dir()
    Loop

Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

www.giaiphapexcel.com/diendan/threads/g%E1%BB%99p-nhi%E1%BB%81u-file-n%E1%BB%91i-ti%E1%BA%BFp-nhau-m%C3%A0-kh%C3%B4ng-c%E1%BA%A7n-m%E1%BB%9F-h%E1%BB%99p-ch%E1%BB%8Dn.140253/