任務計劃程序不運行Excel VBA代碼將PDF作爲電子郵件附件發送

Question

以下是我正在使用的軟件/系統：
Microsoft Office 2010;
任務計劃程序;
的Windows Server 2008 R2標準

我正在運行執行以下操作一個Excel文件中的一些VBA代碼：

1.通過SQL/ODBC連接
2.上傳從我們的數據庫中檢索數據數據添加到工作簿中的原始數據表中，並使用now功能將工作簿標記在單元格中
3.刷新並格式化工作簿中的每個數據透視表
4.將指定的圖表導出並保存爲PDF文檔並保存文件na我用步驟2中的時間戳
5.保存工作簿
6.將在Excel中創建爲特定PDF文檔的電子郵件附件創建爲電子郵件附件。
7.關閉Excel應用程序

我在一個名爲Workbook_Open的私人子程序中運行這整個系列，它檢查當前時間是否與指定的運行時匹配。如果確實如此，它將運行步驟1-7，如果它在一個小時之後，它將關閉工作簿（這樣，除了那兩個小時的窗口，我可以在其上工作）。

以下是正在使用的代碼： *請注意，下面的代碼在「ThisWorkbook」Excel對象中運行。

'This Macro will use check to see if you opened the workbook at a certain time, if you did, then it will run the Report Automation Macros below. 

Private Sub Workbook_Open() 

HourRightNow = Hour(Now()) 

If HourRightNow = 13 Then 

Call RefreshDataTables 
Call RefreshPivotTables 
Call SaveWorkbook 
Call ExportToPDFFile 
Call EmailPDFAsAttachment 
Call CloseWorkbook 

ElseIf HourRightNow = 14 Then 

Call CloseWorkbook 

End If 

End Sub 


Sub RefreshDataTables() 
' 
' RefreshDataTables Macro 
' This Macro is used to refresh the data from the Dentrix Tables. 
' 
'This selects the table and refreshes it. 

Sheets("raw").Select 
Range("D4").Select 
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False 
Worksheets("NomenclatureVBA").Range("A2").Formula = "=now()" 

End Sub 


Sub RefreshPivotTables() 
' 
' RefreshPivotTables Macro 
' This Macro refreshes each Pivot Table in the document. 
' 

'This goes through each sheet and refreshes each pivot table. 
    Sheets("D0150 VS D0330 BY BIZLINE").PivotTables("D0150 vs D0330 by BIZLINE").PivotCache.Refresh 

    Columns("B:DD").Select 
    With Selection 
     .HorizontalAlignment = xlCenter 
     .VerticalAlignment = xlCenter 
     .WrapText = False 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = False 
    End With 


    Sheets("D0150 VS D0330").PivotTables("D0150 COMP EXAM vs D0330 PANO").PivotCache.Refresh 

    Columns("B:DD").Select 
    With Selection 
     .HorizontalAlignment = xlCenter 
     .VerticalAlignment = xlCenter 
     .WrapText = False 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = False 
    End With 
'Formnats to the specific date format below. 






End Sub 

'-------------------------------------------------------------------------------------------------------------- 

Sub SaveWorkbook() 

' Saves Active (Open) Workbook 

    ActiveWorkbook.Save 

End Sub 


'**********************READY************************ 
'More simplified and tested version of the Export To PDF format 
'Make sure to update the filePaths, worksheets, 

Sub ExportToPDFFile() 
Dim strFilename As String 


'Considering Sheet1 to be where you need to pick file name 
strFilename = Worksheets("NomenclatureVBA").Range("C2") 


Sheets(Array("D0150 VS D0330", "D0150 VS D0330 BY BIZLINE")).Select 
Sheets("D0150 VS D0330").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "\\****(ServerNameGoesHere)****\UserFolders\_Common\DentrixEntrpriseCustomReports\Public\Owner Reports\DataAnalystAutomatedReports\Reports\D0150 COMP EXAM vs D0330 PANO\" & strFilename & ".pdf" _ 
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 

Sheets("NomenclatureVBA").Select 

'This is where the exporting ends, now we will proceed to email the file. 
'----------------------------------------------------------------------------- 

'The emailing begins here 
'This says that if there is a file name stored in the strFileName variable, then.... 
End Sub 



'This Macro Closes the workbook... Note that it closes the very specific workbook you choose. 

Sub CloseWorkbook() 

'Workbooks("Automated D0150 COMP EXAM vs D0330 PANO.xlsm").Close SaveChanges:=False 
Application.DisplayAlerts = False 
Application.Quit 

End Sub 

然後，我也有在VBA的Modules部分通過電子郵件發送PDF文件的宏。它看起來像這樣：

Sub EmailPDFAsAttachment() 
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010. 
' This example sends the last saved version of the Activeworkbook object . 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Dim FilePath As String 

    'This part is setting the strings and objects to be things. (e.g. FilePath is setting itself equal to the text where we plan to set up each report) 

    FilePath = "\\***(ServerGoesHere)***\UserFolders\_Common\DentrixEntrpriseCustomReports\Public\Owner Reports\DataAnalystAutomatedReports\Reports\D0150 COMP EXAM vs D0330 PANO\" _ 
    & Worksheets("NomenclatureVBA").Range("C2") & ".pdf" 

    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 

    On Error Resume Next 
    ' Change the mail address and subject in the macro before you run it. 
    ' 

    With OutMail 
     .To = "email@example.com" 
     .CC = "" 
     .BCC = "" 
     .Subject = Worksheets("NomenclatureVBA").Range("C2") 

     .HTMLBody = "Hello all!" & "<br>" & _ 
     "Here is this week's report for the Comp Exam vs. Pano." & "<br>" & _ 
     "Let me know what you think or any comments or questions you have!" & "<br>" & _ 
     vbNewLine & Signature & .HTMLBody 

     .Attachments.Add FilePath 
     ' In place of the following statement, you can use ".Display" to 
     ' display the mail. 
     .Send 
    End With 
    On Error GoTo 0 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

所以這一切，當我在13小時（下午1點）打開工作簿運行良好，但是，當我嘗試在13小時期間任務計劃程序中運行它，它運行一切直到EmailPDFAsAttachment宏/子文件被掛起並停止運行。

我還要指出，我有信任中心設置在Outlook和Excel中的以下內容： TrustCenterSettings

任何人都知道什麼是造成宏觀上完美運行，當我親自打開該文件，然後當我嘗試並通過任務計劃程序打開文件它停在同一個地方？ 有人知道如何使它通過任務計劃程序正確運行？

謝謝！

Answer 1

我們意識到服務器限制了我在任務調度程序中的權限。當我讓IT Director將我的權限交給Admin後，它完美地運行了任務調度程序！

對不起虛驚一場......我原本不會發布這個問題，但我上週花了所有的時間在這方面進行研究。感謝大家的期待！

Answer 2

這是我的猜測。你必須確保你的密碼輸入正確。如果您長按某個鍵並輸入錯誤密碼，則任務計劃程序將會接受它，即使它不應該。在我的觀點中，它應該提示用戶並通知他/她這個錯誤。也許微軟會在不久的將來改變這一點。