tạo nút Browse để chọn nhiều file

[thuyloitienlu]

Mình muốn tạo 1 nút lệnh Browse trên form để mở 1 thư mục và dùng chuột để chọn 1 hoặc nhiều file excel. ví dụ mình có thư mục là D:\data\ trong đó có chứa 100 file cel, mình muốn tạo nút Browse để chọn 50 file trong đó và lần lượt mở từng file để lấy dữ liệu. các bạn giúp mình với.

 

[thuyloitienlu]

các bạn giúp tôi tạo nút lệnh Browse trên form để chọn 1 hoặc nhiều file cell trong thư mục. ví dụ có thư mục D:\data\ trong đó có 100 file cell, tôi muốn dùng nút Browse để chọn lấy 50 file trong thư mục đó và mở các file cell vừa chọn để copy dữ liệu.

 

[tedaynui]

các bạn giúp tôi tạo nút lệnh Browse trên form để chọn 1 hoặc nhiều file cell trong thư mục. ví dụ có thư mục D:\data\ trong đó có 100 file cell, tôi muốn dùng nút Browse để chọn lấy 50 file trong thư mục đó và mở các file cell vừa chọn để copy dữ liệu.

Mình nghĩ, bạn có thể làm 1 cái Listbox và cho nó Add tên của những File(s) có trong thư mục vào và cho thêm thuộc tính của Listbox là MultiSelect

TDN

 

[khongbietso]

Sub mo_nhieu_file()
    Dim lngCount As Long
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "C:\" ' '
        .Title = "Chon nhieu file de mo"
        .Filters.Add "Excel Files", "*.xls", 1
        .AllowMultiSelect = True
         
        If .Show = -1 Then
            For lngCount = 1 To .SelectedItems.Count
                Workbooks.Open .SelectedItems(lngCount)
            Next lngCount
        End If
         
    End With
     
End Sub