ofisxp ile denedim,
satır yüksekligini sutun yüksekligini vs. birçok gereksiz bilgiyide birlikte
gönderiyor
ben sadece sutun başlıklarını ve verileri xml ye çevirmek istedim bir türlü başaramadım.
selamalar
Sub xml()
Dim a As String
Dim b As String
Dim i As Integer
Open "C:\dene.xml" For Output As #1
For i = 1 To WorksheetFunction.CountA(Range("A1:A2"))
a = Cells(i, 1)
b = Cells(i, 2)
Print #1, a; b
Next i
Close #1
End Sub
slm sayın xxrt
ilginiz için çok teşekkürler
bu kodda yalnız a1ve a2 hücresini göndemeye çalışyor, malesef başarısız oluyor,
şöyle bir uyarı veriyor.
Metin içeriğinde geçersiz karakter bulundu. 'file:///C:/dene.xml' kaynağı işlenirken hata oluştu.
a1:z100 aralığını xml yapabilirmiyiz.
selamlar...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.