クリップボードに値を設定する。サンプルはアクティブブックのフルパスを設定
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