xml dosyasından veri alma

[fireman64]

Selam kapalı bir xml dosyasını makro ile çalışma sayfasına açtırıp belirli hücreleri textboxa alabilirmiyiz _?

 

[Zeki Gürsoy]

Örnek....

Sub Get_XML()

    Set XML = CreateObject("MSXML2.DOMDocument")
    
    XML.async = False
 
    bool = XML.LoadXML("c:\dosya.xml")
    
    MsgBox XML.getElementsByTagName("buraya_tag_adını_yazın").Item(0).Text
 
End Sub

 

[fireman64]

Bilgisayarda kayıtlı xml dosyası gözat yöntemiyle bulunarak açılmasını istiyorum örneğe göz atabilirseniz Teşekkürler

 

[fireman64]

Zeki hocam bu konuda yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Merhaba,

Ben hiç "xml" dosya kullanmadım ama Zeki beyin önerdiği kodu kendi kodunuza aşağıdaki gibi adapte ederseniz sonuç alabilirsiniz.

Private Sub CommandButton1_Click()
    Dim fso As Object, ad As Object
    ChDir ("c:\")
    dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="Bir dosya seçiniz")
    If dosya = False Then Exit Sub
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ad = fso.Getfile(dosya)
 
    TextBox1.Text = Left(dosya, Len(dosya) + (Len(ad.Name) + 1))
 
    Set XML = CreateObject("MSXML2.DOMDocument")
 
    XML.async = False
 
    bool = XML.LoadXML(dosya)
 
    Range("A1") = XML.getElementsByTagName("[COLOR=red]buraya_tag_adını_yazın[/COLOR]").Item(0).Text
 
    Call assıl
End Sub

 

[fireman64]

Hocam bu şekilde sorunu çözdüm yardımınız için teşekkürler

Private Sub CommandButton1_Click()
Range("a1:z5000").Select
Selection.ClearContents
Dim fso As Object, ad As Object
ChDir ("C:\Users\Mehmet\Desktop")
dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.xml),*.xml", Title:="Bir dosya seçiniz")
If dosya = False Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.Getfile(dosya)

TextBox1.Text = Left(dosya, Len(dosya) + (Len(ad.Name) + 1))


    ActiveWorkbook.XmlImport URL:= _
    TextBox1.Value, ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$A$1")
    
End Sub

[/QUOTE]