Skip to content

Instantly share code, notes, and snippets.

@zhimiaoli
Created January 21, 2014 03:35
Show Gist options
  • Save zhimiaoli/8534064 to your computer and use it in GitHub Desktop.
Save zhimiaoli/8534064 to your computer and use it in GitHub Desktop.
使用VBA设置剪贴板
Function setclip(text As String)
Dim clip As MSForms.DataObject
Set clip = New MSForms.DataObject
clip.SetText text
clip.PutInClipboard
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment