จะส่งออกตารางเนื้อหาอีเมลไปยัง excel ใน Outlook ได้อย่างไร
เมื่อคุณได้รับอีเมลที่มีตารางบางตารางในเนื้อหาบางครั้งคุณอาจต้องส่งออกตารางทั้งหมดจากเนื้อหาข้อความไปยังแผ่นงาน excel โดยปกติคุณสามารถคัดลอกและวางตารางลงในแผ่นงานได้ แต่ในที่นี้ฉันจะพูดถึงวิธีการที่มีประโยชน์ในการแก้ไขงานนี้เมื่อมีหลายตารางที่ต้องส่งออก
ส่งออกตารางทั้งหมดจากเนื้อหาข้อความ Outlook ไปยังแผ่นงาน Excel ด้วยรหัส VBA
ส่งออกตารางทั้งหมดจากเนื้อหาข้อความ Outlook ไปยังแผ่นงาน Excel ด้วยรหัส VBA
โปรดใช้รหัส VBA ต่อไปนี้เพื่อส่งออกตารางทั้งหมดจากเนื้อหาข้อความหนึ่งไปยังแผ่นงาน Excel
1. เปิดข้อความที่คุณต้องการส่งออกตารางจากนั้นกดไฟล์ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง
รหัส 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 สำหรับแอปพลิเคชัน หน้าต่างคลิก เครื่องมือ > อ้างอิง ไป เอกสารอ้างอิง - โครงการ 1 กล่องโต้ตอบและตรวจสอบ ไลบรารีวัตถุ Microsoft Word และ ไลบรารีวัตถุ Microsoft Excel ตัวเลือกจากไฟล์ อ้างอิงที่มีอยู่ กล่องรายการดูภาพหน้าจอ:
4. จากนั้นคลิก OK เพื่อออกจากกล่องโต้ตอบและตอนนี้ได้โปรด F5 คีย์เพื่อเรียกใช้รหัสตารางทั้งหมดในเนื้อหาข้อความจะถูกส่งออกไปยังสมุดงานใหม่ตามภาพหน้าจอต่อไปนี้:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ
🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...
📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...
เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม