|
ダイアログで選択させる方法です。
14 . ユーザーからの入力を受け付ける
ht tp://www.big.or.jp/~seto/vbaref/vbaref14.htm
ダイアログで開くフォルダを指定する場合は↓が参考になると思います。
ファイルを開くダイアログではじめに開くフォルダを設定する
ht tp://vbaexcel.seesaa.net/article/148313379.html
なお、デスクトップは
CreateObject("WScript.Shell").SpecialFolders("Desktop")
とすれば現在のユーザーのデスクトップを指定できます。
ダイアログでファイルを選択するコードのサンプルです。
Dim WSH As Object
Dim crdr As String
Dim Ret As Variant
Set WSH = CreateObject("WScript.Shell")
'カレントディレクトリ取得
crdr = CreateObject("WScript.Shell").CurrentDirectory
'カレントディレクトリ変更/今回はデスクトップに変更
CreateObject("WScript.Shell").CurrentDirectory = CreateObject("WScript.Shell").SpecialFolders("Desktop")
'読み込むファイルをダイアログで指定
Ret = Application.GetOpenFilename("テキストファイル(*.txt),*.txt")
'キャンセルの場合
If Ret = False Then
MsgBox "キャンセルが選択されました。"
'カレントディレクトリを戻す
CreateObject("WScript.Shell").CurrentDirectory = crdr
'終了
Exit Sub
End If
'ダイアログで選択したファイルのパス
MsgBox ret
'テキスト読み込みのコードをここに書く
'カレントディレクトリを戻す
CreateObject("WScript.Shell").CurrentDirectory = crdr
|
|