que tal exporto a excel con esta rutina desde vb6
aqui envia la instruccion para que exporte
var_cnn = "ODBC;DRIVER=SQL Server;SERVER=" & parametros(0) &
";UID=sa;PWD=" & parametros(3) & ";DATABASE=" & parametros(1)
With oWorkBook.ActiveSheet.QueryTables.Add(Connection:=var_cnn, _
Destination:=oWorkBook.ActiveSheet.Cells(4, 1), SQL:=var_sql)
' Actualizamos los datos...
.Refresh
End With
si son bastantes datos todavia no acaba de exportar sin embargo el
sistema sigue su ejecucion en la sigueinte fila
oSheet.Range("D5").Select
'OEXCEL.ActiveWindow.FreezePanes = True
Screen.MousePointer = vbDefault
OEXCEL.DisplayAlerts = False
oWorkBook.SaveAs var_Nombre_Archivo
oWorkBook.Close 'SaveChanges:=True, Filename:=var_Nombre_Archivo
OEXCEL.Quit
Set oWorkBook = Nothing
Set oSheet = Nothing
Set OEXCEL = Nothing
si todavia no termina el archivo se guarda vacio
como podre controlar esto
gracias a todo ayuda ofrecida
Leer las respuestas