Hola, necesito enviar datos de mi dataset a Excel.
Actualmente hago esto:
Dim oExcel As New Excel.Application
Dim oBook As Object
Dim oSheet As Object
Const sSampleFolder = "C:\ExcelData\"
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "Prueba"
'dsdatos es mi dataset
pero cuando quiero pasar mi dataset, me marca error:
Un amigo me dijo ke hiciera esto, pero me marca error de cualquier forma:
oSheet.Range("D3").Value = dsdatos.Tables(0).Rows(0)
oSheet.Range("E3").Value = dsdatos.Tables(0).Rows("nombre")
¿como le hago para imprimir mi data ser en excel?