Programación General > Visual Basic 6.0 e inferiores

 Rs A Excel

(1/1)

carlosjrey:
Hola muchachos!

Alguien podria asesorarme para exportar mis resultados de una consulta a excel? <_<

Gracias..

Brroz:
Hola carlosjrey.


--- Código: Text --- Private Sub ExportarXls(Byval Rs as Recodset)      On Error GoTo Err_XLS      Dim objApp As Object   Dim objWb As Object   Dim objSh As Object   Dim lngR As Long, lngC As Long    If Rs Is Nothing Then goto Exit_Xls      Set objApp = CreateObject(&#34;Excel.Application&#34;)   Set objWb = objApp.WorkBooks.Add   Set objSh = objWb.ActiveSheet      For lngC = 0 To Rs.Fields.Count - 1       ObjSh.Cells(1, lngC + 1) = Rs.Fields(lngC).Name   Next LngC    If Rs.RecordCount &#62; 0 Then Rs.MoveFirst   lngR = 1    Do Until Rs.EOF        lngR = lngR + 1        For lngC = 0 To Rs.Fields.Count - 1            objSh.Cells(lngR, lngC + 1) = Rs.Fields(lngC).Value        Next lngC        Rs.MoveNext   Loop    objWb.SaveCopyAs &#34;c:&#092;ruta&#092;nombre.xls&#34;   objWb.Saved = True Exit_XLS:   On Local Error Resume Next   Rs.Close   Set Rs = Nothing   objApp.Close   objApp.Quit   Set objSh = Nothing   Set objWb = Nothing   Set objApp = Nothing   Exit Sub Err_XLS:   MsgBox &#34;(&#34; & Err.Number & &#34;) &#34; & Err.Description, vbCritical, &#34;Xls&#34;   Resume Exit_XLS   End Sub  
El código es prácticamente el mismo que le di a rechy unos cuantos post atrás... pero la comodidad es la comodidad...

Ale, abur.

carlosjrey:
Gracias...  exacto lo que buscaba!   :comp:

Navegación

[0] Índice de Mensajes