Excel2000 VBA アクティブブックのフルパスをクリップボードにコピー

Excel2000 VBA  アクティブブックのフルパスをクリップボードにコピー

Sub book_fullpath_Clipboard()
'
'アクティブブックのフルパスをクリップボードのコピー
'
Dim full_name As String
Dim TempObject As MSForms.DataObject
'フルパス　ファイル名取得
    full_name = ActiveWorkbook.FullName

'クリップボードに保存
   
Set TempObject = New MSForms.DataObject
    With TempObject
        .SetText full_name
        .PutInClipboard
    End With
Set TempObject = Nothing
   
    MsgBox full_name & vbCrLf + vbCrLf & " クリップボードにコピーしました。"

End Sub

 

タグ：Excel2000 VBA