[VBA]请教VBA中如何使用剪贴板（如将字符串复制到剪贴板），谢谢先！！！

liushengk

请教VBA中如何使用剪贴板（如将字符串复制到剪贴板），谢谢先！！！

ntchjie

复制 Clipboard.Clear
Clipboard.SetText “abc” 粘贴 abc=Clipboard.GetText

liushengk

怎么办啊？！（在CAD的VBA里面）


Clipboard.Clear


运行时错误“424” 要求对象


请帮帮忙！！

ntchjie

你可以看看vba里面gettext的帮助，里面有个例子可以参考。

雪山飞狐_lzh

Sub tt1()
Dim a As New DataObject
a.SetText "ABC"
a.PutInClipboard
End Sub
Sub tt2()
Dim a As New DataObject
a.GetFromClipboard
MsgBox a.GetText
End Sub

liushengk

谢谢楼上两位，问题解决了！！

ningyong58

Sub VTC() 'short for SystemVariableToClipboard
   
    toClipboard
   
End Sub

Sub toClipboard() 'short for SystemVariableToClipboard
   
    Dim objectList As New DataObject
    Dim param As String
    Dim parameterArray() As String
    Dim ref As String

    parameterArray() = Split(ThisDrawing.Utility.GetString(False), " ")
    For i = 0 To UBound(parameterArray)
        ref = ref & getSysVar(parameterArray(i))
        If UBound(parameterArray) > 0 Then ref = ref & vbNewLine
    Next i
   
    objectList.SetText ref
    objectList.PutInClipboard
   
End Sub

Private Function getSysVar(varName As String) As String
Dim SysVar As String
Dim i As Integer

On Error Resume Next
SysVar = ThisDrawing.GetVariable(varName)
If Err <> 0 Then
    Err.Clear
    SysVar = varName
ElseIf varName = "DWGNAME" Then 'REMOVE DRAWING FILE EXTENSIOIN IE '.dwg'
    Do
    If Mid(SysVar, Len(SysVar) - i, 1) = "." Then
        SysVar = Left(SysVar, Len(SysVar) - i - 1)
        i = Len(SysVar)
    Else
        i = i + 1
    End If
    Loop While i < Len(SysVar)
End If

getSysVar = SysVar

End Function

Sub tt1()
Dim a As New DataObject
a.SetText "ABC"
a.PutInClipboard
End Sub
Sub tt2()
Dim a As New DataObject
a.GetFromClipboard
MsgBox a.GetText
End Sub

AirCD

学习了。

crazylsp

雪山方法的可以哈。

无厘崖

vb文本复制到剪贴板很有用