🐘 テキスト欄に入れたパスのファイルを開く。
作成日: 2021/11/19
0

Excelである。
excel_20191224_02.jpg
開発、挿入、ActiveXコントロール、コマンドボタンを選び、
適当な名前を付ける。
ボタンをダブルクリック。
Option Explicit
Sub path_input_output()
Dim str As String
Dim WSH
str = InputBox(“パスを入力してください。”)
Set WSH = CreateObject(“Wscript.Shell”)
WSH.Run Chr(34) & str & Chr(34), 3
Set WSH = Nothing
End Sub

Private Sub CommandButton1_Click()
path_input_output
End Sub
と入力する。
あとは、保存後、一回閉じて、実行すればOK。
ダブルコーテーション(“)を文字列として表示したいのなら、Chr関数を使う手もあります。「”」の文字コードは34です。
よって、Chr(34)で”の意味。


VBSを中心に、ExcelのVBAをやったり、Pythonをやったりしてます。