Seleccionar un txt y convertirlo a xls

09/07/2005 - 21:58 por carloshernandezy | Informe spam
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

Preguntas similare

Leer las respuestas

#1 KL
09/07/2005 - 23:29 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida