Abrir

"Fernando Kohan" escribió en el mensaje news:

Tengo una macro, que necesito que despues de apretar el OK en un msgbox me
automaticamente mande el abrir dialogo pra tener que abrir un documento.

Gcs

Fenarro

Puedes usar el método GetOpenFilename del objeto Application, algo como:

Dim varFichero As Variant
If Application.GetOpenFilename("Libros de Microsoft Excel (*.xls),*.xls") Then Workbooks.Open varFichero

si bien el código puede cambiar, dependiendo de qué tipo/s de documento/s tengas que abrir.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando excelente.

El problema es el siguiente. El archivo es un TXT, modifique lo que me
dijisten a *.txt
La macro funciona perfecto pero cuando abro el archivo me dice se a
producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos

Que significa.

Gcs

fenarro


"Fernando Arroyo" escribió en el mensaje
news:
"Fernando Kohan" escribió en el mensaje
news:

Tengo una macro, que necesito que despues de apretar el OK en un msgbox me
automaticamente mande el abrir dialogo pra tener que abrir un documento.

Gcs

Fenarro

Puedes usar el método GetOpenFilename del objeto Application, algo como:

Dim varFichero As Variant
If Application.GetOpenFilename("Libros de Microsoft Excel
(*.xls),*.xls") Then Workbooks.Open varFichero

si bien el código puede cambiar, dependiendo de qué tipo/s de documento/s
tengas que abrir.
Un saludo.


Fernando Arroyo
MS MVP - Excel

A mí las siguientes líneas me funcionan:

Dim varFichero As Variant
If Application.GetOpenFilename("Archivos de texto(*.txt),*.txt") Then Workbooks.Open varFichero

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Kohan" escribió en el mensaje news:

Fernando excelente.

El problema es el siguiente. El archivo es un TXT, modifique lo que me
dijisten a *.txt
La macro funciona perfecto pero cuando abro el archivo me dice se a
producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos

Que significa.

Gcs

fenarro

Me dice no coinciden los tipos, que sera.

Fenarro

"Fernando Arroyo" escribió en el mensaje
news:#
A mí las siguientes líneas me funcionan:

Dim varFichero As Variant
If Application.GetOpenFilename("Archivos de texto(*.txt),*.txt") Then
Workbooks.Open varFichero

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Kohan" escribió en el mensaje
news:

Fernando excelente.

El problema es el siguiente. El archivo es un TXT, modifique lo que me
dijisten a *.txt
La macro funciona perfecto pero cuando abro el archivo me dice se a
producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos

Que significa.

Gcs

fenarro

Prueba esto (para abrir el *.txt en Excel):
Sub test()
Dim varFichero As Variant
varFichero = Application.GetOpenFilename("Archivos de
texto(*.txt),*.txt")
Workbooks.OpenText varFichero
End Sub

si necesitas abrirlo fuera de Excel tendras q crear el objeto como por
ejemplo:
Set fs = CreateObject("Scripting.FileSystemObject")


"Fernando Kohan" wrote in message
news:%

Me dice no coinciden los tipos, que sera.

Fenarro

"Fernando Arroyo" escribió en el mensaje
news:#
A mí las siguientes líneas me funcionan:

Dim varFichero As Variant
If Application.GetOpenFilename("Archivos de texto(*.txt),*.txt") Then
Workbooks.Open varFichero

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Kohan" escribió en el mensaje
news:

Fernando excelente.

El problema es el siguiente. El archivo es un TXT, modifique lo que me
dijisten a *.txt
La macro funciona perfecto pero cuando abro el archivo me dice se a
producido el Error '13' en tiempo de ejecuciòn No coinciden los tipos

Que significa.

Gcs

fenarro