时间戳

首页 > 解决方案 > 任务计划程序打开 Excel 文件但继续运行且未完成

excel - 任务计划程序打开 Excel 文件但继续运行且未完成

问题描述

我在模块中有以下代码。我尝试Workbook_Open在“ ThisWorkbook”中使用，并且尝试Auto_Open在工作表中使用。没有人会在打开电子表格时运行代码。这就是我的代码在模块中的原因。如果我手动打开它，程序运行良好。但是，当使用任务计划程序时，它会打开 excel 文件并继续运行。它不执行代码。该代码只是一封带有附件的简单电子邮件。

至于任务计划程序，在“常规”选项卡中，我只在用户登录时运行，并选中以最高权限运行。我还检查了唤醒计算机以运行此任务的条件。

Sub Auto_Open()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Application.DisplayAlerts = False

On Error Resume Next

    With OutMail
        .to = "bjenks@ormat.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test Workbook Open"
        .Body = "Hi there"
        .Attachments.Add ("C:\Users\bjenks\Desktop\Test.xlsx")
        .Send   'or use .Display
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

标签： excelvbaoutlooktaskscheduler

解决方案

我取消选中以最高权限运行并更改为公共并且它有效。

推荐阅读