Salt la conținutul principal

Cum se deschide un anumit fișier Excel din Outlook?

Dacă doriți să utilizați frecvent un anumit fișier Excel atunci când lucrați la Outlook, trebuie să deschideți acest fișier din când în când. Există vreo modalitate rapidă și ușoară de a deschide un fișier de registru de lucru specificat din Outlook? În acest articol, voi vorbi despre cum să-l rezolvăm.

Deschideți un anumit fișier Excel din Outlook cu cod VBA


Deschideți un anumit fișier Excel din Outlook cu cod VBA

Puteți utiliza următorul cod VBA pentru a deschide un fișier implicit de registru de lucru după cum aveți nevoie, vă rugăm să procedați astfel:

1. În Outlook, țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: deschideți un anumit fișier Excel din 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

notițe: În codul de mai sus, ar trebui să schimbați calea fișierului Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx pentru al tău.

3. Și apoi, încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Instrumente > Referinte a merge la Referințe-Proiect1 casetă de dialog și bifați Biblioteca de obiecte Microsoft Excel opțiune de la Referințe disponibile casetă listă, vezi captura de ecran:

doc open specific excel 1

4. Apoi apasa OK pentru a ieși din dialog, a salva și a închide fereastra de cod. Acum, ar trebui să adăugați acest cod la Bara de instrumente pentru acces rapid.

5. În interfața principală a Outlook, faceți clic pe Personalizați bara de instrumente cu acces rapid pictogramă și selectați Mai multe comenzi, vezi captura de ecran:

doc open specific excel 2

6. În Opțiuni Outlook căsuță de dialog:

  • (1.) Selectați Macrocomenzi de la Alegeți comenzi de la lista verticală;
  • (2.) Și apoi alegeți numele codului VBA pe care l-ați inserat chiar acum;
  • (3.) Faceți clic pe Adăuga pentru a adăuga codul în Personalizați bara de instrumente cu acces rapid casetă listă.

doc open specific excel 3

7. Și apoi o pictogramă macro este afișată în Bara de instrumente pentru acces rapid după cum se arată în următoarea captură de ecran. De acum înainte, când faceți clic pe acest buton, fișierul Excel specificat va fi deschis simultan.

doc open specific excel 4


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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