• ベストアンサー

ファイルを選択状態にする

現在VBAで「ファイルを選択し、そのファイルを読み込む」という作業をしているのですが、何かいい方法はないでしょうか？ 自分で作ったものは、「ファイルを開くダイアログを表示させ、ユーザーが自分でファイルを選択する」というものなのです。 これを、「ファイルを開くダイアログを表示させ、フォルダを選択したらその中のファイルをすべて選択したことにする」という風にしたいのです。 皆様お忙しい中申し訳ありませんが、ご教授してください。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

Sub Folder_Select() Dim Shell As Object Dim OpenFolder As Object Set Shell = CreateObject("Shell.Application") Set OpenFolder = Shell.BrowseForFolder(0, "フォルダ選択", 1) MsgBox OpenFolder.items.Item.Path End Sub 参考までにMsgBox OpenFolder.items.Item.Pathで、選択されたフォルダのパスを表示しています。

その他の回答 (1)

回答No.2

#1です。追記です。先ほどのはフォルダを選択するところまでなので。 フォルダが選択されるとパスが取得できるので、あとはそのパスの中のファイルをFor文などで次々に読み込んでいけばいいかと。

volving
質問者

お礼

お返事が遅くなってしまい申し訳ありません！ winarrow07さんのやり方を参考にしてやってみたところ無事できました！！ ありがとうございました！！！

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBSでファイル選択ダイアログを表示させたい

    VBS初心者です。 フォルダ選択ダイアログは BrowseForFolder にて可能なのですが、 VBSでファイル選択ダイアログを表示するのどうするのでしょうか？ どなたかご存知でしたらご教授下さい。

  • ファイルとフォルダのどちらも選択できるダイアログ

    環境 　OS:Win2000及びWinXP 　バージョン：VB6.0 SP5 ファイルとフォルダのどちらも選択できるダイアログを使用する為のAPIを探しています。 詳しく言うと、Windowsのエクスプローラ上で右クリックから新規のショートカットを作成した際の、 ウィザードにて参照ボタンを押下した際に表示される使用されているダイアログのようなものです。 フォルダまたはファイルだけのダイアログをAPIにて表示できる方法は調べて分かったのですが、 フォルダとファイルをどちらでも選択できるダイアログが見つかりませんでした。 逆にフォルダまたはファイルだけのダイアログのAPIのオプションの違いなのでしょうか？ ヒント・キーワード・参考サイトだけでも良いので、 よろしくお願いします。

  • VisioのVBAでユーザにファイルを選択させる方法

    Visio 2003のVBAについてお伺いします。 ユーザに１または複数のファイルを選択させるためのダイアログを表示させたいのですが、どうやればよいのか分からなくて困っております。コマンドを教えて頂ければ幸いです。 ちなみに、VisioのVBAでは、ExcelにあるGetOpenFilenameコマンドがサポートされておりません。GetOpenFilenameコマンドと同様な機能を有するVisioのコマンドがあれば、それを教えてください。 よろしくお願い致します。

  • ファイルの選択→ ファイルの場所を任意にしたい時

    文書作成に、毎日Word2003を使用しています。 いつも、「マイドキュメント」の中の「Word」の中の「仕事」というフォルダの中の「▲▲」の中の「■■」にファイル（●●）が増えていく状態です。 また、ヤフーのブリーフケースを使い、ここにファイル（●●）を控えとして、随時保存しています。 その際、「参照」でファイルの選択をする時に、 毎回、「マイドキュメント」→「Word」→「仕事」→「▲▲」→「■■」と進んで●●にたどり着きます。 これを、もっと簡易に●●にたどりつける方法は何かないでしょうか？ 「ファイルの選択」というダイアログボックスの左側に 「デスクトップ」や「マイドキュメント」「マイコンピュータ」「マイネットワーク」などがあり、 そこへ行くなら簡易にたどり着けるので、 できれば、そこに自分の作った「仕事」フォルダもしくは「▲▲」フォルダあるいは「■■」フォルダがあればなぁと、いつも思います。 階層がある際、皆様も、こうして一つ一つ降りて行っているのでしょうか？

  • ファイル選択ダイアログについて

    VB.net(2003)で作成したアプリケーションに ファイルを開くダイアログ関数(OpenFileDialog関数)を使用して、 ファイルを取り込む機能を作成しましたが、 ファイルを開く画面の左側にあるデスクトップを選択した際、 又は1つ上のフォルダへをクリックしてデスクトップの場所を表示した際に アプリケーションとダイアログが消えてしまう現象が発生しました。 原因となる事象がわかる方がおりましたら、ご教授願います。 　動作環境 OS : WindowsXP SP3

  • ファイルを複数選択して・・・

    ダイアログボックスでファイルを複数選択して、読み込んだ内容をテキストボックスに表示させたいのですが、複数でやるとどうもうまくいきません・・・。 どういうふうにコードを記述すればよいのでしょうか？ よろしくお願いします。

  • 「ファイルを開くプログラムの選択」にソフトが無い

    WindowsXPのパソコンを使用しています。 フォルダを開いて、その中からレタッチした写真(Photoshopで切抜いたもの)をダブルクリックして開こうとしましたが、「Windows」ダイアログが表示され、つぎの文章が書かれていました。 【　このファイルを開けません ファイル：　○○○○○○○○ このファイルを開くには、作成元のプログラムが必要です。インターネットで自動的にプログラムを検索するか、またはコンピュータにあるプログラム一覧から手動で選択してください。 動作をせんたくしてください。 ○Webサービスを使用して適切なプログラムを探す ◎一覧からプログラムを選択する　　　】 この後、「一覧からプログラムを選択する」にチェックを入れて、「ファイルを開くプログラムの選択」ダイアログが表示されましが、その中には肝心の「Photoshop」がありませんでした。 もちろんこのパソコンの中にはPhotoshopがインストールされていますし、このパソコンでその写真をレタッチしました。 どうして一覧のなかに、ソフトが表示されないのでしょうか？　どうすれば表示されるでしょうか？

  • 【AccessVBA】フォルダを指定してインポート

    私は現在、Accessでフォルダ内のExcelファイルを一括でインポートし集計するというツールを作成しております。 そこで質問ですが、フォルダ指定ダイアログを表示し、ダイアログで指定したフォルダ（中はxls,xlsx,xltmなど）をテーブル上にインポートするようなVBAはありますでしょうか？ まとめます。 ・フォルダを選択するダイアログを表示したい ・一つのフォルダの中に、幾つものエクセルファイルが存在する ・ファイル名などはバラバラです ・シート単位でインポートしたいです ・インポートするシートを選択できるようにしたいです ・テーブルのカラムは決まっています 以上です。 どうか皆様のアドバイスよろしくお願い致します。

  • エクセルでCSVファイルをユーザーに選択させたい

    エクセルVBAで、特定のフォルダ（C:\Data）に入っているCSVファイルをユーザーに選択させたいのです。 ただ、その際、選択肢に表示させるファイルに、例えば”企画“という文字列があることを条件にしたいのです。 組み込みダイアログであれば OpenFileName = Application.Dialogs(xlDialogOpen).Show("C:\Data\*企画*.csv") で大丈夫だと思います。 しかし、組み込みダイアログでは実際にそのファイルがエクセルで開かれてしまい、先頭の数字の0が消える等の不都合が起きてしまいます。 そのため、ファイルは指定させますが実際には開かずファイル名だけを取得する Application.GetOpenFilenameを使おうと思いました。 これでファイル名さえ所得できればあとは外部データの取り込みでCSVデータを取得できます。 ところが、 OpenFileName = Application.GetOpenFilename("C:\Data\*企画*.csv") はエラーになってしまいます。ネットで検索すると、Application.GetOpenFilenameではファイル名にワイルドカードは使えないようです。 このような場合、どのような方法をとればよいでしょうか？

  • AutoCADLT200iのファイル選択詳細設定

    AutoCADLT200iのファイル選択ダイアログ表示を詳細に固定する方法を教えてください。フリーソフトTweak Dlgも試しました。マイコンピュータ ツール フォルダオプション 表示 各フォルダの表示のチェックを外してもだめでした。ご存じの方、ご教授をお願いします。OSはXPです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する