aku mau share juga de..sekalian minta tolong..ni ada logic koding
yang tak buat, untuk transfer ke excell :
'reference microsoft excel library nya di aktifin dulu
Set EXAP = CreateObject("Excel.Application")
Set eX_book = EXAP.Workbooks.Add
Dim i, j
'buat judul di excell
'ada 9 field
EXAP.Cells(1, 1) = "No KW"
EXAP.Cells(1, 2) = "Tgl KW"
EXAP.Cells(1, 3) = "Customer"
EXAP.Cells(1, 4) = "No SJ"
EXAP.Cells(1, 5) = "Deskripsi"
EXAP.Cells(1, 6) = "Jumlah"
EXAP.Cells(1, 7) = "Harga"
EXAP.Cells(1, 8) = "Sub Total"
EXAP.Cells(1, 9) = "No Kontrak"
rs.movefirst
For i = 2 To Val(rs.count) + 1
For j = 1 To 9
EXAP.Cells(i, j) = rs(j - 1)
Next j
rs.movenext
Next i
EXAP.Visible = True
kurang lebih gt.. nah disini banyak kelemahannya..
fieldnyat statis ga flexksibel..ada ide lain ga..
saya terinspirasi dengan tools importnya di access.. ada yang bisa
bantu?
