Pak Wie, saya mau minta tolong 1 hal lagi ya… :-)
Begini Pak, saya rencananya hasil dari MSFlexGrid tersebut akan di
simpan ke Excel file, saya sudah menggunakan coding di bawah tapi selalu muncul
pesan Run-time Error 1004, No current record’
Dim i As Integer
Dim Row, Col, F As Long
Dim XlApp1 As Excel.Application
Dim XlBook1 As Excel.Workbook
Set XlApp1 = CreateObject("Excel.Application")
Set XlBook1 = XlApp1.Workbooks.Open("C:\Windows\TR-MONTHLY.XLS")
Dim XlSheet1 As Excel.Worksheet
Set XlSheet1 = XlBook1.Worksheets(1)
For i1 = 12 To Data1.Recordset.RecordCount + 11
XlSheet1.Cells(i1, 1).Value = Data1.Recordset!Usr
XlSheet1.Cells(i1, 2).Value = Data1.Recordset!TGL
XlSheet1.Cells(i1, 3).Value = Data1.Recordset!Kode
XlSheet1.Cells(i1, 4).Value = Data1.Recordset!Kegiatan
XlSheet1.Cells(i1, 5).Value = Data1.Recordset!J
XlSheet1.Cells(i1, 6).Value = Data1.Recordset!Ket
Data1.Recordset.MoveNext
Next i1
XlSheet1.Application.SaveWorkspace
XlSheet1.Application.Quit
Set XlSheet1 = Nothing
XlApp1.Application.Quit
Set XlApp1 = Nothing
Mohon bantuannya ya Pak dan terima kasih sekali lagi :-)
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf
Of wiequadrat
Sent: 25 Februari 2008 16:27
To: [email protected]
Subject: [indoprog-vb] Re: Tanya penjumlahan R-1
sama sama. semoga berhasil juga. eh karena saya tak tahu email pribadi
anda jadi ada sedikit tambahan.
pada saat anda menambahkan kontrol Flexgrid ke dalam form, jangan lupa
untuk "right click" flex grid nya dan pilih properties. lalu isi di
Columns = 7. yang lain biarkan default saja
--- In [email protected]
<mailto:indoprog-vb%40yahoogroups.com> , "Didi" <[EMAIL PROTECTED]> wrote:
>
> Terima kasih Pak Wie atas bantuannya. Saya menggunakan MSFlexGrid.
> Saya akan coba coding yang Bapak berikan dulu, nanti saya kabarkan
kembali.
