Buscar archivo para importar en formulario VB Excel

Tengo un formulario en Vb de excel necesito buscar la opción que mediante un botón me importe un archivo xls o un txt a una hoja especifica pero que me permita buscar la ruta en donde se encuentra dicho archivo.

1 respuesta

Respuesta
1

Prueba asociando al botón un sub parecido a:

Sub prueba()
    Dim vFichero As Variant
    vFichero = Application.GetOpenFilename(filefilter:="Ficheros de Texto (*.txt), *.txt,Libros de Excel (*.xls*), *.xls*", Title:="Seleccionar fichero")
    If vFichero = False Then
        MsgBox "No se seleccionó ningún fichero."
        Exit Sub
    Else
        '
        'Lo que haya que hacer con el fichero seleccionado
        '
    End If
End Sub

Si interesase que la carpeta inicial fuese una determinada, bastaría con usar la instrucción ChDir antes de utilizar GetOpenFilename. Por ejemplo, para que la carpeta inicial fuese C:\Pruebas:

ChDir "C:\Pruebas"

Muchas gracias por tu aporte pero disculpa la verdad aun soy muy novato, ¿cuál debe ser la instrucción para que el archivo que selecciono lo importe a una hoja de excel?.

¿Importarlo? Si es un libro de Excel lo mejor es abrirlo directamente. Y si es un fichero de texto se podría importar desde Datos->'Desde Texto', pero luego hay que completar el Asistente para importar texto, así que si los ficheros de texto tienen siempre la misma estructura lo mejor es grabar una macro la primera vez que se importa y luego utilizar directamente la macro para importar el texto.

La idea es que al abrir el archivo seleccione el contenido de la hoja1 y lo inserte la hoja1 del libro que ejecuta el formulario.

¿Pero se trata de sustituir la hoja1 del libro donde está el formulario con la hoja1 del libro seleccionado?

Si fuese eso, el código podría ser:

Sub prueba()
    Dim vFichero As Variant, wkbLibro As Workbook
    vFichero = Application.GetOpenFilename(filefilter:="Ficheros de Texto (*.txt), *.txt,Libros de Excel (*.xls*), *.xls*", Title:="Seleccionar fichero")
    If vFichero = False Then
        MsgBox "No se seleccionó ningún fichero."
        Exit Sub
    Else
        Set wkbLibro = Workbooks.Open(vFichero)
        Application.DisplayAlerts = False
        ThisWorkbook.Worksheets("Hoja1").Delete
        Application.DisplayAlerts = True
        wkbLibro.Sheets("Hoja1").Copy Before:=ThisWorkbook.Sheets(1)
        wkbLibro.Close savechanges:=False
    End If
End Sub

pero cuidado con este código, porque borrará la hoja1 del libro donde se ejecute. Si vas a probarlo, hazlo en una copia del libro.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar archivos en subcarpetas (fso)

Necesito un poco de ayuda con una duda. Estoy intentando hacer una macro que busque un archivo en una carpeta y subcarpetas. Utilizo el fso y he logrado encontrar un archivo en una carpeta pero no logro entender como buscar en subcarpetas.
1 respuesta

Obtener el nombre de un archivo de acuerdo a una ruta ya obtenida en variable

Mi pregunta es la como puedo obtener el nombre de un aechivo que acabo de abrir con un opendialog. Lo que quiero hacer es copiar distintos rangos de celdas de un archivo a otro por medio de una macro este es el código: Sub copiar() Dim Filename As...
2 respuestas

Importar varios archivos txt a la vez a un libro de excel

Antes que nada gracias por compartir sus conocimientos con un servidor y aprovecho la ocasión para hacer una consulta. Cómo puedo importar, por medio de una macro, todos los archivos txt que existan dentro de un folder, y que estos me los vaya...
2 respuestas

Botón Examinar VBA Excel

Estoy tratando de crear un botón examinar (Excel 2007), para poder tener una ruta y pasarla a un textbox, no encuentro una solución, he encontrado dos aplicaciones las cuales podría usar pero no me resulta, uno es para abrir un archivo y el otro es...
2 respuestas

Seleccionar Varias hojas y copiar o mover a un nuevo libro

Necesito un código que seleccione varias hojas de un libro para mover o copiar a un libro nuevo la hojas seleccionadas, solo necesito seleccionar la varias hojas que están no estén vacías en la celda a1 de cada hoja, tengo este código pero no logro...
1 respuesta

Macro para juntar la información de 4 archivos de excel en una nueva hoja y de 1 archivo aparte en otra

Tengo un macro que juntas hojas pero no cumple con lo que necesito. Me gustaría un macro que me permitiera seleccionar 4 archivos (cambian cada vez) y junte los datos de las primeras hojas de estos archivos en la primera hoja del libro donde estoy...
1 respuesta

¿Pero puedo hacer me me de el nombre de los archivos que copia? En el que unifica?

La macro para copiar datos de varios libros y pegarlos en un libro nuevo en la primera hoja me funciono perfecto, pero quiero saber si puedo hacer que me identifique el nobre de los archivos por que son fechas y necesito que me los incluya en que unifique
1 respuesta

Seleccionar Imagen desde VBA Excel

Necesito desde mi formulario, seleccionar una imagen de un directorio que siempre se localiza en "C:\Programa\Images\" pero que al seleccionarla, diga en la etiqueta "Label1.Caption" (al lado del botón), el nombre de la imagen que selecciono, con el...
1 respuesta

Macro para modificar los vínculos de una hoja excel

Es fácil cambiar los vínculos de excel a través de Edición/Vínculos. Pero si se quiere realizar una macro para activar esta ventana desde excel la cosa se complica. Seguro que hay una manera más sencilla de desarrollarlo pero adjunto la mía. Partimos...
1 respuesta