Sửa code: Chạy code cho tất cả các File trong folder nhưng nó báo lỗi vì tên file có dấu tiếng Việt

[LienDong]

Em có nhờ anh, chị sưu tầm được code: chạy code cho tất cả các file trong folder nhưng code báo lỗi nếu như tên file có dấu tiếng Việt.
Dù em cũng đã sưu tầm được

Xin Code có thể bỏ dấu Tiếng Việt ở tiêu đề các file

Các file của em các năm trước đây (2005, 2006...)do để dễ nhìn, cơ quan em đánh tên file đều có dấu Tiếng Việt, trong quá trình sử dụng rất nhiều bất tiện: một số tính năng, các phần mềm không thể thao tác được với file này, trong khi số file trên máy hàng ngàn file (một số file minh họa đính...

www.giaiphapexcel.com

Nhưng em không muốn đổi tên file của người khác gởi, vậy em nhờ anh, chị giúp em sửa code ở dưới

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub


( nguồn code: https://www.extendoffice.com/documents/excel/5332-excel-run-macro-multiple-workbooks.html)
Em cảm ơn các anh, chị!

 

[ndu96081631]

Em có nhờ anh, chị sưu tầm được code: chạy code cho tất cả các file trong folder nhưng code báo lỗi nếu như tên file có dấu tiếng Việt.
Dù em cũng đã sưu tầm được

Xin Code có thể bỏ dấu Tiếng Việt ở tiêu đề các file

Các file của em các năm trước đây (2005, 2006...)do để dễ nhìn, cơ quan em đánh tên file đều có dấu Tiếng Việt, trong quá trình sử dụng rất nhiều bất tiện: một số tính năng, các phần mềm không thể thao tác được với file này, trong khi số file trên máy hàng ngàn file (một số file minh họa đính...

www.giaiphapexcel.com

Nhưng em không muốn đổi tên file của người khác gởi, vậy em nhờ anh, chị giúp em sửa code ở dưới

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub


( nguồn code: https://www.extendoffice.com/documents/excel/5332-excel-run-macro-multiple-workbooks.html)
Em cảm ơn các anh, chị!

Dùng hàm Dir nên nó bị lỗi với tên file Unicode là phải rồi. Bạn phải dùng Scripting.FileSystemObject nha

 

[LienDong]

Dùng hàm Dir nên nó bị lỗi với tên file Unicode là phải rồi. Bạn phải dùng Scripting.FileSystemObject nha

Cụ thể thì thay thế như thế nào ạ, anh hướng dẫn cho em nha (vì những code này là em sưu tầm nên chẳng hiểu nó)

 

[ndu96081631]

Cụ thể thì thay thế như thế nào ạ, anh hướng dẫn cho em nha (vì những code này là em sưu tầm nên chẳng hiểu nó)

Đại khái vầy

Sub LoopThroughFiles()
  Dim fso As Object
  Dim xFd As FileDialog
  Dim xFile As Variant
  Dim sType As String
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
  If xFd.Show = -1 Then
    For Each xFile In fso.GetFolder(xFd.SelectedItems(1)).Files
      sType = fso.GetFile(xFile).Type
      If sType Like "Microsoft Excel*Worksheet" Then
        With Workbooks.Open(xFile.Path)
          'Code here
        End With
      End If
    Next
  End If
End Sub

 

[LienDong]

Code chạy tốt rồi ạ, một lần nữa em cảm ơn anh.

 

[ndu96081631]

Code chạy tốt rồi ạ, một lần nữa em cảm ơn anh.

Chưa chắc đâu nha!
Nếu file chứa code đặt trong thư mục cần duyệt file thì... coi chừng nó sẽ duyệt luôn file "~....."

 

[HeSanbi]

Bạn tham khảo code

Lấy danh sách đường dẫn File và thư mục trong VBA

Hai hàm dưới đây sẽ giúp chúng ta thực hiện lấy tất cả File hoặc Path trong một thư mục hoặc file và các thư mục bên trong thư mục. Hàm ListAllFiles và các tham số: 1. aFolder- Đối số là chuỗi hoặc mảng: Là Path của Folder cần lấy List File 2. FSO - Đối số Object: Truyền vào Object để giải...

www.giaiphapexcel.com

 

[Kiều Mạnh]

Đại khái vầy

Sub LoopThroughFiles()
  Dim fso As Object
  Dim xFd As FileDialog
  Dim xFile As Variant
  Dim sType As String
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
  If xFd.Show = -1 Then
    For Each xFile In fso.GetFolder(xFd.SelectedItems(1)).Files
      sType = fso.GetFile(xFile).Type
      If sType Like "Microsoft Excel*Worksheet" Then
        With Workbooks.Open(xFile.Path)
          'Code here
        End With
      End If
    Next
  End If
End Sub

Nếu trong Folder mà có 1 ngàn file Excel to đùng là nhọc he Anh

 

[LienDong]

Chưa chắc đâu nha!
Nếu file chứa code đặt trong thư mục cần duyệt file thì... coi chừng nó sẽ duyệt luôn file "~....."

Dạ file của em có code LoopThroughFiles thì em để khác thư mục mà em muốn chạy code

Bạn tham khảo code

Cảm ơn anh!

Nếu trong Folder mà có 1 ngàn file Excel to đùng là nhọc he Anh

Trong 1 Folder của em không quá 50 file đâu anh