Bye bye Karimun

Bye karimun. Hari ini mobil kesayangan ku dijual.. I will miss the good time..

Slo progresss

Tinny boggie... tubeOD

Tube OD dan tinny boggie

Seoul Craiglist

Guitar effek. Biyang x Drive.Fuzz Star

X DRIVE

FUZZ STAR

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

Not flower boy