visual con Excel
Publicado por jaime (1 intervención) el 13/01/2005 17:49:40
Estimado
Urgente necesito saber como mejorar la repidez del llemado de una planilla excel.
Tengo un recordset que estoy pasando a una planilla Excel, pero se demora mucho, existe alguna manera mas rapida ?
GRacias... envio codigo
La cantidad de filas que posee este recordset es de 32.000 aproximadamente, tal cual esta el programa para 1000 filas no tiene problema.
Me gustaria saber como lo hace Microfoft Query ya que este si lo hace mas rapido que mi aplicacion, pero a los usarios no se les puede instalar este elemento del office (Por politica de la empresa)
Esperando una buena respuesta te agradesco desde ya Gracias....
Private Sub Command2_Click()
Set RsMaeitein = New ADODB.Recordset
RsMaeitein.Open \"Select codigo,descor,marca,stotra,estado,codbar,from sa.Maeitein Where Indsel=\'S\' Order by Codigo\", Coneccion, adOpenDynamic, adLockOptimistic
Set ApExcel = CreateObject(\"Excel.application\")
ApExcel.Visible = True
ApExcel.Workbooks.Add
RsMaeitein.MoveFirst
ApExcel.Cells(1, 1).Formula = \"Codigo\"
ApExcel.Cells(1, 2).Formula = Descripcion
ApExcel.Cells(1, 3).Formula = Marca
Urgente necesito saber como mejorar la repidez del llemado de una planilla excel.
Tengo un recordset que estoy pasando a una planilla Excel, pero se demora mucho, existe alguna manera mas rapida ?
GRacias... envio codigo
La cantidad de filas que posee este recordset es de 32.000 aproximadamente, tal cual esta el programa para 1000 filas no tiene problema.
Me gustaria saber como lo hace Microfoft Query ya que este si lo hace mas rapido que mi aplicacion, pero a los usarios no se les puede instalar este elemento del office (Por politica de la empresa)
Esperando una buena respuesta te agradesco desde ya Gracias....
Private Sub Command2_Click()
Set RsMaeitein = New ADODB.Recordset
RsMaeitein.Open \"Select codigo,descor,marca,stotra,estado,codbar,from sa.Maeitein Where Indsel=\'S\' Order by Codigo\", Coneccion, adOpenDynamic, adLockOptimistic
Set ApExcel = CreateObject(\"Excel.application\")
ApExcel.Visible = True
ApExcel.Workbooks.Add
RsMaeitein.MoveFirst
ApExcel.Cells(1, 1).Formula = \"Codigo\"
ApExcel.Cells(1, 2).Formula = Descripcion
ApExcel.Cells(1, 3).Formula = Marca
Valora esta pregunta
0