Vấn đề là em có độ 10.000 file xml, tên file được đặt tên theo kiểu random do 1 chương trình nào đó tạo ra. Giờ có cách nào đưa dữ liệu 10.000 file xml đó vào cùng 1 sheet trong excel không. mà không làm thủ công add từng file 1.
Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
Dim sComm As String, tmp As String, tmpFile, Arr, sPath As String
On Error Resume Next
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
sPath = """" & Folder & "*" & Search & "*"""
With CreateObject("Scripting.FileSystemObject")
tmpFile = .GetTempName
sComm = "DIR " & sPath & " /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
With .OpenTextFile(tmpFile, 1, , -2)
tmp = Trim(.ReadAll)
If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
If Len(tmp) Then GetListFile = Split(tmp, vbCrLf)
.Close
End With
End With
Kill tmpFile
End FunctionSub Main()
Dim sFile As String, sFolder As String
Dim aFiles, fleItem, Target As Range
sFolder = CreateObject("Shell.Application").BrowseForFolder(0, "", 1).Self.Path
aFiles = GetListFile(sFolder, "*.xml", True)
Sheet2.UsedRange.Clear
With Application
.DisplayAlerts = False
.ScreenUpdating = False
For Each fleItem In aFiles
Set Target = Sheet2.Range("A60000").End(xlUp).Offset(1)
sFile = CStr(fleItem)
ThisWorkbook.XmlImport sFile, Nothing, True, Target
Next
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub
