Nếu bạn muốn xuất nhanh các bảng từ email Outlook sang tệp Excel, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này. Nó sẽ sử dụng VBA để giúp bạn đạt được điều này chỉ bằng một cú nhấp chuột.
Như chúng ta đã biết, Excel được thiết kế để lập bảng và thống kê dữ liệu. Do đó, khi bạn nhận được một email chứa một số bảng trong nội dung, bạn có thể muốn xuất tất cả các bảng này sang tệp Excel để phân tích dữ liệu trong các bảng tốt hơn. Do đó, ở đây chúng tôi sẽ hướng dẫn bạn cách xuất nhanh tất cả các bảng từ email sang sổ làm việc Excel mới. Bây giờ vui lòng đọc tiếp để lấy mã VBA và các bước chi tiết.
Xuất tất cả các bảng từ email Outlook sang sổ làm việc Excel
- Trước tiên, hãy mở ứng dụng Outlook như thường lệ.
- Sau đó, trong cửa sổ Outlook chính, nhấn các nút phím “Alt + F11”.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Application” sau, bạn nên mở một mô-đun trống.
- Sau đó, bạn cần sao chép mã VBA bên dưới vào mô-đun này.
Sub ExportTablesinEmailtoExcel()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objTable As Word.Table
Dim lTableCount As Long
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim i As Long
'Create a new excel workbook
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkbook = objExcelApp.Workbooks.Add
objExcelApp.Visible = True
'Get the table(s) in the selected email
Set objMail = Outlook.Application.ActiveExplorer.Selection.item(1)
Set objWordDocument = objMail.GetInspector.WordEditor
lTableCount = objWordDocument.Tables.Count
If lTableCount > 1 Then
'If there is more than one table
'Copy each table into separate worksheet
For i = 1 To lTableCount
Set objTable = objWordDocument.Tables(i)
objTable.Range.Copy
Set objExcelWorksheet = objExcelWorkbook.Sheets(i)
objExcelWorksheet.Paste
objExcelWorksheet.Columns.AutoFit
Next
Else
'If there is only one table
'Just copy it into the first worksheet
Set objTable = objWordDocument.Tables(1)
objTable.Range.Copy
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
objExcelWorksheet.Paste
objExcelWorksheet.Columns.AutoFit
End If
End Sub
- Sau đó, bạn cần thêm macro mới vào Thanh công cụ truy cập nhanh.
- Sau này bạn nên thay đổi mức độ bảo mật macro Outlook của mình xuống mức thấp.
- Cuối cùng, bạn có thể thử.
- Đầu tiên, chọn một email nguồn trong danh sách email.
- Sau đó bấm vào nút macro trong Thanh công cụ truy cập nhanh.
- Ngay lập tức, một tệp Excel mới sẽ hiển thị.
- Nếu chỉ có một bảng trong email, bảng này sẽ được xuất sang trang tính đầu tiên của tệp Excel, như ảnh chụp màn hình sau:
- Nhưng nếu có nhiều bảng trong email thì mỗi bảng sẽ được sao chép vào một bảng tính riêng lẻ.
Thoát khỏi tình trạng mất dữ liệu PST khốn khổ
Outlook dễ bị lỗi và hỏng hóc. Do đó, việc bảo vệ dữ liệu PST của bạn và tránh mất dữ liệu PST là một công việc tẻ nhạt và khó khăn. Trước tiên, bạn cần sao lưu các tệp PST của mình thường xuyên. Hơn nữa, bạn phải chuẩn bị một nguồn mạnh PST sửa chữa tiện ích, như DataNumen Outlook Repair. Nó có thể giải cứu bạn khỏi mọi loại rắc rối PST một cách dễ dàng.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sql bị hỏng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm