Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6252 / 76734

←次へ　｜　前へ→


	【76084】Re:入力フォーム

カリーニン - 14/9/20(土) 0:07 -


	引用なし

	パスワード

ダイアログで選択させる方法です。

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

3 hits

▼

【76082】入力フォーム 勉強中 14/9/19(金) 23:05