Exportar datagrid a excel

Hola espero puedas ayudarme te lo agradecería mucho, deseo exportar el contenido de un datagrid a excel, el datagrid esta enlazado a un dataenvironment este tiene instrucciones sql.
Gracias
1

1 respuesta

Respuesta
1
Private Sub ExportOneTable()
'Deberemos referenciar DAO
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
Dim objDB As Database
'Cambiaremos estos datos de acuerdo a nuestras
'necesidades
strExcelFile = "C:\My Documents\MySpreadSheet.xls"
strWorksheet = "WorkSheet1"
strDB = "C:\My Documents\MyDatabase.mdb"
strTable = "MyTable"
Set objDB = OpenDatabase(strDB)
'Si el fichero excel existe, puedes borrarlo aqui
If Dir(strExcelFile) <> "" Then Kill strExcelFile
objDB.Execute _
"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
"].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
objDB.Close
Set objDB = Nothing
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas