SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Joyero.Net 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]