February 28
Durante l'accesso e l'utilizzo della funzione di incorporare in Excel richiede un po 'di lavoro, può essere la pena il lavoro richiesto se si è in grado di incorporare i messaggi di Outlook si spera di incorporare. Per esportare correttamente i messaggi da Outlook in Excel, è necessario utilizzare un certo codice di esportazione.
1 Aprire Outlook e premere il tasto "Alt" e "F11".
2 Scegliere "modulo" dal menu "Inserisci".
3 Inserire il seguente codice:
Sub ExportToExcel ()
On Error GoTo ErrHandler
Dim appExcel Come Excel.Application Dim wkb Come Excel.Workbook
settimane fiochi come Excel.Worksheet
rng fioco come Excel.Range
Dim strSheet As String
Dim strPath As String
Dim intRowCounter As Integer
Dim intColumnCounter As Integer
msg fioco come Outlook.MailItem
nms fiochi come Outlook.NameSpace
FLD fioco come Outlook.MAPIFolder
Dim itm As Object
strSheet = "OutlookItems.xls" strPath = "C:Examples\"
strSheet = strPath & strSheet
Debug.Print strSheet
'Selezionare la cartella di esportazione
Set NMS = Application.GetNamespace ( "MAPI")
Set FLD = nms.PickFolder
'Gestire i potenziali errori con la finestra di dialogo Seleziona cartella.
Se FLD è niente allora
MsgBox "Non ci sono messaggi di posta elettronica da esportare", vbOKOnly, _
"Errore"
Exit Sub
ElseIf fld.DefaultItemType <> olMailItem Poi
MsgBox "Non ci sono messaggi di posta elettronica da esportare", vbOKOnly, _
"Errore"
Exit Sub
ElseIf fld.Items.Count = 0 Then
MsgBox "Non ci sono messaggi di posta elettronica da esportare", vbOKOnly, _
"Errore"
Exit Sub
Finisci se
'Cartella di lavoro aperta e attivare Excel.
Set appExcel = CreateObject ( "Excel.Application")
appExcel.Workbooks.Open (strSheet)
Set WKB = appExcel.ActiveWorkbook
Set WKS = wkb.Sheets (1)
wks.Activate
appExcel.Application.Visible = True
'Copia elementi di campo nella cartella di posta.
Per ogni itm In fld.Items
intColumnCounter = 1
Imposta msg = itm
intRowCounter = intRowCounter + 1
Impostare RNG = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.To
intColumnCounter = intColumnCounter + 1
Impostare RNG = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.SenderEmailAddress
intColumnCounter = intColumnCounter + 1
Impostare RNG = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.Subject
intColumnCounter = intColumnCounter + 1
Impostare RNG = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.SentOn
intColumnCounter = intColumnCounter + 1
Impostare RNG = wks.Cells (intRowCounter, intColumnCounter)
rng.Value = msg.ReceivedTime
Successivo itm
Set appExcel = Nothing Set wkb = Nothing
Set sett = Nothing
Set rng = Nothing
Imposta msg = Nothing
Set nms = Nothing
Set FLD = Nothing
Impostare itm = Nothing
Exit Sub
ErrHandler: Se Err.Number = 1004 Poi
MsgBox strSheet e "non esiste", vbOKOnly, _
"Errore"
Altro
MsgBox Err.Number & "; Descrizione:", vbOKOnly, _
"Errore"
Finisci se
Set appExcel = Nothing
Set WKB = Nothing
Set sett = Nothing
Set rng = Nothing
Imposta msg = Nothing
Set nms = Nothing
Set FLD = Nothing
Impostare itm = Nothing
End Sub
4 Fai clic su "Strumenti" e scegliere "di riferimento".
5 Fare clic per aggiungere un controllo a "Microsoft Excel libreria di oggetti." Fai clic su "OK".
6 Posizionare il cursore in qualsiasi punto all'interno della pagina che include il codice inserito al punto 3 e premere il tasto "F5".
7 Fai clic sul menu "Strumenti" in Outlook e selezionare "Macro".
8 Selezionare "ExportToExcel." Fai clic su "Avanti". Verrà visualizzata la finestra di dialogo "Seleziona cartella".
9 Selezionare la cartella di Outlook che si desidera incorporare in Excel.
10 Fai clic su "OK". Il codice si aprirà una cartella di lavoro di Excel e incorporare le informazioni dalla cartella selezionata nel documento.