使用Powershell确认提示

Question

我正在使用Powershell自动执行日常任务。 实际上，它是一个宏，用于刷新链接到外部源的数据，然后发送电子邮件。 问题是Excel尝试刷新数据时会自动提示输入用户名/密码。 我做了一些挖掘，不能通过设置DisplayAlert = False来绕过它，也不能通过Excel的设置进行更改。 我的凭据已保存，因此我真正需要做的是拥有一个脚本来按“ Enter”。

当前，我进行了以下设置：使用Windows Scheduler，我首先启动Powershell脚本，该脚本将打开Excel并运行宏以刷新数据。 当Excel提示输入凭据时，宏将被卡住。 我有第二个任务，计划在第一个任务后2分钟运行，其目的是按“ Enter”键摆脱提示。

我已经为第二个任务尝试了一些脚本，但是似乎无法正确完成。 我尝试过如下：

[void]   [System.Reflection.Assembly]::LoadWithPartialName("'Microsoft.VisualBasic")
[void] [System.Reflection.Assembly]::LoadWithPartialName("'System.Windows.Forms")
$wshell = New-Object -ComObject wscript.shell;
$wshell.AppActivate("Windows Security")
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")

和

$excel = [Runtime.Interopservices.Marshal]::GetActiveObject('Excel.Application')
[void] [System.Reflection.Assembly]::LoadWithPartialName("'Microsoft.VisualBasic")
[void] [System.Reflection.Assembly]::LoadWithPartialName("'System.Windows.Forms")
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")

关于如何绕过/接受提示的任何想法吗？

提前致谢。

Answer 1

请共享数据链接以获取更多详细信息，但是，如果确实存在可以保存通行证和登录名的原因（例如，接受通行证和登录名的宏），我将以编程方式重新创建数据链接

如果是SQL连接，则它将类似于以下内容：

Sub Recreate(serverInstance as String, database as String, userId as String, password as String) 
    sConn = "OLEDB;Provider=SQLOLEDB;Data Source=" & _
                    serverInstance & ";Initial Catalog=" & database & _
                    ";User ID=" & userId & ";Password=" & password & ";"

    Set qt = wks.QueryTables.Add(Connection:=sConn, _
                    Destination:=Target)
    With qt
            .CommandType = xlCmdSql
            .CommandText = sql
            .Name = sName
            .RefreshStyle = xlOverwriteCells
            .Refresh BackgroundQuery:=False 'Execute SQL
        End With
End Sub

Answer 2

我们使用的解决方案与您尝试过的解决方案略有不同。 也许是细节...

[void] [System.Reflection.Assembly]::LoadWithPartialName
("'Microsoft.VisualBasic")
[Microsoft.VisualBasic.Interaction]::AppActivate("Windows Security")

[void] [System.Reflection.Assembly]::LoadWithPartialName("'System.Windows.Forms")
[System.Windows.Forms.SendKeys]::SendWait("{ENTER}")