Question

当我单击电子表格上的“导出”按钮时，它会将信息导出到C：\ IMPORT.TXT

然后我将其导入标签程序。从那里打印标签。

当我按导出

时，它出现的错误是“运行时错误380：无效的属性值”

我已附上电子表格。如果您单击工作表Tesco或Friends，您将看到一个导出按钮。

我不确定您是否可以在没有标签软件的情况下对其进行排序，但您可以查看宏代码并查看其失败的位置？

谢谢。

Option Explicit

Dim MojeF As ExcelExtras.Functions
Public Sub FileSend()
On Error Resume Next
    Dim wynik As String

    If MojeF Is Nothing Then Set MojeF = New ExcelExtras.Functions
    wynik = MojeF.FileTes(Application)
    ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 10

End Sub
Public Sub SendTesco()
Call SendIt("Tesco", "TESCO")
End Sub
Public Sub SendFr()
Call SendIt("Friends", "FRIENDPR")
End Sub
Public Sub SendConv()
Call SendIt("Con", "CONVEN")
End Sub
Public Sub SendStat()
Call SendIt("Station", "STATIONG")
End Sub

Public Sub SendIt(arkusz As String, kodd As String)
Dim wynik As String

    If MojeF Is Nothing Then Set MojeF = New ExcelExtras.Functions
 '   wynik = MojeF.SendIt(Application, arkusz, kodd, "a.txt - Notepad")
    wynik = MojeF.SendIt(Application, arkusz, kodd, "Sage Line 50 Financial Controller - Gourmet Productions Limited")
    ActiveWorkbook.Sheets(arkusz).Tab.ColorIndex = -4142

End Sub

Private Sub auto_open()
Dim aktywny As Integer

For aktywny = 1 To ActiveWorkbook.Sheets.Count
If Len(ActiveWorkbook.Sheets(aktywny).Name) > 1 And ActiveWorkbook.Sheets(aktywny).Name <> "Stand" And ActiveWorkbook.Sheets(aktywny).Name <> "Deluxe" Then ActiveWorkbook.Sheets(aktywny).Tab.ColorIndex = 3

Next

 End Sub

“运行时错误380：无效的属性值”

0 个答案: