toagit
2/14/2017 - 7:04 AM

クリップボードに値を設定する。サンプルはアクティブブックのフルパスを設定

クリップボードに値を設定する。サンプルはアクティブブックのフルパスを設定

PutInClipboard.vbs
content_copyfile_download
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