dari coding koq kelihatannya anda masih memakai datagrid. untuk flexgrid anda cukup mengakses isi setiap cell dengan menggunakan fungsi TEXTMATRIX(row,col)
dengan asumsi FOR-NEXT anda sudah benar =========== XlSheet1.Cells(i1, 1).Value = trim(Data1.textmatrix(i1+11, 1)) XlSheet1.Cells(i1, 2).Value = trim(Data1.textmatrix(i1+11, 2)) XlSheet1.Cells(i1, 3).Value = trim(Data1.textmatrix(i1+11, 3)) XlSheet1.Cells(i1, 4).Value = trim(Data1.textmatrix(i1+11, 4)) XlSheet1.Cells(i1, 5).Value = trim(Data1.textmatrix(i1+11, 5)) XlSheet1.Cells(i1, 6).Value = trim(Data1.textmatrix(i1+11, 6)) =========== kelihatannya data anda mulai dari baris ke 11 jadi saya +11 selain trim anda juga bisa menambahkan fungsi format dsb untuk menampilkan nilai yg benar di excel. --- In [email protected], "Didi" <[EMAIL PROTECTED]> wrote: > > 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" <dc@> wrote: > > > > Terima kasih Pak Wie atas bantuannya. Saya menggunakan MSFlexGrid. > > Saya akan coba coding yang Bapak berikan dulu, nanti saya kabarkan > kembali. >
