excel的shell函数打开.btw模板

YANWEI82123300

由于单位的bartender是免费普通版的,不能通过VBA将数据传给.btw模板数据,现在只想通过excel的shell函数打开.btw模板,进行预览,不知是否可以做到?
数据源已经通过生成csv文件进行了更新了
Shell ThisWorkbook.Path & "\BarTender.exe"

ykcbf1100

关注一下。。。

YANWEI82123300

bartender automation 版本可以实现excel与模板的调用,
下面的代码就是automation版本的excel VBA调用btw模板的代码
Sub Test()
    Dim i%, j%, FilePath$, str$, arr
    Dim btApp As BarTender.Application
    Dim btFormat As BarTender.Format
    If Len(Dir(ThisWorkbook.Path & "\moduls_up.btw")) = 0 Then
        MsgBox "本目录当中没有[moduls_up.btw]文件，请核实后重试！", vbCritical, "错误提示"
        Exit Sub
    End If
    i = Range("A1048576").End(xlUp).Row
    arr = Sheet1.Range("A1:E" & i)
    Set btApp = CreateObject("BarTender.Application")
    btApp.Visible = False
    Set btFormat = btApp.Formats.Open(ThisWorkbook.Path & "\moduls_up.btw")
    For i = 2 To UBound(arr)
        btFormat.SetNamedSubStringValue "ITEM", arr(i, 2)
        btFormat.SetNamedSubStringValue "ITEM_DESC", arr(i, 3)
        btFormat.SetNamedSubStringValue "sn", arr(i, 5)
        
        
        btFormat.PrintOut
    Next
    btFormat.Close btDoNotSaveChanges
    btApp.Quit
End Sub




Sub Test1()
    Dim i%, j%, FilePath$, str$, arr
    Dim btApp As BarTender.Application
    Dim btFormat As BarTender.Format
    If Len(Dir(ThisWorkbook.Path & "\WO_Barcode-4X3_UP.btw")) = 0 Then
        MsgBox "本目录当中没有[WO_Barcode-4X3_UP.btw]文件，请核实后重试！", vbCritical, "错误提示"
        Exit Sub
    End If
    i = Range("A1048576").End(xlUp).Row
    arr = Sheet1.Range("A1:E" & i)
    Set btApp = CreateObject("BarTender.Application")
    btApp.Visible = False
    Set btFormat = btApp.Formats.Open(ThisWorkbook.Path & "\WO_Barcode-4X3_UP.btw")
    For i = 2 To UBound(arr)
       btFormat.SetNamedSubStringValue "WO_Number", arr(i, 1)
        btFormat.SetNamedSubStringValue "ITEM", arr(i, 2)
        btFormat.SetNamedSubStringValue "ITEM_DESC", arr(i, 3)
        btFormat.SetNamedSubStringValue "SN", arr(i, 5)
      
      
        btFormat.PrintOut
    Next
    btFormat.Close btDoNotSaveChanges
    btApp.Quit
End Sub

tanglf188

    Dim filePath As String
    filePath =  ThisWorkbook.Path & "\BarTender.exe"
    Shell "explorer.exe " & filePath, vbMaximizedFocus

YANWEI82123300

tanglf188 发表于 2024-3-14 16:16
Dim filePath As String
    filePath =  ThisWorkbook.Path & "\BarTender.exe"
    Shell "explore ...

tanglf188老师谢谢您您的代码只是打开了bartender.exe文件,我想打开.btw格式的模板

tanglf188

自己查看一下bartender.exe命令的参数
我这边没这个软件
你可以命令后接上文件名试试看看，例如：
filePath =  ThisWorkbook.Path & "\BarTender.exe " & ThisWorkbook.Path & "\moduls_up.btw"

YANWEI82123300

tanglf188 发表于 2024-3-14 16:21
自己查看一下bartender.exe命令的参数
我这边没这个软件
你可以命令后接上文件名试试看看，例如：

您好!我的bartender 个人免费没有啥参数设置呀!刚刚试了您的代码直接打开了我的文档文件夹,并没有打开bartender 这个软件,不知啥原因?

tanglf188

YANWEI82123300 发表于 2024-3-14 16:42
您好!我的bartender 个人免费没有啥参数设置呀!刚刚试了您的代码直接打开了我的文档文件夹,并没有打开bar ...

如果默认打开方式没问题，直接打开文件试试：
Dim filePath As String
    filePath =  ThisWorkbook.Path & "\moduls_up.btw"
    Shell "explorer.exe " & filePath, vbMaximizedFocus

YANWEI82123300

tanglf188 发表于 2024-3-14 16:44
如果默认打开方式没问题，直接打开文件试试：
Dim filePath As String
    filePath =  ThisWorkbook.P ...

老师您好!感谢您的帮助,问题解决了!!!
,我修改了您的代码将相对路径,改为绝对路径后,模板也可以打开了,代码如下:
Private Sub cmdsx_click()
Dim filePath  As String
Dim fn As String
fn = "V:\Dept folder\Production\Production plan\plan\Label Print_Bartender\Wo_List_CBA"  '绝对路径

  
  filePath = fn & "\moduls_up.btw"
   
  Shell "explorer.exe " & filePath, vbMaximizedFocus
  
End Sub