Hola Palitroquez,
Primero que todo, sin importar cual sea el mejor ambos aportan buena información el que tu me has facilitado me ha servido para comprender mejor el CSV por lo que se Agradece millones.
Segundo Te cuento, probé el código y me arroja algunos errores,
1) no se puede asignar la propiedad underline de la clase font en la siguiente secuencia de código
With obj_Excel.Selection.Font
.Name = "Arial"
.FontStyle = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Underline = xlsUnderlineStyleNone
End With
para solucionarlo, cambio en la siguiente linea por TRUE, asi:
.Underline = xlsUnderlineStyleNone
.Underline = True
2) Segundo error y es el que no puedo solucionar, es el siguiente error en el método SaveAs de la clase Workbook
obj_Excel.ActiveWorkbook.SaveAs _
FileName:=path_Xls, _
FileFormat:=xlNormal, _
password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
obj_Excel.ActiveWorkbook.Close False
Lamentablemente como había dicho anteriormente no he podido saber donde esta el error, si alguien sabe o entiende mejor esta programación una pequeña ayuda se agradecería por millones.
Saludos a todos y que tengan una buena semana.
PD: se me fue decir, que sin embargo sucediendo estos errores logra crear el archivo XLS (excel)..
PD2: Uso el excel 2010, como dato para averiguar si el error se encuentra en la versión de excel que utilizo.