Барлық кестелерді Outlook электрондық поштасынан Excel жұмыс кітабына VBA арқылы қалай жылдам экспорттауға болады

Егер кестелерді Outlook электрондық поштасынан Excel файлына жылдам экспорттағыңыз келсе, осы мақалада енгізілген әдісті қолдануға болады. Мұны VBA көмегімен сізге бір басу арқылы қол жеткізуге болады.

Барлығымыз білетіндей Excel кестелер мен мәліметтер статистикасына арналған. Осылайша, сізде бірнеше кестелер бар электрондық пошта хабарламасы келгенде, кестелердегі деректерді жақсы талдау үшін осы кестелердің барлығын Excel файлына экспорттағыңыз келуі мүмкін. Демек, біз сізге барлық кестелерді электрондық поштадан жаңа Excel жұмыс кітабына қалай жылдам экспорттауды үйретеміз. Енді VBA кодын және егжей-тегжейлі қадамдарды алу үшін оқыңыз.

Барлық кестелерді Outlook электрондық поштасынан Excel жұмыс кітабына экспорттаңыз

1. Бастау үшін, Outlook қолданбаңызды әдеттегідей іске қосыңыз.
2. Содан кейін негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
3. Келесі «Бағдарламаларға арналған Microsoft Visual Basic» терезесінде бос модульді ашу керек.
4. Кейіннен сізге төмендегі VBA кодын осы модульге көшіру керек.

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

5. Осыдан кейін сізге жылдам қол жеткізу тақтасына жаңа макросты қосу қажет.
6. Кейінірек Outlook макроқауіпсіздік деңгейін төмен деңгейге өзгерту керек.
7. Сайып келгенде, сіз көріңіз.

• Біріншіден, электрондық пошта тізімінен бастапқы электрондық поштаны таңдаңыз.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
• Бірден жаңа Excel файлы шығады.
• Егер электрондық поштада тек бір кесте болса, онда бұл кесте келесі скриншот сияқты Excel файлының бірінші жұмыс парағына экспортталады:
• Егер электрондық поштада бірнеше кесте болса, әр кесте жеке жұмыс парағына көшіріледі.

PST деректерін жоғалтудан құтылыңыз

Outlook қателіктер мен сыбайлас жемқорлыққа бейім. Сондықтан, PST деректерін сақтау және PST деректерінің ауыр жоғалуын болдырмау өте қиын және қиын міндет. Біріншіден, сізге PST файлдарының сақтық көшірмесін жасау қажет. Оның үстіне сіз күшті дайындауға тура келеді PST түзету утилита, сияқты DataNumen Outlook Repair. Бұл сізді қиындықсыз PST барлық қиындықтарынан құтқара алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com