** mztolo 2006 menyimpan dlm format csv
LOCAL nama,alamat, hasil

nama="TOLO"
alamat="'001"
hasil="c:\dataku1.csv"

oxls=CREATEOBJECT("Excel.Application")
obuk=oxls.workbooks.add()

WITH oxls.activesheet
	.range("b1").value=nama
	.range("b2").value=alamat
	** .range("b2").numberformat="General"
	.range("b1:b2").interior.color=RGB(192,192,192)
ENDWITH

obuk.saveas(hasil)
oxls.quit()
RELEASE oxls