Невозможно создать объект OLE (DYMO SDK в VBA для Outlook 2010) - PullRequest
Новая
       59

Невозможно создать объект OLE (DYMO SDK в VBA для Outlook 2010)

0 голосов
/ 22 мая 2011

Я новичок в VBA, но я пытаюсь заставить DYMO LabelWriter работать в моем приложении VBA для Outlook 2010.

Я нашел различные примеры кода, но ни один из них не работает.Все они возвращаются с одинаковой ошибкой:

«Невозможно создать объекты OLE»

Надеюсь, это вызвано простой ошибкой из-за того, что я неиспользуется для работы с VBA.

Я включил все ссылки в редакторе VBA, которые имеют что-то с "DYMO" в имени.

Вот пример кода: 

Sub PrintLabels()
'Rembo wrote this routine - http://scriptorium.serve-it.nl
'This routine prints Excel data on sticker by using a template and the Dymo high level COM.
'It assumes you have a Dymo labelwriter printer and you have created a label that will
'serve as a template. On the label are two'text objects named OText1 and OText2.
'As a data source we assume text in cells B2:B5 and C2:C5 on your the first worksheet but
'obviously you can use any data source you like.

    Dim myDymo As Object
    Dim myLabel As Object
    Dim sPrinters As String
    Dim arrPrinters() As String
    Dim i As Long, i2 As Long, iStart As Long

    On Error Resume Next
    Set myDymo = CreateObject("Dymo.DymoAddIn")
    Set myLabel = CreateObject("Dymo.DymoLabels")
    If (myDymo Is Nothing) Or (myLabel Is Nothing) Then
        MsgBox "Unable to create OLE objects"
        Exit Sub
    End If

    'Check forDymo printer(s)
    'If there is one proceed and store the printernames in a variable, else quit
    sPrinters = myDymo.GetDymoPrinters()
    If sPrinters = "" Then
        Exit Sub
    Else
        i2 = 0
        iStart = 1
        For i = 1 To Len(sPrinters)
            If Mid(sPrinters, i, 1) = "|" Then
                i2 = i2 + 1
                ReDim Preserve arrPrinters(i2 + 1)
                arrPrinters(i2) = Mid(sPrinters, iStart, i - iStart)
                iStart = i + 1
            End If
        Next i
    End If

    'Store the current default printer and select the Dymprinter of your choice
    sDefaultPrinter = Application.ActivePrinter
    With myDymo
        '0 is first Dymo printer, you could use the printername instead: SelectPrinter "YourPrintername"
        .SelectPrinter arrPrinters(0)
    End With

    'Open the label template
    myLabel = myDymo.Open("C:\SomeFolder\LabelName.LWL")

    For i = 3 To 5
        'Give text objects OText1 and OText2 on the label a value
        With myLabel
            .SetField "OText1", Worksheets(1).Range("B" & i).Value
            .SetField "OText2", Worksheets(1).Range("C" & i).Value
        End With

        'Print the label
        With myDymo
            .StartPrintJob  'Only used for Turbo 400 model and higher for print optimizing, you may omit it
            .Print 2, False ' Print 2 copies
            .EndPrintJob    'Only used for Turbo 400 model and higher for print optimizing, you may omit it
        End With
    Next i

    'Make sure the default printer is selected again
    Application.ActivePrinter = sDefaultPrinter

    'Clean up
    Set myLabel = Nothing
    Set myDymo = Nothing
End Sub

1 Ответ

0 голосов
/ 22 мая 2011

Поскольку я не знаю программного обеспечения DYMO, я могу только догадываться, в чем проблема:

Предполагая, что DYMO SDK является внутрипроцессным COM-компонентом (он поставляется в виде DLL, а не EXCE), он должен иметь ту же разрядность, что и основная программа (в вашем случае Outlook). Так что, если ваш Outlook является 64-битной версией, то COM DLL также должна быть 64-битной версией.

Другая потенциальная проблема может заключаться в неправильной установке программного обеспечения.

Кстати: вам не нужно ссылаться на какие-либо компоненты COM из VBA, поскольку в коде используется поздняя привязка (все переменные имеют тип Object ). Лучше удалить эти ссылки.

...