メール本文テーブルをエクスポートしてOutlookで優れたものにする方法は?
本文にいくつかのテーブルを含む電子メールを受信した場合、メッセージ本文からExcelワークシートにすべてのテーブルをエクスポートする必要がある場合があります。 通常、テーブルをコピーしてワークシートに貼り付けることができますが、ここでは、エクスポートする必要のあるテーブルが複数ある場合に、このジョブを解決するための便利な方法について説明します。
Outlookメッセージ本文からVBAコードを使用してExcelワークシートにすべてのテーブルをエクスポートします
Outlookメッセージ本文からVBAコードを使用してExcelワークシートにすべてのテーブルをエクスポートします
次のVBAコードを適用して、すべてのテーブルをXNUMXつのメッセージ本文からExcelワークシートにエクスポートしてください。
1。 テーブルをエクスポートするメッセージを開き、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。
VBAコード:すべてのテーブルをメッセージ本文からExcelワークシートにエクスポートします。
Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
Set xDoc = xMailItem.GetInspector.WordEditor
For I = 1 To xDoc.Tables.Count
Set xTable = xDoc.Tables(I)
xTable.Range.Copy
xWs.Paste
xRow = xRow + xTable.Rows.Count + 1
xWs.Range("A" & CStr(xRow)).Select
Next
Next
End Sub
3。 上記のコードを貼り付けた後、まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック ツール > 参考文献 参考資料-Project1 ダイアログボックスをクリックし、チェックします MicrosoftWordオブジェクトライブラリ & MicrosoftExcelオブジェクトライブラリ からのオプション 利用可能な参考文献 リストボックス、スクリーンショットを参照:
4。 次に、をクリックします OK ボタンをクリックしてダイアログボックスを終了します。 F5 コードを実行するためのキーを押すと、メッセージ本文のすべてのテーブルが次のスクリーンショットのように新しいワークブックにエクスポートされます。
最高のオフィス生産性向上ツール
Outlook用Kutools - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。