DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
'Haluk - 23/03/2024
'
Dim xDoc As Object, file_XML As String, i As Integer, j As Integer
Range("A2:F" & Rows.Count) = ""
Set xDoc = CreateObject("MSXML2.DOMDocument")
xDoc.async = False
xDoc.validateOnParse = False
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
.Filters.Add "Beyanname", "*.xml", 1
If .Show = True Then
file_XML = .SelectedItems(1)
Else
GoTo SafeExit:
End If
End With
xDoc.Load file_XML
Set objNodeList = xDoc.getElementsByTagName("kesinti")
For i = 0 To objNodeList.Length - 1
For j = 0 To objNodeList(i).ChildNodes.Length - 1
Cells(i + 2, j + 1) = objNodeList(i).ChildNodes(j).Text
Next
Next
SafeExit:
Set xDoc = Nothing
End Sub