.Xml'ye Uygun .Xsl Hzırlama

Merhaba Mustafa Bey, bu kodları kullanabilirsiniz; 

Sub Xml_to_Excel()
    Dim Rky As Object, Evn As Object, Dosyam As Variant
    Cells.ClearContents
    Dosyam = ThisWorkbook.Path & "\ozellikler.xml"
    If Dosyam = False Then Exit Sub
    Set Rky = CreateObject("Scripting.FileSystemObject")
    Set Evn = Rky.Getfile(Dosyam)
    ThisWorkbook.XmlImport URL:=Left(Dosyam, Len(Dosyam) + (Len(Evn.Name) + 1)), _
    ImportMap:=Nothing, Overwrite:=True, Destination:=Range("A1")
    Set Rky = Nothing: Set Evn = Nothing: Dosyam = Empty
End Sub

Bilmeyenler için kodların kullanımı ile ilgili anlatım yapayım:
Excel'i açın ve sayfadayken ALT+F11 tuşlarına birlikte basın. 
Açılan pencerenin üst menüsünden önce Insert sonra da Module seçin ve kodları açılan boş pencereye yapıştırın. Şimdi makroda herhangi bir satırı seçin ve F5 tuşuna basın. 


Not: Ürünler.xml dosyası için bu satırı değiştirebilirsiniz; Dosyam = ThisWorkbook.Path & "\urunler.xml"

Hoşça kalın ! 

Merhaba Mustafa Bey, bu kodları kullanabilirsiniz; 

Sub Xml_to_Excel()
    Dim Rky As Object, Evn As Object, Dosyam As Variant
    Cells.ClearContents
    Dosyam = ThisWorkbook.Path & "\ozellikler.xml"
    If Dosyam = False Then Exit Sub
    Set Rky = CreateObject("Scripting.FileSystemObject")
    Set Evn = Rky.Getfile(Dosyam)
    ThisWorkbook.XmlImport URL:=Left(Dosyam, Len(Dosyam) + (Len(Evn.Name) + 1)), _
    ImportMap:=Nothing, Overwrite:=True, Destination:=Range("A1")
    Set Rky = Nothing: Set Evn = Nothing: Dosyam = Empty
End Sub

Bilmeyenler için kodların kullanımı ile ilgili anlatım yapayım:
Excel'i açın ve sayfadayken ALT+F11 tuşlarına birlikte basın. 
Açılan pencerenin üst menüsünden önce Insert sonra da Module seçin ve kodları açılan boş pencereye yapıştırın. Şimdi makroda herhangi bir satırı seçin ve F5 tuşuna basın. 


Not: Ürünler.xml dosyası için bu satırı değiştirebilirsiniz; Dosyam = ThisWorkbook.Path & "\urunler.xml"

Hoşça kalın ! 

Murat Bey öncelikle teşekkür ederim ilginiz için.

Fakat xsl dosyası olarak kastettiğim Excell formatı değildir.

Klasik Excell  formatı .xls yada .xlsx,'tir.Öyle değil mi?

Benim oluşturmak istediğim dosya formatı .xsl yada .xslt dosyasıdır.

Bu .xsl yada .xslt dosyaları .xml verilerini belli bir formata göre süzerek görüntü verecektir.

dosya formatı ile ilgili bir döküman aşağıdaki linkte mevcuttur.Yalnız geniş bir bilgiye sahip olamadığım için sizlerden yardım almak durumunda kaldım. 

http://bilgiteknoloji.net/xml/xml07_xml_belgelerini_xsl_ile_bicimlendirme.asp  

Yanlış görmüşüm yani. 
Xsl dosyalar ile ilgili bilgim yok maalesef, yardımcı olamayacağım.

İyi günler.