Прескочи на основното съдържание

Как да отворя конкретен Excel файл от Outlook?

Автор: Xiaoyang Последна промяна: 2018-09-19

Ако искате да използвате конкретен Excel файл често, когато работите в Outlook, трябва да отваряте този файл от време на време. Има ли някакъв бърз и лесен начин да отворите определен файл на работна книга от Outlook? В тази статия ще говоря за това как да го разреша.

Отворете конкретен Excel файл от Outlook с VBA код


Отворете конкретен Excel файл от Outlook с VBA код

Можете да използвате следния VBA код, за да отворите файл на работна книга по подразбиране, както ви е необходим, моля, направете следното:

1. В Outlook задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2, След това кликнете върху Поставете > Модулии поставете следния код в Модули Window.

VBA код: Отворете конкретен Excel файл от 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

Забележка: В горния код трябва да промените пътя на файла на Excel: C:\Users\DT168\Desktop\split document\kto-data.xlsx към своите.

3. И тогава, все още в Microsoft Visual Basic за приложения прозорец, кликнете Инструменти > Препратки за да отидете на Референции-Проект1 диалогов прозорец и проверете Библиотека с обекти на Microsoft Excel опция от Налични препратки списъчно поле, вижте екранна снимка:

doc отворете конкретен excel 1

4, След това кликнете върху OK бутон за излизане от диалоговия прозорец, запазване и затваряне на прозореца с кода. Сега трябва да добавите този код към Лента с инструменти за бърз достъп.

5. В основния интерфейс на Outlook щракнете Персонализирайте лентата с инструменти за бърз достъп и изберете Още команди, вижте екранна снимка:

doc отворете конкретен excel 2

6. в Outlook Options диалогов прозорец:

  • (1.) Изберете Макроси от Изберете команди от падащ списък;
  • (2.) И след това изберете кодовото име на VBA, което сте вмъкнали току-що;
  • (3.) Щракнете Добави бутон, за да добавите кода в Персонализирайте лентата с инструменти за бърз достъп списъчно поле.

doc отворете конкретен excel 3

7. След това се показва макро икона в Лента с инструменти за бърз достъп както е показана следната екранна снимка. Отсега нататък, когато щракнете върху този бутон, посоченият от вас Excel файл ще бъде отворен веднага.

doc отворете конкретен excel 4


Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове ProПакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

👩🏼‍🤝‍👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли  /  Разделете група контакти на отделни групи  /  Премахнете напомнянията за рожден ден ...

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

 

 

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