xml olarak hazırlanmış olan beyaname excel almak

[SMMM1983]

xml olarak hazırlamış olduğumuz beyannamelerin excel aktarılmasını sağlayacak makrolara ihtiyacım var kolay gelsin iyi çalışmar

 

[Zeki Gürsoy]

Bizim de; beyannamenin hangi bilgilerinin hangi hücrelere gelmesi gerektiğini gösteren örnek bir Excel dosyası ile, üzerinde çalışıp test yapabileceğimiz örnek bir beyanname XML dosyasına ihtiyacımız var...

İsteğiniz açık değil.

.

 

[SMMM1983]

xml dosyası

 

[SMMM1983]

xml dosyayı yükleyemiyorum neden olabilir

 

[Haluk]

Zip olarak yukleyin..

.

 

[SMMM1983]

xml

 

[Haluk]

Zeki beyin belirttiği gibi hangi verilerin alıncağı ve Excel'de nereye yerleştirileceğini gösteren bir Excel dosyası eklemediğiniz için, ben sadece kesintileri Excel'e aktardım. (Örnek olarak verdiğiniz XML dosyası hatalı, aşağıdaki kodu siz doğru düzgün XML dosyalarıyla denersiniz....)

Gerisi size kalmış artık....

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

.

 

[SMMM1983]

Bu kodu kopyaladım fakat çalıştıramadım bu yüzden tekrar rahatsız etmek istemedim

 

[SMMM1983]

ilginiz için teşekkürler

 

[Haluk]

Ekli dosyayı denersiniz...

Dosyaları bilgisayarda bir yere yerleştirin. Excel dosyasını açın, sayfadaki butona tıklayın....

ANONYMOUS - Filemail

Click here to view and download these shared files from Filemail.com

www.filemail.com

.

 

[SMMM1983]

teşekkürler elinize sağlık