Přejít k hlavnímu obsahu

Jak otevřít konkrétní soubor Excel z aplikace Outlook?

Autor: Xiaoyang Naposledy změněno: 2018-09-19

Pokud chcete při práci v Outlooku často používat konkrétní soubor Excel, musíte tento soubor občas otevřít. Existuje nějaký rychlý a snadný způsob, jak otevřít zadaný soubor sešitu z Outlooku? V tomto článku budu mluvit o tom, jak to vyřešit.

Otevřete konkrétní soubor Excel z Outlooku pomocí kódu VBA


Otevřete konkrétní soubor Excel z Outlooku pomocí kódu VBA

Následující kód VBA můžete použít k otevření výchozího souboru sešitu, jak potřebujete, postupujte takto:

1. V Outlooku podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. Potom klepněte na tlačítko Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Otevřete konkrétní soubor Excel z Outlooku:

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

Poznámka: Ve výše uvedeném kódu byste měli změnit cestu k souboru Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx k sobě.

3. A pak, stále v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Objektová knihovna Microsoft Excel možnost z nabídky Dostupné reference seznam, viz screenshot:

doc otevřít konkrétní Excel 1

4. Potom klepněte na tlačítko OK tlačítko pro opuštění dialogu, uložení a zavření okna s kódem. Nyní byste měli přidat tento kód do Panel nástrojů Rychlý přístup.

5. V hlavním rozhraní Outlooku klikněte na Přizpůsobte panel nástrojů Rychlý přístup ikonu a vyberte možnost Další příkazy, viz screenshot:

doc otevřít konkrétní Excel 2

6. v Možnosti aplikace Outlook dialogové okno:

  • (1.) Vyberte makra z Vyberte příkazy z rozbalovací seznam;
  • (2.) A poté vyberte kódové jméno VBA, které jste právě vložili;
  • (3.) Klikněte přidat tlačítko pro přidání kódu do Přizpůsobte panel nástrojů Rychlý přístup seznam.

doc otevřít konkrétní Excel 3

7. Poté se do ikony zobrazí ikona makra Panel nástrojů Rychlý přístup jak ukazuje následující snímek obrazovky. Od nynějška se po kliknutí na toto tlačítko otevře váš zadaný soubor aplikace Excel najednou.

doc otevřít konkrétní Excel 4


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

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