Pak Wie, sepertinya ada yang slah dengan FOR-NEXT saya dech… bisa Bantu ya Pak… Jadi begini pada saat di simpan ke Excel file tidak di mulai dari urutan pertama pada MSFlexGrid1 melainkan urutan ke 18.
Trims sebelumnya :-) _____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of wiequadrat Sent: 26 Februari 2008 8:41 To: [email protected] Subject: [indoprog-vb] Re: Tanya penjumlahan R-1 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] <mailto:indoprog-vb%40yahoogroups.com> , "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:indoprog-vb%40yahoogroups.com> [mailto:[email protected] <mailto:indoprog-vb%40yahoogroups.com> ] On Behalf Of wiequadrat > Sent: 25 Februari 2008 16:27 > To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> > 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> <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. > [Non-text portions of this message have been removed]
