Xin giúp đỡ về Gộp các File Excel khác nhau thành mỗi Sheet trên 1 file

[daubo26691]

Chao mn. Em đang sử dụng Code như bên dưới để chạy Macro gộp các File khác nhau thành mỗi sheet trên 1 File. nhưng khi chạy Marcro thì nó mở hộp thoại và bắt chọn các File cần gộp. MN có cách nào để cố định các File đó mà ko cần phải chọn không ạ. Thank mn ! Code e để ở dưới ạ

Bài đã được tự động gộp: 17/3/23

Sub GopFileExcel()
Dim FilesToOpen
Dim x As Integer

On Error GoTo ErrHandler
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", MultiSelect:=True, Title:="Files to Merge")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If

x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

ExitHandler:
Application.ScreenUpdating = True
Exit Sub

ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

 

[Hoàng Tuấn 868]

Vụ này dùng thủ tục "Chao_mn" là ổn luôn.

 

[daubo26691]

Vụ này dùng thủ tục "Chao_mn" là ổn luôn.

Chào a. a có thể tư vấn rõ hơn giúp em chút không ạ. tại em cũng mới vỡ lòng thôi ạ

 

[BuiQuangThuan]

Chào a. a có thể tư vấn rõ hơn giúp em chút không ạ. tại em cũng mới vỡ lòng thôi ạ

Bạn không nên viết tắt trong bài viết.
Cố định các file ở đây bạn đang nói đến là thế nào?

 

[Hoàng Tuấn 868]

Chào a. a có thể tư vấn rõ hơn giúp em chút không ạ. tại em cũng mới vỡ lòng thôi ạ

Thông cảm nha, mình không giúp các trường hợp viết tắt hoặc chêm tiếng Tây.

 

[daubo26691]

Thông cảm nha, mình không giúp các trường hợp viết tắt hoặc chêm tiếng Tây.

dạ anh thông cảm. do em mới tham gia diễn đàn, em sẽ rút kinh nghiệm ạ

Bài đã được tự động gộp: 17/3/23

Bạn không nên viết tắt trong bài viết.
Cố định các file ở đây bạn đang nói đến là thế nào?

Dạ anh thông cảm vì em đã viết tắt. tại em củng mới tham gia nên chưa rõ nội quy ạ. Cố định file là khi mình chạy click-Button thì VBA sẽ tự tổng hợp các file đó không cần phải chọn thủ công như ảnh này ạ

 

[BuiQuangThuan]

dạ anh thông cảm. do em mới tham gia diễn đàn, em sẽ rút kinh nghiệm ạ

Bài đã được tự động gộp: 17/3/23

Dạ anh thông cảm vì em đã viết tắt. tại em củng mới tham gia nên chưa rõ nội quy ạ. Cố định file là khi mình chạy click-Button thì VBA sẽ tự tổng hợp các file đó không cần phải chọn thủ công như ảnh này ạView attachment 287681

Thế trong folder lúc nào cũng có 5 file tên như thế kia à? Không bao giờ nó bị thay đổi hả

 

[daubo26691]

Thế trong folder lúc nào cũng có 5 file tên như thế kia à? Không bao giờ nó bị thay đổi hả

Đúng rồi a. nó luôn như vậy á

 

[BuiQuangThuan]

Đúng rồi a. nó luôn như vậy á

Thế tạo 1 mảng gồm tên 5 file kia. Duyệt qua mảng và open mở 5 file đó luôn. Khỏi xuất hiện hộp thoại chọn nữa là được

 

[HUONGHCKT]

Góp vui
Tôi thì hay làm thế này

.....
For Each File In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Users\Admin\Downloads\ TÊN FOLDER CHỨA FILE CẦN GỘP").Files
    If File.Name Like "* & "DẤU HIỆU ĐỂ NHẬN BIẾT FILE "& *.xls" Then; Như trong bài thì là  "*OT-Line*
        Set WbMoi = Workbooks.Open(File)
......

Lưu ý : Đường dẫn của tôi có thể khác của bạn, Thay đổi đường dẫn cho phù hợp