Asumsi :
>> formula seluruh baris data yang ada jika digabungkan akan menghasilkan
baris-baris file xml yang benar.
*** jika asumsi tidak terpenuhi, maka silakan perbaiki
formula-formula di kolom bantu yang telah dibuat.
>> data di kolom BA mulai baris 2 akan ditulis ke sebuah file
>> penulisan ke file berhenti pada kondisi isi cell pada kolom BA di
baris tersebut adalah nullstring
-------------------------------------
Proses utama untuk menulis ke sebuah file melalui proses iofile
001. sarana membuka file (baru atau yang sudah ada)
OPEN *nama_file_lengkap* FOR OUTPUT AS *nomor_id_file_proses *
'FOR OUTPUT -> sebagai output alias akan
ditulisi; FOR INPUT -> isinya sebagai bahan input alias dibaca
002. sarana menulis data
WRITE #*nomor_id_file_proses * ,
*nilai_data_yang_akan_ditulis_ke_file* 'jika data text akan diapit "
(petik dua)
atau
PRINT #*nomor_id_file_proses * ,
*nilai_data_yang_akan_ditulis_ke_file* 'jika data text ditulis apa
adanya
003. menutup file yang telah dibuka
CLOSE #
*nomor_id_file_proses *
Catatan :
a. bagian *nama_file_lengkap* adalah bertipe string berupa nama file yang
lengkap mulai dari nama drive sampai ekstensi file (bila ada ekstensinya)
b. bagian *nomor_id_file_proses* adalah bertipe integer. Jadi bisa diisi
suatu bilangan bulat positif seperti 1,2,dsb atau jika prosesnya akan
dilakukan terhadap banyak file yang berpotensi akan dikerjakan paralel,
maka bagian *nomor_id_file_proses* bisa berupa variabel bertipe integer
yang bisa di-inisialisasi dengan perintah :
*nomor_id_file_proses* = FREEFILE
c. bagian nomor 002, cukup pilih salah satu, yaitu menggunakan WRITE atau
PRINT sesuai kebutuhan setempat
d. bagian nomor 002 bisa didalam suatu proses tertentu, seperti dalam suatu
proses loop, conditional, dsb.
---------------------------------------
Untuk kasus ini, siapa saja boleh mencobanya dan memposting ke milis.
Berikut urutannya : (bagi yang ingin mencoba tapi belum bisa VBA, bisa
sembari lihat ke blog milis mulai dari sini
<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>.)
1. save as file dengan memilih tipe xlsm, lalu ke VBE dan insert sebuah
general module
2. buat sebuah prosedur sub dengan scope public dengan nama *TulisKeFile*
3. deklarasikan variabel untuk bagian *nama_file_lengkap* yang bertipe
string (misal sFile) dan untuk bagian *nomor_id_file_proses* yang bertipe
integer (misal iFile)
4. inisialisai bagian *nama_file_lengkap* (variabel bernama sFile) dan
*nomor_id_file_proses* (variabel bernama iFile)
>> misal file hasil akan diletakkan di drive X folder MyFolder di sub
folder MySub bernama myFile.kid
sFile = "x:\myfolder\mysub\myfile.kid"
iFile = freefile
5. susun pembuka file (lihat nomor 001) dengan mengganti bagian yang
di-bold dengan nama-nama variabel terkait
6. buat proses loop terhadap kolom BA mulai baris ke-2
7. di dalam blok loop nomor 6, diisi blok pemeriksaan isi cell di kolom BA
dan baris yang sedang di-loop tersebut ada isinya atau tidak.
7.A. jika tidak ada isinya, maka keluar dari loop
*** jika loop dengan FOR NEXT, maka gunakan Exit For. Jika
loop dengan Do Loop, gunakan Exit Do
7.B. jika ada isinya, maka lakukan penulisan data
*** bagian nomor 002 yang menggunakan PRINT, disertai :
- penggantian bagian yang di-bold dengan nama variabel
terkait
- penggantian bagian
*nilai_data_yang_akan_ditulis_ke_file* dengan nilai cells yang sedang
diloop (properti Value)
>> jangan lupa menutup blok pemeriksaan ini.
>> jangab lupa menutup blok loop setelah blok pemeriksaan ditutup
8. tutup file yang selesai digunakan (karena selesai ditulis), yaitu
mengikuti bagian nomor 003 yang disesuaikan bagian yang di-bold dengan nama
variabel terkait
9. [bila perlu] tampilkan kotak pesan singkat kepada user bahwa file tekah
selesai dibuat dan diisi dengan data. Informasikan nama file berserta
lokasinya termasuk hal yang cukup penting bagi user.
10. kembali ke worksheet, buat sebuah shape di salah satu worksheet, assign
macro si shape dan tunjuk nama prosedur sub yang telah dibuat
11. save workbook dan coba tekan si shape. Ketika kotak pesan nomor 9 (jika
dibuat) sudah muncul, silakan cek isi file hasil dan bandingkan dengan yang
seharusnya.
> jika berbeda bunyi teksnya, maka perbaiki formula di kolom bantu
agar bisa sesuai kebutuhan, termasuk kemungkinan untuk menambah header xml
tag.
Wassalam,
Kid.
2014-12-10 17:20 GMT+11:00 kanadhasen...@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Bapak Kid
>
> Selamat Siang Pak Kid.
>
>
> Dengan ini saya lampirkan file
> excel sesuai dengan permintaan bapak dan data xml sebagai referensinya.
>
>
>
> Mohon Bantuannya.
>
> Terima Kasih
>
> Rgrds
>
>
> Kana
>
>
