xml_veri çekme ?

[igultekin2000]

iyi günler;
oluşturulan KDV XML dosyasından belli kolonların bilgisini makro ile çekmek mümkün olabilir mi? Formda ve genelde bir örnek bulamadım, Teşekkürler.

 

[Haluk]

Herhalde aramayı iyi yapamamışsınız. Forumda XML'den veri alan bir çok örnek var ..... BA-BS hazırlanması, TCMB'den döviz kurları alınması, faaliyetteki Bankaların listesi ..... vb.

Bunlara bakarak birşeyler üretebilirsiniz.

.

 

[igultekin2000]

Herhalde aramayı iyi yapamamışsınız. Forumda XML'den veri alan bir çok örnek var ..... BA-BS hazırlanması, TCMB'den döviz kurları alınması, faaliyetteki Bankaların listesi ..... vb.

Bunlara bakarak birşeyler üretebilirsiniz.

.

üç harfli olduğu için tek başına aranmıyor, yanına form vs gibi ekler ekledim ama bulamadım. konuyla ilgili link varsa memnun olurum. Teşekkürler

 

[Zeki Gürsoy]

üç harfli olduğu için tek başına aranmıyor, yanına form vs gibi ekler ekledim ama bulamadım. konuyla ilgili link varsa memnun olurum. Teşekkürler

Google' dan arayın... (470 sonuç geliyor) xml site:www.excel.web.tr

.

 

[igultekin2000]

Google' dan arayın... (470 sonuç geliyor) xml site:www.excel.web.tr

.

xml site:www.excel.web.tr güzel yöntem, teşekkürler epey veri çıkıyor

 

[Haluk]

Bu arada, istediğiniz böyle birşey mi bilemiyorum .... incelersiniz.

.

 

[igultekin2000]

Bu arada, istediğiniz böyle birşey mi bilemiyorum .... incelersiniz.

.

Elinize sağlık, aynı bu şekilde yapmaya çalışıyordum. Tekrar teşekkürler, iyi çalışmalar.

 

[igultekin2000]

Bu arada, istediğiniz böyle birşey mi bilemiyorum .... incelersiniz.

.

Tekrar iyi günler; başka bir işlemde bu kodla işlem yapıyorum, her yeni veri de eskisi verinin altına ilave ettirmek mümkün olabilir mi? çok farklı bir kod yapısı olduğu için yorumlayamadım. Tekrar teşekkürler

Sub Test()
'   Haluk - 30/04/2020
'   sa4truss@gmail.com
'
    Dim myXML As Variant, myTable As ListObject
    
    myXML = Application.GetOpenFilename("XML Dosyaları, *.xml", , "XML dosyası seçin")
    
    If Not myXML = False Then
        Set myTable = Sheets("Sayfa1").Range("A1").ListObject
        
        With myTable.XmlMap.DataBinding
          .ClearSettings
          .LoadSettings myXML
          .Refresh
        End With
    Else
        MsgBox "XML dosyası seçmediniz!"
    End If
    
    Set myTable = Nothing
End Sub

 

[Haluk]

Onun için daha değişik bir kod yazmak lazım, bu algoritmayla olmaz....

Forumdaki örnekleri kendinize uyarlamaya çalışın ..... olmazsa, ücretli yardım için özel mesajla bana ulaşabilirsiniz.

.

 

[igultekin2000]

Onun için daha değişik bir kod yazmak lazım, bu algoritmayla olmaz....

Forumdaki örnekleri kendinize uyarlamaya çalışın ..... olmazsa, ücretli yardım için özel mesajla bana ulaşabilirsiniz.

.

tamam, teşekkürler çözemezsen dönüş yaparım.