Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Joyero.Net
Páginas: [1]
1
« en: Jueves 14 de Junio de 2007, 00:24 »
Hola amigos tengo un problema que realmente me esta dejando sin cabello.
les explico. e migrado un recordset a excel con el sgt. codigo
Dim Jwe As Excel.Workbook
Dim Jhe As Excel.Worksheet
Dim Rng As Excel.Range
If Dir(Jruta + ".Xls") <> "" Then
'Elimina el archivo para sobre-escribirlo
Kill Jruta + ".Xls"
End If
Set Jwe = Workbooks.Add
Jwe.SaveAs Jruta
Set Jhe = Jwe.Worksheets(1)
Set Rng = Jhe.Range("A1]
Páginas: [1]
Mostrar Mensajes
