.Xml'ye Uygun .Xsl ...
 
Bildirimler
Hepsini Temizle

.Xml'ye Uygun .Xsl Hzırlama  

  RSS
Mustafa ALBAYRAK
(@MustafaALBAYRAK)
Üye

Merhabalar.

Ekte vermiş olduğum zip'li dosyada Xml dosyaları ve örnek Xsl dosyası vardır.

Bu Xml dosyalarına uygun süzgeç görevi veren .Xsl yada .Xslt dosyası yaratmam gerekiyor.

Bu Xsl yada Xslt dosyasını nasıl üretebilirim? 

Ek: http://yadi.sk/d/flaBQloyERHRu  

Alıntı
Gönderildi : 16/12/2013 20:13
 Anonim

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 ! --)(

CevapAlıntı
Gönderildi : 16/12/2013 22:00
Mustafa ALBAYRAK
(@MustafaALBAYRAK)
Üye

[quote user="Murat OSMA"]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 ! --)([/quote]

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  

CevapAlıntı
Gönderildi : 17/12/2013 23:16
 Anonim

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

İyi günler.  

CevapAlıntı
Gönderildi : 18/12/2013 11:57
Paylaş: