AW: PivotTabellen aktualisieren bevor vba skript durchläuft
03.02.2020 12:11:25
Julian
Danke.
wenn ich jetzt mein vbskript ausführe, sehe ich im Taskmanager das was gemacht wird, aber nicht final.
Mein Code sieht aktuell so aus:
Public Sub Beispiel()
Dim objWorkbook As Workbook
Dim objWorksheet As Worksheet
Dim objPivotTable As PivotTable
Set objWorkbook = Workbooks.Open(Filename:="H:\Test.xlsx")
For Each objWorksheet In objWorkbook.Worksheets
For Each objPivotTable In objWorksheet.PivotTables
Call objPivotTable.RefreshTable
Next
Next
Dim PdfFileName As String
Dim Outlapp As Object, myMail As Object
Dim title, mailTo, mailCc, mailBody As String
title = "Daily Support Report " + Date$
counter = Range("PivotDaten!A1").Value
mailTo = "hueskes@itb-pim.de"
mailCc = "hueskes@itb-pim.de"
mailBcc = "hueskes@itb-pim.de"
mailBody = "Hallo Freunde"
PdfFileName = "Daily_Support_Report_" + Date$ + ".pdf"
SheetstoMail = Array("Zusammenfassung")
ActiveWorkbook.RefreshAll
Sheets(SheetstoMail).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFileName, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
On Error Resume Next
Set Outlapp = CreateObject("Outlook.Application")
Set myMail = objOutlook.CreateItem(0)
IsCreated = True
Outlapp.Visible = True
On Error GoTo 0
With myMail
.To = "hueskes@itb-pim.de"
.Subject = title & " Offen: " & counter
.Cc = "hueskes@itb-pim.de"
.Bcc = "hueskes@itb-pim.de"
.Body = "Hallo Freunde"
.Attachments.Add = PdfFileName
.send
Application.OnTime TimeSerial(0, 1, 0), "PdfAndMail"
End With
Call objWorkbook.Close(SaveChanges:=True)
Set objWorkbook = Nothing
End Sub