无需登录电脑即可打开 QuickBooks 文件

问题描述 投票:0回答:0

我正在从事一个项目,该项目涉及在一夜之间输入 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
excel vba vbscript quickbooks
© www.soinside.com 2019 - 2024. All rights reserved.