Saltar al contenido principal

¿Cómo abrir un archivo de Excel específico desde Outlook?

Si desea utilizar un archivo de Excel específico con frecuencia cuando trabaja en Outlook, debe abrir este archivo de vez en cuando. ¿Existe alguna forma rápida y sencilla de abrir un archivo de libro específico desde Outlook? En este artículo, hablaré sobre cómo solucionarlo.

Abra un archivo de Excel específico de Outlook con código VBA


Abra un archivo de Excel específico de Outlook con código VBA

Puede usar el siguiente código VBA para abrir un archivo de libro de trabajo predeterminado según lo necesite, haga lo siguiente:

1. En Outlook, mantenga presionada la ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Luego, haz clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código VBA: abra un archivo de Excel específico desde Outlook:

Public Sub OpenSpecificExcelWorkbook()
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
   Dim xExcelRange As Excel.Range
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xWs.Activate
    Set xExcelRange = xWs.Range("A1")
    xExcelRange.Activate
    xExcelApp.Visible = True
End Sub

Note: En el código anterior, debe cambiar la ruta del archivo de Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx a la tuya.

3. Y luego, todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verifique Biblioteca de objetos de Microsoft Excel Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

doc abierto Excel específico 1

4. Luego, haz clic OK para salir del diálogo, guardar y cerrar la ventana de código. Ahora, debe agregar este código al Acceso rapido a la barra de herramientas.

5. En la interfaz principal de Outlook, haga clic en Personalizar la barra de herramientas de acceso rápido ícono y seleccione Más comandos, ver captura de pantalla:

doc abierto Excel específico 2

6. En Opciones de outlook caja de diálogo:

  • (1.) Seleccione Macros del desplegable Elija comandos de la lista desplegable;
  • (2.) Y luego elija el nombre del código VBA que acaba de insertar;
  • (3.) Haga clic en Añada para agregar el código en el Personalizar la barra de herramientas de acceso rápido cuadro de lista.

doc abierto Excel específico 3

7. Y luego se muestra un icono de macro en el Acceso rapido a la barra de herramientas como se muestra en la siguiente captura de pantalla. A partir de ahora, cuando haga clic en este botón, el archivo de Excel especificado se abrirá de inmediato.

doc abierto Excel específico 4


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar
 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
7行目のファイルのフルパスを修正して使っていますが、読み取り専用で開いてしまい、データを修正した後上書き保存ができませんでした。

ネットワークフォルダにあるエクセルの場合は、読み取り専用で開いてしまうのでしょうか?
Windowsのプレビューウインドウも含めて、Excelアプリケーションは一切開いていない状態でも同様に読み取り専用で開いてしまいます。
何か対処法があれば教えていただければ幸いです。

ちなみに、Outlook、Excelともに2019環境です。
This comment was minimized by the moderator on the site
Hello,
The code works well in my Outlook, and the Excel file opens normally, not open with read only mode.

You can insert your Excel file here if you don't mind, so that I can check the code.

Thank you!
This comment was minimized by the moderator on the site
Outlook rejects the code immediately with an error. "Compile Error. User defined type not defined." And it zeroes in on "Dim xExcelApp As Excel.Application" as the problem. I literally just copied and pasted it as is into the editor and tried to run it and it fails out immediately.
This comment was minimized by the moderator on the site
Did you enable the microsoft excel library first?
This comment was minimized by the moderator on the site
This works pretty well!

Could you help me with the line of code in addition to it on how to close the workbook without saving changes.
This comment was minimized by the moderator on the site
Or you can run .bat file:


.bat:
@echo off
"C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE" "D:\your_file.xlsx"

and VBA:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "D:\your_BAT.bat" & Chr(34), 0
Set WshShell = Nothing



https://www.winhelponline.com/blog/run-bat-files-invisibly-without-displaying-command-prompt/
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations