Перейти к основному содержанию

Как открыть конкретный файл Excel из Outlook?

Если вы хотите часто использовать определенный файл Excel при работе в Outlook, вам нужно время от времени открывать этот файл. Есть ли какой-нибудь быстрый и простой способ открыть указанный файл книги из Outlook? В этой статье я расскажу о том, как это решить.

Откройте определенный файл Excel из Outlook с кодом VBA


Откройте определенный файл Excel из Outlook с кодом VBA

Вы можете использовать следующий код VBA, чтобы открыть файл книги по умолчанию по мере необходимости, сделайте следующее:

1. В Outlook нажмите и удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2, Затем нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код 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 \ разделить документ \ kto-data.xlsx к вашим собственным.

3. А потом еще в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Рекомендации , чтобы перейти к Ссылки-Project1 диалоговое окно и установите флажок Библиотека объектов Microsoft Excel из файла Доступные ссылки список, см. снимок экрана:

документ открыть конкретный Excel 1

4, Затем нажмите OK кнопку, чтобы выйти из диалогового окна, сохранить и закрыть окно кода. Теперь вы должны добавить этот код в Панель быстрого доступа.

5. В главном интерфейсе Outlook нажмите Настройка панели быстрого доступа значок и выберите Дополнительные команды, см. снимок экрана:

документ открыть конкретный Excel 2

6. В Параметры Outlook диалоговое окно:

  • (1.) Выберите Макрос из Выберите команды из раскрывающийся список;
  • (2.) Затем выберите кодовое имя VBA, которое вы только что вставили;
  • (3.) Щелкните Добавить кнопку, чтобы добавить код в Настройка панели быстрого доступа список.

документ открыть конкретный Excel 3

7. И затем значок макроса отображается в Панель быстрого доступа как показано на следующем снимке экрана. С этого момента, когда вы нажмете эту кнопку, ваш указанный файл Excel будет открыт сразу.

документ открыть конкретный Excel 4


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения 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