Kung gusto mong mabilis na i-export ang mga talahanayan mula sa isang Outlook email sa isang Excel file, maaari mong gamitin ang paraan na ipinakilala sa artikulong ito. Gagamitin nito ang VBA upang tulungan kang makamit ito sa pamamagitan lamang ng isang pag-click.
Tulad ng alam nating lahat, ang Excel ay idinisenyo para sa mga talahanayan at istatistika ng data. Kaya, kapag nakatanggap ka ng email na naglalaman ng ilang mga talahanayan sa katawan, maaaring naisin mong i-export ang lahat ng mga talahanayang ito sa isang Excel file upang mas mahusay na masuri ang data sa mga talahanayan. Samakatuwid, dito namin ituturo sa iyo kung paano mabilis na i-export ang lahat ng mga talahanayan mula sa isang email patungo sa isang bagong workbook ng Excel. Ngayon mangyaring basahin upang makuha ang VBA code at mga detalyadong hakbang.
I-export ang Lahat ng Table mula sa isang Outlook Email sa isang Excel Workbook
- Para magsimula, simulan ang iyong Outlook application gaya ng dati.
- Pagkatapos sa pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
- Susunod sa sumusunod na window ng "Microsoft Visual Basic for Applications", dapat mong buksan ang isang walang laman na module.
- Pagkatapos, kailangan mong kopyahin ang VBA code sa ibaba sa modyul na ito.
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
- Pagkatapos nito, kailangan mong idagdag ang bagong macro sa Quick Access Toolbar.
- Sa ibang pagkakataon, dapat mong baguhin ang iyong Outlook macro security level sa mababa.
- Sa huli, maaari mong subukan.
- Una, pumili ng pinagmulang email sa listahan ng email.
- Pagkatapos i-click ang pindutan ng macro sa Quick Access Toolbar.
- Sabay-sabay, may lalabas na bagong Excel file.
- Kung mayroon lamang isang talahanayan sa email, ang talahanayang ito ay ie-export sa unang worksheet ng Excel file, tulad ng sumusunod na screenshot:
- Ngunit kung mayroong higit sa isang talahanayan sa email, ang bawat talahanayan ay makokopya sa indibidwal na worksheet.
Alisin ang Miserableng PST Data Loss
Ang Outlook ay madaling kapitan ng mga pagkakamali at katiwalian. Samakatuwid, ito ay isang nakakapagod at mahirap na gawain upang pangalagaan ang iyong data ng PST at maiwasan ang masakit na pagkawala ng data ng PST. Una, kailangan mong regular na i-back up ang iyong mga PST file. Bukod dito, kailangan mong maghanda ng isang makapangyarihan Ayusin ang PST utility, tulad ng DataNumen Outlook Repair. Maililigtas ka nito mula sa lahat ng uri ng problema sa PST nang walang hirap.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasirang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa