Note: The other languages of the website are Google-translated. Back to English

¿Cómo abrir un archivo de Excel usando la ventana de exploración?

Puede resultarle fácil y rápido abrir un archivo de Excel desde una ventana de exploración cuando se trata de un libro de trabajo en lugar de minimizar el libro de trabajo activado para elegir y abrir otro libro de trabajo. Este tutorial hablará sobre cómo abrir un archivo de Excel usando la ventana de exploración en el libro de Excel.

Abra un archivo de Excel usando la ventana de exploración con código VBA


Abra un archivo de Excel usando la ventana de exploración con código VBA

Para abrir un libro de Excel utilizando la ventana de exploración, el siguiente código VBA puede ayudarlo, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.

Código de VBA: abra el libro de Excel usando la ventana de navegación:

Sub OpenNewBox()
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath
End Sub

3. Después de pegar el código anterior, presione F5 clave para ejecutar este código, y la Búsqueda de se muestra la ventana, seleccione un libro de Excel que desee abrir y haga clic en OK botón, ver captura de pantalla:

doc navegador de archivos abierto 1

4. Y el libro de trabajo específico se abrirá de inmediato.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (1)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Sub mail_merge ()

On Error Resume Next

Dim xStrFile como cadena
Dim xFilePath como cadena
Dim xFileDlg como FileDialog
Dim xFileDlgItem como variante
Dim xOutApp como Outlook.Aplicación
Dim xMailOut como Outlook.MailItem
Application.ScreenUpdating = False
Dim data_file como libro de trabajo

'Establecer WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Rango("h11").Value)
'WB_Data_file.Activar
'WB_Data_file.Hojas("hoja1").Activar
lastrow = ActiveWorkbook.Sheets("Data").Range("a" & Rows.Count).End(xlUp).Row
'nombre de usuario1 = Entorno.Nombre de usuario
Para i = 2 Para ultimo

'******Por favor, cambie la ruta de sus archivos aquí***********************
'C:\Users\BodapatiSarada\Desktop\Maxi project2\verificando archivos
Path = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data").Range("E" & i).Value & ".xlsx" ' necesitamos cambiar la ruta
Establecer xOutApp = CreateObject("Outlook.Aplicación")
Establecer xMailOut = xOutApp.CreateItem(olMailItem)
'Si xFileDlg.Show = -1 Entonces
Con xMailOut
.BodyFormat = olFormatRichText
.Para = LibroActivo.Hojas("Datos").Celdas(i, 1).Valor
.CC = LibroActivo.Hojas("Datos").Celdas(i, 2).Valor
.Asunto = LibroActivo.Hojas("Datos").Celdas(i, 3).Valor
.cuerpo = LibroActivo.Hojas("Datos").Celdas(i, 4).Valor
.Monitor
.Archivos adjuntos.Añadir ruta
.Monitor
.Enviar

Aplicación.Espere (Ahora() + TimeValue("0:00:01"))
End With
ActiveWorkbook.Sheets("Data").Cells(i, 6).Valor = "completado"

Siguiente

Aplicación.Espere (Ahora() + TimeValue("0:00:01"))

Establecer xMailOut = Nada
Establecer xOutApp = Nada
Application.ScreenUpdating = True

MsgBox "Completado"

End Sub




No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL