Tôi có một file *.xml làm sao có thể dùng code VBA để xuất ra sheet được không?

[locphat6899]

Tôi có 1 file xml kết quả kế toán do công ty đưa ra,khi mở thuần file đó trong excel thì nhìn được nhưng mà định dạng xấu quá do đó tôi muốn dùng code để đưa dữ liệu file xml ra sheet excel tôi đang dùng được không?
Bạn nào biết không giúp tôi với.Thanks

 

[locphat6899]

mình thử dùng code như thế này mà vẫn báo lỗi:Recordset cannot be created.Source XML is incomple or invalid
Dim rst As ADODB.Recordset
Dim stCon As String, stFile As String
Dim i As Long, j As Long

Set rst = New ADODB.Recordset

stFile = PathFile
'stCon = "Provider=MSPersist;"
stCon = "Provider=MSDAOSP;Data Source=MSXML2.DSOControl.2.6;"
With rst
.CursorLocation = adUseClient
.Open stFile, stCon, adOpenStatic, adLockReadOnly, adCmdFile
Set .ActiveConnection = Nothing
End With

With ActiveSheet
'Add the fieldnames to the first row.
For j = 0 To i - 1
.Cells(1, j + 1).Value = rst.Fields(j).Name
Next j
'Copy the data from the recordset.
.Range("A2").CopyFromRecordset rst
End With
'Closing the recordset.
rst.Close

'Release object from memory.
Set rst = Nothing