Skip to content

Instantly share code, notes, and snippets.

@toagit

toagit/PutInClipboard.vbs

Created February 14, 2017 07:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save toagit/861dbdae7f08f2d6bb46b6df435f62f1 to your computer and use it in GitHub Desktop.
Save toagit/861dbdae7f08f2d6bb46b6df435f62f1 to your computer and use it in GitHub Desktop.
Download ZIP
クリップボードに値を設定する。サンプルはアクティブブックのフルパスを設定
Raw
PutInClipboard.vbs
Public Sub CopyActiveBookPath()
Dim path As String
path = ActiveWorkbook.FullName
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText path
.PutInClipboard
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment