如何使用VBA在Quickbook中添加多行费用项目的支票？

Sub AddMultipleExpenseLines()
    Dim qbApp As Object
    Dim qbInvoice As Object
    Dim qbExpenseLine As Object
    
    ' 创建QuickBooks应用对象
    Set qbApp = CreateObject("QBFC13.QBSessionManager")
    
    ' 开始会话
    qbApp.BeginSession "", 2
    
    ' 创建支票对象
    Set qbInvoice = qbApp.CreateMsgSetRequest("US", 13, 0).ResponseList.GetAt(0).Detail
    
    ' 设置支票信息
    qbInvoice.TxnDate.SetValue Date
    qbInvoice.TxnNumber.SetValue "12345"
    
    ' 添加费用项目
    Set qbExpenseLine = qbInvoice.ExpenseLineAddList.Append
    qbExpenseLine.AccountRef.FullName.SetValue "Advertising"
    qbExpenseLine.Amount.SetValue 100
    
    Set qbExpenseLine = qbInvoice.ExpenseLineAddList.Append
    qbExpenseLine.AccountRef.FullName.SetValue "Office Supplies"
    qbExpenseLine.Amount.SetValue 50
    
    ' 保存支票
    qbInvoice.Save.SetValue True
    
    ' 结束会话
    qbApp.EndSession
    Set qbApp = Nothing
End Sub