Ciao a tutti,
ho cercato per tutto il forum ma non sono riuscito a trovare qualcosa di adatto.
Non sono molto pratico di VB6, ma ho bisogno di esportare una MSFlexGrid completa (con tanto di righe, colonne e intestazioni) popolata da Database (.mdb) e alcune Label.. in un file Excel o Word per poi poter modificare eventualmente alcuni dati.
Con una DataGrid CREDO si possa fare in questo modo:
ma con una MSFlexGrid che non ha la funzione Recordset...come devo fare?codice:Private Sub Command4_Click() Dim objExcel As Object Dim objWorkbook As Object ' On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number Then Err.Clear Set objExcel = CreateObject("Excel.Application") If Err.Number Then MsgBox "Can't open Excel." End If End If objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add Call objExcel.Range("A1").CopyFromRecordset(NOMEDATAGRID.Recordset) End Sub
Grazie a tutti!![]()

Rispondi quotando