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

2 hits

【76082】入力フォーム 勉強中 14/9/19(金) 23:05 質問
【76083】Re:入力フォーム kanabun 14/9/20(土) 0:03 発言
【76084】Re:入力フォーム カリーニン 14/9/20(土) 0:07 発言
【76085】Re:入力フォーム カリーニン 14/9/20(土) 0:12 発言
【76089】Re:入力フォーム 勉強中 14/9/20(土) 21:08 お礼

6252 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free