我正在从事一个项目,该项目涉及在一夜之间输入 QuickBooks 文件并刷新“银行提要中心”。 QuickBooks API 不支持此操作,因此我认为唯一的方法是间接执行此操作。
我正在使用 VBA,使用 VBScript 文件来运行代码。 VBA 代码打开 QuickBooks,输入密码,然后发送“Enter”打开文件。
此代码仅在我登录到我的机器时有效。
有没有办法修改此代码,以便它在我锁定屏幕时起作用(Windows 键 + L)?
目标是在一夜之间运行,我不能让我的电脑在一夜之间解锁。我愿意接受任何替代语言/解决方案,以及任何潜在的建议。
VBA代码:
Public Sub openQB()
Dim qbPathStr As String
qbPathStr = "QuickBooks File Location"
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
On Error Resume Next
Shex.Open (qbPathStr)
Application.Wait Now + #12:00:30 AM#
AppActivate "QuickBooks Desktop Pro 2021"
SendKeys ("Password")
SendKeys ("~")
End Sub
VBScript 代码(使用任务计划程序在特定时间运行):
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open("Excel file with VBA code")
objExcel.run "openQB"
objExcel.Quit
Set objExcel = Nothing
Set objWorkbook = Nothing
wcript.quit