首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

在QuickBooks中使用VBA添加多行费用项目的支票,可以通过以下步骤实现:

  1. 首先,确保已经安装了QuickBooks软件,并且具备VBA编程环境。
  2. 打开QuickBooks软件,创建一个新的支票。
  3. 在VBA编辑器中创建一个新的模块。
  4. 在模块中编写VBA代码来添加多行费用项目。以下是一个示例代码:
代码语言:vba
复制
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
  1. 运行VBA代码,即可在QuickBooks中添加多行费用项目的支票。

这段代码使用QuickBooks提供的QBFC(QuickBooks Foundation Classes)库来实现与QuickBooks的交互。通过创建QuickBooks应用对象、开始会话、创建支票对象、设置支票信息、添加费用项目、保存支票、结束会话等步骤,可以实现在QuickBooks中添加多行费用项目的支票。

请注意,以上代码仅为示例,具体的费用项目名称、金额等需要根据实际情况进行修改。

腾讯云相关产品和产品介绍链接地址:

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券