Without reading through this in depth, is this a completely hands off approach? Everything is automated in my process right now. The scheduler runs a process flow in Enterprise Guide (which kicks off a program with the proc export above). Then the worksheet is downloaded to the network. I have a power shell script that opens the workbook and prints the first sheet as a pdf and saves it to another location. The problem is that once the power shell opens the workbook and it’s refreshed, none of the pivot tables on that first sheet are updated because the new data in the sheets it is coming from has been over written with the new data from the export. Clear as mud? 🙂 ... View more

Wanted to add an observation. It appears this is only happening on .vbs files that call the ordered list container for the process flow. For those that are simply running the process flow as is, it is running normally.   Here is the code of a .vbs file where an ordered list is called from the scheduler.  You will notice that the "run the project" block is commented out.  I did this based on something I read when setting this up to run the ordered lists a few years ago.  Maybe there is a better way to do this?   Option Explicit Dim app Call dowork 'shut down the app If not (app Is Nothing) Then app.Quit Set app = Nothing End If Sub dowork() On Error Resume Next '---- ' Start up Enterprise Guide using the project name '---- Dim prjName Dim prjObject prjName = "M:\NECD\Group\PFS\mortgage\MSR Reporting\MSR Flow Reporting\Freddie Mac\SAS EG Automation\Freddie Mac Daily Dashboard Generation_v5.1.egp" 'Project Name Set app = CreateObject("SASEGObjectModel.Application.8.1") If Checkerror("CreateObject") = True Then Exit Sub End If '----- ' open the project '----- Set prjObject = app.Open(prjName,"") If Checkerror("app.Open") = True Then Exit Sub End If '----- ' run the project '----- 'prjObject.run 'If Checkerror("Project.run") = True Then ' Exit Sub 'End If '----- ' run the ordered list '----- Dim orderedListContainer Dim orderedList Set orderedListContainer = prjObject.ContainerCollection.Item("Ordered Lists") For Each orderedList in orderedListContainer.Items If orderedList.Name = "MSR0002 - Freddie Mac Flow Order Prod" Then orderedList.Run() End If Next If Checkerror("OrderedList.Run") = True Then Exit Sub End If '----- ' Save the new project '----- prjObject.Save If Checkerror("Project.Save") = True Then Exit Sub End If '----- ' Close the project '----- prjObject.Close If Checkerror("Project.Close") = True Then Exit Sub End If End Sub Function Checkerror(fnName) Checkerror = False Dim strmsg Dim errNum If Err.Number <> 0 Then strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description 'MsgBox strmsg 'Uncomment this line if you want to be notified via MessageBox of Errors in the script. Checkerror = True End If End Function Here is the code for a .vbs called by the scheduler that doesn't call an ordered list.   Option Explicit Dim app ' As SASEGuide.Application Call dowork 'shut down the app If not (app Is Nothing) Then app.Quit Set app = Nothing End If Sub dowork() On Error Resume Next '---- ' Start up Enterprise Guide using the project name '---- Dim prjName ' As String Dim prjObject ' As SASEGuide.Project Dim containerName ' As String Dim containerObject ' As SASEGuide.Container Dim containerColl ' As SASEGuide.ContainerCollection prjName = "M:\NECD\Group\PFS\mortgage\MSR Reporting\Automation\SAS EG Project Automation\SAS EG Automation Projects.egp" ' Project Name containerName = "MSR0025 - MSR SMP Monthly Funding Report" ' Container Name Set app = CreateObject("SASEGObjectModel.Application.8.1") If Checkerror("CreateObject") = True Then Exit Sub End If Set prjObject = app.Open(prjName,"") If Checkerror("App.Open") = True Then Exit Sub End If '----- 'Get The Container Collection and Object '----- Set containerColl = prjObject.ContainerCollection If Checkerror("Project.ContainerCollection") = True Then Exit Sub End If Dim i ' As Long Dim count ' As Long count = containerColl.count For i = 0 To count - 1 Set containerObject = containerColl.Item(i) If Checkerror("ContainerCollection.Item") = True Then Exit Sub End If If (containerObject.Name = containerName) Then Exit For Else Set containerObject = Nothing End If Next If not (containerObject Is Nothing) Then '---- ' Run the Container '---- containerObject.Run If Checkerror("Container.Run") = True Then Exit Sub End If End If '----- ' Save the new project '----- prjObject.Save If Checkerror("Project.Save") = True Then Exit Sub End If '----- ' Close the project '----- prjObject.Close If Checkerror("Project.Close") = True Then Exit Sub End If End Sub Function Checkerror(fnName) Checkerror = False Dim strmsg ' As String Dim errNum ' As Long If Err.Number <> 0 Then strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description 'MsgBox strmsg 'Uncomment this line if you want to be notified via MessageBox of Errors in the script. Checkerror = True End If End Function ... View more