Vba实现复制文本到剪切板

复制字符串到剪切板： 

Sub PutDataInClipboard()

    Dim objShell As Object

    Dim strInt As String

    strInt = "12345"

    Set objShell = CreateObject("WScript.shell")

    objShell.Run "cmd /C echo|set/p=" & strInt & "| CLIP", 2

End Sub

复制任意文件到剪切板： 

 

---

Private Declare PtrSafe Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

 

Sub test()

    Dim arr

    Dim name As String

    Dim msg As String

    Dim k As Long, j As Long

    Dim n As Long

   

    Rem 判断微信是否已打开

    If 判断微信是否打开() = False Then

        MsgBox "请先打开微信！"

        Exit Sub

    End If

   

    Rem 选择文件夹