メインコンテンツへスキップ

Outlookから特定のExcelファイルを開く方法は?

著者:シャオヤン 最終更新日:2018年09月19日

Outlookで作業しているときに特定のExcelファイルを頻繁に使用する場合は、このファイルを時々開く必要があります。 Outlookから指定したブックファイルをすばやく簡単に開く方法はありますか? この記事では、それを解決する方法について説明します。

VBAコードを使用してOutlookから特定のExcelファイルを開く


VBAコードを使用してOutlookから特定のExcelファイルを開く

次のVBAコードを使用して、必要に応じてデフォルトのブックファイルを開くことができます。次のようにしてください。

1。 Outlookで、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:Outlookから特定のExcelファイルを開きます。

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:上記のコードでは、Excelファイルのパスを変更する必要があります。 C:\ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx あなた自身に。

3。 そして、まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック ツール > 参考文献 参考資料-Project1 ダイアログボックスをクリックし、チェックします MicrosoftExcelオブジェクトライブラリ オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照:

ドキュメントオープン固有のExcel1

4。 次に、をクリックします。 OK ボタンをクリックしてダイアログを終了し、コードウィンドウを保存して閉じます。 ここで、このコードをに追加する必要があります クイックアクセスツールバー.

5。 Outlookのメインインターフェイスで、をクリックします クイックアクセスツールバーをカスタマイズする アイコンをクリックし、 その他のコマンド、スクリーンショットを参照してください:

ドキュメントオープン固有のExcel2

6. Outlookのオプション ダイアログボックス:

  • (1.)選択 マクロ からのコマンドを選択 ドロップダウンリスト;
  • (2.)次に、今挿入したVBAコード名を選択します。
  • (3.)クリック Add ボタンにコードを追加します クイックアクセスツールバーをカスタマイズする リストボックス。

ドキュメントオープン固有のExcel3

7。 そして、マクロアイコンがに表示されます クイックアクセスツールバー 次のスクリーンショットのように。 これ以降、このボタンをクリックすると、指定したExcelファイルがすぐに開きます。

ドキュメントオープン固有のExcel4


最高のオフィス生産性向上ツール

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで 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