Senin, 08 Juni 2015

Excel VBA XML export/import


Tujuan khusus dalam orial ini sebnarnya untuk megubah file xml pada parameter pressure pada Ansys work ench menggunakan VBA. Di ansys pada analisis setting Pessure  magnitudw dpat di import yang berdasar dari xml file. gambar 1



gamar 1. pressure manetitude kilik kanan dan karena siset perubahan terhadap sumbu Y klik export saved dalm file k.xml
Gambar 2 dalam isi k.xml. contok xml file dapat dilihat dibawah ini
https://drive.google.com/file/d/0B2L7mE_KA0H9LTNfR0VYVjdaWGc/view?usp=sharing

Untuk membuka file xml menggunakan excel VBA. buka file excel pada link dibawah ini
https://drive.google.com/file/d/0B2L7mE_KA0H9VnMwa1ZHampabzg/view?usp=sharing

 Gambar3. XML map . untuk membuat harus menimport XML file
https://support.office.com/en-nz/article/Overview-of--XML-in-Excel-f11faa7e-63ae-4166-b3ac-c9e9752a7d80#bmxmlss



Gambar XML source.

Untuk menggunakan file excel klik tombol import/open xml.

 Sub Macro3()
'
' Macro3 Macro
    ActiveWorkbook.XmlMaps("ANSYS_EnggData_Map").Import URL:="e:\k.xml"
End Sub
,-------------------------------------------------------------------
-




untuk menyimpan klik save/export

Sub Macro4()
'
' Macro4 Macro
'

'
Dim obj As XmlMap
Set obj = ActiveWorkbook.XmlMaps("ANSYS_EnggData_Map")

' ActiveWorkbook.XmlMaps("ANSYS_EnggData_Map").Export URL:="e:\k4.xml"

  ActiveWorkbook.SaveAsXMLData "e:\k.xml", obj
    Range("G7").Select
End Sub


reference

https://support.office.com/en-nz/article/Overview-of--XML-in-Excel-f11faa7e-63ae-4166-b3ac-c9e9752a7d80#bmxmlss

https://msdn.microsoft.com/en-us/library/office/ff834616.aspx