Xml Vba Parsing Xml Parsing

Cara Mengurai XML Menggunakan VBA: Panduan Langkah demi Langkah

Mengurai XML mungkin terasa menakutkan pada awalnya, terutama bagi mereka yang baru mengenal dunia VBA. Jika Anda merasa perlu mengakses nilai dari struktur XML, seperti mengekstrak koordinat X dan Y dari sebuah titik, Anda berada di tempat yang tepat! Dalam pos ini, kita akan menjelajahi proses penguraian XML dalam VBA untuk mengekstrak data secara efisien.

Masalah: Ekstraksi Nilai X dan Y

Bayangkan Anda memiliki string XML yang terlihat seperti ini:

<PointN xsi:type='typens:PointN' 
xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' 
xmlns:xs='http://www.w3.org/2001/XMLSchema'>
    <X>24.365</X>
    <Y>78.63</Y>
</PointN>

Anda ingin mengekstrak nilai X dan Y sehingga Anda dapat menyimpannya sebagai variabel integer dalam kode VBA Anda. Sebagai pemula dalam XML dan VBA, pertanyaannya muncul: Bagaimana saya bisa mencapainya?

Solusi: Menggunakan MSXML2.DOMDocument

Untungnya, ada metode yang sederhana untuk mengurai data XML menggunakan objek MSXML2.DOMDocument dalam VBA. Berikut adalah langkah-langkah yang harus Anda ikuti:

Langkah 1: Siapkan Referensi MSXML2

Sebelum Anda mulai mengkode, pastikan Anda telah mereferensikan pustaka Microsoft XML, v6.0 di editor VBA Anda. Berikut caranya:

  1. Buka editor VBA Anda (Tekan ALT + F11).
  2. Klik pada Tools > References.
  3. Cari Microsoft XML, v6.0 dan centang kotak di sampingnya.
  4. Klik OK.

Langkah 2: Memuat String XML

Anda bisa memuat string XML Anda ke dalam DOMDocument sebagai berikut:

Dim xmlDoc As Object
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")

xmlDoc.LoadXML "<PointN xsi:type='typens:PointN' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xs='http://www.w3.org/2001/XMLSchema'><X>24.365</X><Y>78.63</Y></PointN>"

Langkah 3: Akses Node X dan Y

Setelah struktur XML dimuat, Anda dapat dengan mudah mengakses nilai X dan Y menggunakan metode selectSingleNode:

Dim xValue As Double
Dim yValue As Double

xValue = xmlDoc.SelectSingleNode("//X").Text
yValue = xmlDoc.SelectSingleNode("//Y").Text

Langkah 4: Simpan sebagai Variabel Integer

Jika perlu, Anda dapat mengonversi nilai-nilai ini menjadi integer:

Dim xInt As Integer
Dim yInt As Integer

xInt = CInt(xValue)
yInt = CInt(yValue)

Ringkasan Langkah

  1. Siapkan referensi ke MSXML2.
  2. Muat string XML Anda ke dalam DOMDocument.
  3. Gunakan selectSingleNode untuk mendapatkan nilai X dan Y.
  4. Konversi nilai-nilai tersebut ke integer jika perlu.

Kesimpulan

Mengurai XML dalam VBA mungkin tampak rumit pada awalnya, tetapi dengan objek MSXML2.DOMDocument, tugas tersebut menjadi lebih sederhana. Dengan mengikuti langkah-langkah ini, Anda dapat dengan mudah mengekstrak nilai dari struktur XML dan memanfaatkannya dalam pekerjaan Anda.

Untuk bacaan dan eksplorasi lebih lanjut, pertimbangkan untuk mengunjungi sumber daya berikut:

Dengan panduan ini, Anda akan siap untuk menghadapi penguraian XML dalam proyek VBA Anda. Selamat coding!