Seleccionar un txt y convertirlo a xls

Hola Carlos,

Revisa el metodo OpenText.

expression.OpenText(Filename, Origin, StartRow, DataType, TextQualifier,
ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar,
FieldInfo, DecimalSeparator, ThousandsSeparator)

P.ej.:

Sub test()
Workbooks.OpenText _
Filename:="P:\GQC\QUIMICA\EMPOWER\Prueba.TXT", _
DataType:=xlDelimited, _
Comma:=True
End Sub

Saludos,
KL



"carloshernandezy" wrote in message
news:
Hol a todos,


estoy desarrolando un macro para abrir un archivo (*.txt) en un
directorio concreto y quisiera que convirtiera directamente ese archivo

a formato excel sin necesidad de que me pregunte la forma de
convertirlo (delimitado por comas, etc). Que instrucciones debo darle.


El código que utilizo es el siguiente.


'Empieza el código
Option Explicit


Sub SeleccionarArchivo()


'Variable que contendrá el archivo a abrir
Dim ArchivoSeleccionado As Variant


'Nos colocamos en el directorio de trabajo predeterminado _
de Excel (o en cualquier otro que le indiquemos)
'ChDir Application.DefaultFilePath
ChDir "P:\GQC\QUIMICA\EMPOWER"


'Selección del libro
ArchivoSeleccionado = Application.GetOpenFilename _
(filefilter:="Archivo Exportación Empower (*.txt),*.txt", _
Title:="Seleccionar libro.", _
MultiSelect:=False)


'Si se elige algún libro lo abre. Si no, sale del sub.
If ArchivoSeleccionado = False Then Exit Sub Else _
Workbooks.Open (ArchivoSeleccionado)


'
'Resto de instrucciones
'


End Sub