问从VBA打开.btw文件

EN

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