ACCESS 往剪贴板里写入文本信息

Private Sub Command225_Click()
    '设置文本
    Dim str As String
    With Me.FMBomChrListTemp.Form
        str = str & .物料代码 & "/"
        str = str & .物料名称
        str = str & .规格型号 & "/"
        str = str & .Form.单位
    End With

    Dim clipboard As Object
    Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    clipboard.SetText str    
    clipboard.PutInClipboard  '导入文本
    MsgBox "已复制"
End Sub