現在のファイル名をクリップボードにコピー
Sub FileNameCopy()
Dim name As String
Dim CB As New DataObject
name = ActiveWorkbook.name
With CB
.SetText name
.PutInClipboard
End With
End Sub
※ Microsoft Forms 2.0 Object Libraryを参照設定
Dim name As String
Dim CB As New DataObject
name = ActiveWorkbook.name
With CB
.SetText name
.PutInClipboard
End With
End Sub
※ Microsoft Forms 2.0 Object Libraryを参照設定
0 コメント:
コメントを投稿