Xml export dosya yolu

[Costcost]

Merhabalar,

masaüstüne xml klasörüne excelden export edilen xml dosyasını bu klasöre kaydeden kod yazmaya çalıştım ama type mismatch hatası bazen de system hatası aldım.
konu hakkında yardımlarınızı istiyorum. ilginiz için şimdiden teşekkürler.

Sub export_xml()
ActiveWorkbook.XmlMaps("map_eşleme").Export URL:="ThisWorkbook.Path & " \ xml \ ""
End Sub

 

[Costcost]

çözümünü buldum:
aşağıdaki kodla masaüstünde yer alan xml klasörüne test.xml olarak atıyor.

şimdi yapmak istediğim şey ise: export yapıldığında üzerine yazıyor. xml klasörüne, günün saati olarak xml dosyası oluştursun.


Sub export_xml()

Dim FilePath As String

FilePath = ActiveWorkbook.Path & "\xml\test.xml"

ActiveWorkbook.XmlMaps("map_Eşlemesi").Export URL:=FilePath, overwrite:=True


End Sub

 

[Costcost]

konu beni açımdan kapanmıştır.

aşağıdaki kod, export yapıldığında xml klasörüne, günün saati olarak xml dosyası oluşturuyor.

Sub export_xml()

Dim FilePath As String
FilePath = ActiveWorkbook.Path & "\xml\" & Format(Now, "dd.mm.yyyy_hh_mm_ss") & ".xml"
ActiveWorkbook.XmlMaps("map_Eşlemesi").Export URL:=FilePath, overwrite:=True

End Sub