从VBA打开.btw文件

Question

我想问为什么我的代码出现此错误，因为它看起来不错。 请任何人可以帮助我吗？我只想打开此.btw格式文件

这是我的代码

Sub Printlabel() 
    Dim printdata As Workbook 
    Dim history As Workbook 

    Dim btApp As BarTender.Application 
    Dim btFormat As BarTender.Format 
    Dim btSubString As BarTender.SubString 

    Set btApp = New BarTender.Application 
    Set btFormat = btApp.Formats.Open("D:\test\test.btw") 
    btApp.Visible = False 
    btFormat.SetNamedSubStringValue "Part", Filename

    'Select the data source 
    btSubString = btFormat.NamedSubStrings.GetSubString(1) 

    'Show the data source's name 
    MessageBox.Show (btSubString.Name) 
End Sub

code image

这是我得到的错误：

  

编译错误：
  用户定义的类型未定义

error image

Answer 1

您必须设置对BarTender库的引用。

因此，请转到VBA编辑器菜单中的工具›引用，并浏览到BarTender库。

有关更多信息，请参见：Check or Add an Object Library Reference