vbsで選択ダイアログを表示したいのですがやり方が分かりません。教えてください。
以前は以下のようにしてたのですがUser~ってところがvistaでは動作しないようです。
また、既存の処理はできれば変えたくないので以下の関数内で選択されたファイル名を返却できるようにするにはどう変更したらよいでしょうか?
Function AAAA()
Dim objDialog
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Excel File|*.xls"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit
// ファイル名を返却
End Function
No.3ベストアンサー
- 回答日時:
UserAccounts.CommonDialog はXPだけで使える
と、記載されてましたね。
コモンダイアログ系オブジェクトはVBのライセンスが
ないと使えませんし、BrowseForFolderもファイルを
選ぶと落ちるので困ったもんです。
他のアプリケーションの力を借りるしかないと
思います。
(1)SFC mini をインストールしてAPIを実行
SFC mini はWindowsAPIをVBSから呼び出せる
ようにしたツールです。
http://kandk.cafe.coocan.jp/sfcmini/
(2)Excelの機能を使う。
Excelがインストールされていれば、以下のように
実装できます。
Dim A, B
Set A = CreateObject("Excel.Application")
B = A.GetOpenFilename("Excel File,*.xls")
A.Quit
Set A = Nothing
If B <> False Then
AAAA = B
Else
WScript.Quit
End If
No.2
- 回答日時:
vbs .BrowseForFolder
でググるのがいいようです。その中の一つ、
http://hp.vector.co.jp/authors/VA006065/scripts/ …
にありますが、コードはまずフォルダ選択、フォルダが
見えなくなるとファイル選択に切り替えるという手法です。
No.1
- 回答日時:
BrowseForFolderでググってみてください。
以下のようなものもあります。
http://msdn.microsoft.com/en-us/library/bb774065 …
また、
Vbscript for VISTA to get a file name using BROWSEFORFOLDER
だと、海外版ですがそのままがあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
vbscriptで、ファイル選択ダイアログを前面に出したい。
その他(プログラミング・Web制作)
-
VBS でユーザーからいくつかの候補から選択させる
その他(プログラミング・Web制作)
-
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
-
-
4
フォルダ参照ではなくファイルを指定したい。
Visual Basic(VBA)
-
5
VBScriptでHTMLのセレクトボックスで表示されている値に指定したい
その他(プログラミング・Web制作)
-
6
VBSで起動したアプリが前面表示しない
Visual Basic(VBA)
-
7
VBScript から JavaScript を呼び出すには
Visual Basic(VBA)
-
8
VBScriptでのフォルダ指定ダイアログについて
Visual Basic(VBA)
-
9
VBscriptでPDFファイルを直接印刷できるようにするためには?
Microsoft ASP
-
10
VBSで応答不要のメッセージボックスを表示したい
その他(パソコン・スマホ・電化製品)
-
11
vbsのセル値の取得について
その他(プログラミング・Web制作)
-
12
JavaScriptからVBScriptの呼び出しについて
JavaScript
-
13
SELECTボックスの内容を動的に変えるには
Microsoft ASP
-
14
ダウンロードダイアログをVBAから操作するには?
Visual Basic(VBA)
-
15
vbscriptでIE自動入力(コンボボックス選択について)
Visual Basic(VBA)
-
16
コモンダイアログコントロールがコンポーネントにありません
Visual Basic(VBA)
-
17
VBSでExcelのオープン確認
Visual Basic(VBA)
-
18
VBSでファイル選択ダイアログを表示させたい
その他(プログラミング・Web制作)
-
19
VBScriptでMsgBoxのYesNoボックスを自動的にクリックしたい
その他(プログラミング・Web制作)
-
20
VBScriptで外部プログラム実行中に「処理中」のダイアログボックスを表示したい
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
【マクロ】ファイル名の日付に...
-
フォルダ内のPDFファイル名を変...
-
windowsでテキストファイルの各...
-
Excel VBA コードを教えてくだ...
-
C ファイル出力で、フォルダが...
-
バックアップ(世代管理)機能...
-
vbsで選択ダイアログを表示した...
-
エクセル VBA ファイルをフォ...
-
ツリービューを使って、エクス...
-
カレントフォルダって?
-
Excel VBA で フォルダ名の一部...
-
ディレクトリ名変更してコピー...
-
パス名に2バイト文字(マルチバ...
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
excelマクロ 冒頭3文字が一致す...
-
バッチファイルで指定フォルダ...
-
エクセル 一つ上の階層の別フ...
-
バッチファイルでフォルダコピー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報