[vba vbs cmd tool] 【超便利ツール】Excelの所在ディレクトリ、ファイル名を簡単に表示させ、Copy及び開く

簡単な手順

１．手動にて下記のようにイメージでフレームを作っておく。

２．サンプルコード

Private Sub CommandButton1_Click()
    Call SetTextToClipboard(TextBox1.Text)'※
End Sub

Private Sub CommandButton2_Click()
    Call SetTextToClipboard(TextBox2.Text)'※
End Sub

Private Sub CommandButton3_Click()
    Call ExecuteCMD("cmd /c explorer " & TextBox1.Text)'※
End Sub

Private Sub UserForm_Initialize()
    TextBox1 = ActiveWorkbook.path
    TextBox2 = ActiveWorkbook.Name
End Sub

※参照先