CorelDraw VBA宏错误：“对象必需”

Question

我正在为CorelDraw创建一个宏，当按下一个名为Generate的按钮时，它将从给定的文件夹中导入一个文件。当试图将文件路径赋值给变量时，我得到以下错误：

对象所需

这是我的密码：

Private Sub UserForm_Initialize()

    'Design Of Item'

    Me.DesignList.AddItem ("BIFT")
    Me.DesignList.AddItem ("BIFC1")
    Me.DesignList.AddItem ("BIFC2")
    Me.DesignList.AddItem ("BIFI")

    'Type Of Item'

    Me.TypeList.AddItem ("BIF HOODIE")
    Me.TypeList.AddItem ("BIF T-SHIRT")
    Me.TypeList.AddItem ("BIF SWEAT")
    Me.TypeList.AddItem ("BIF TANK")

    'Colours of the items'

    Me.ColourList.AddItem ("Grey")
    Me.ColourList.AddItem ("White")
    Me.ColourList.AddItem ("Black")
    Me.ColourList.AddItem ("Navy")

    Dim Design As String
    Dim Ctype As String
    Dim Colour As String
    Dim ShirtFPath As String

End Sub

Private Sub GenerateBtn_Click()
    Set ShirtFPath = ("C:\Users\Matt\Pictures\Clothing Line\Shirts")
    MsgBox (ShirtFPath)
    Set Design = DesignList.Value
    Set Ctype = TypeList.Value
    Set Colour = ColourList.Value
End Sub

Private Sub SaveBtn_Click()

    Dim fPath As Object
    Dim sr As ShapeRange

    Set fPath = Me.TB.Value
    If fPath Is Nothing Then Exit Sub
End Sub

Answer 1

您只对对象分配使用Set。对于内部类型(数字、字符串、布尔)，省略单词Set

ShirtFPath = "C:\Users\Matt\Pictures\Clothing Line\Shirts"
Design = DesignList.Value
Ctype = TypeList.Value
Colour = ColourList.Value