Visual Basic - Exportar datos a excel

Life is soft - evento anual de software empresarial
 
Vista:

Exportar datos a excel

Publicado por Francisco O. (21 intervenciones) el 19/06/2003 22:18:00
Como se puede exporta una consulta sql a excel
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 109
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Exportar datos a excel

Publicado por Yamil Bracho (226 intervenciones) el 19/06/2003 22:49:14
Hay varias maneras de hacerlo :

1) Usando Ole Automation, lo que reuiere que el usuario deba tener excel instalado
2) Generar un CSV, un archivo texto sperador por comas
3) Generar un archivo XML o HTML que las nuevas versiones de excel puedesn leer( Excel 2000, Xp)
4) Conseguir una rutina que genere archivos .BIFF. Puede sconseguir una en www.PlanetSourceCode.com
5) Usar una biblioteca de terceros como por ejemplo ExcelWriter

Saludos
Yamil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 109
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Exportar datos a excel

Publicado por Yamil Bracho (226 intervenciones) el 19/06/2003 22:50:43
Y hay otra forma y es que puede sabrir archivos excel usando ADO version 2.5 o mayor...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Exportar datos a excel

Publicado por manuel (87 intervenciones) el 21/06/2003 11:59:46
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar