Xin nhờ chỉnh sửa macro

[kingwizard]

Nhờ các bạn chỉnh sửa giúp macro ạ.

Sub Import_File()

Dim fd As FileDialog
Dim FileWasChosen As Boolean

Dim homeWorkbook As Workbook
Set homeWorkbook = ActiveWorkbook

Dim targetBook As Workbook
Dim targetSheet As Worksheet

Application.DisplayAlerts = False

Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Filters.Add "Any Excel Files", "*.csv*"

FileWasChosen = fd.Show

If Not FileWasChosen Then
MsgBox "You didn't select a file"
Exit Sub
End If

fd.Execute

Set targetBook = ActiveWorkbook
Set targetSheet = targetBook.Worksheets(1)

targetSheet.Copy After:=homeWorkbook.Sheets(homeWorkbook.Sheets.Count)
targetBook.Close

Application.DisplayAlerts = True

With homeWorkbook.Sheets(homeWorkbook.Sheets.Count)

End With


End Sub


Hiện tại macro trên mặc dù cho chọn nhiều file nhưng chỉ add được 1 file vào file excel chính.
Mình muốn chọn bao nhiêu file thì add bấy nhiêu file ạ.
Xin cảm ơn

 

[BuiQuangThuan]

Hiện tại macro trên mặc dù cho chọn nhiều file nhưng chỉ add được 1 file vào file excel chính.
Mình muốn chọn bao nhiêu file thì add bấy nhiêu file ạ.
Xin cảm ơn

Nhìn code hình như thiếu cái đoạn duyệt qua từng item được chọn nữa nên nó chỉ lấy kết quả của cái đầu tiên (Chính là cái workbook đầu ) như bạn nói á

 

[kingwizard]

Nhìn code hình như thiếu cái đoạn duyệt qua từng item được chọn nữa nên nó chỉ lấy kết quả của cái đầu tiên (Chính là cái workbook đầu ) như bạn nói á

Có thể giúp mình được không ạ?

 

[snow25]

Nhờ các bạn chỉnh sửa giúp macro ạ.

Sub Import_File()

Dim fd As FileDialog
Dim FileWasChosen As Boolean

Dim homeWorkbook As Workbook
Set homeWorkbook = ActiveWorkbook

Dim targetBook As Workbook
Dim targetSheet As Worksheet

Application.DisplayAlerts = False

Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Filters.Add "Any Excel Files", "*.csv*"

FileWasChosen = fd.Show

If Not FileWasChosen Then
MsgBox "You didn't select a file"
Exit Sub
End If

fd.Execute

Set targetBook = ActiveWorkbook
Set targetSheet = targetBook.Worksheets(1)

targetSheet.Copy After:=homeWorkbook.Sheets(homeWorkbook.Sheets.Count)
targetBook.Close

Application.DisplayAlerts = True

With homeWorkbook.Sheets(homeWorkbook.Sheets.Count)

End With


End Sub


Hiện tại macro trên mặc dù cho chọn nhiều file nhưng chỉ add được 1 file vào file excel chính.
Mình muốn chọn bao nhiêu file thì add bấy nhiêu file ạ.
Xin cảm ơn

Thử xem cái video này.

Liên kết: https://youtu.be/jPa491Bp7KU