RE:Exportar datos a excel
Espero que te sirva
Sub Exportar_Excel()
Dim xAppExcel As Excel.Application
Dim xWrkExcel As Excel.Workbook
Dim xShtExcel As Excel.Worksheet
Dim intNewSheets As Integer
Dim strFilName As String
Dim Registro As Long
comDialog.CancelError = True
On Error GoTo Error_HandlerCommon
comDialog.Filter = "(Archivo Excel) *.xls|*.xls"
comDialog.Flags = cdlOFNCreatePrompt Or cdlOFNHideReadOnly Or cdlOFNNoReadOnlyReturn
comDialog.DialogTitle = "Guardar"
comDialog.InitDir = App.Path
On Error GoTo Error_HandlerCommon
comDialog.ShowSave
strFilName = comDialog.FileName
If Trim(strFilName) = "" Then Exit Sub
strFilName = comDialog.FileName
Screen.MousePointer = vbHourglass
On Error GoTo Error_Handler
Set xAppExcel = CreateObject("Excel.Application")
If xAppExcel Is Nothing Then
MsgBox "Cannot Open Microsoft Excel For Export", vbExclamation + vbOKOnly, Me.Caption
Call MessageStatusBar(Msg2, False)
Screen.MousePointer = Default
Exit Sub
End If
intNewSheets = xAppExcel.SheetsInNewWorkbook
xAppExcel.SheetsInNewWorkbook = 1
On Error GoTo Error_Handler
Set xWrkExcel = xAppExcel.Workbooks.Add
xAppExcel.SheetsInNewWorkbook = intNewSheets
Set xShtExcel = xWrkExcel.Sheets(1)
Registro = flexGrid.Rows - 1
rs.MoveFirst
Do Until rsDetxRMark.EOF
DoEvents