コモンダイアログボックスでExcelを選択して
Excelのファイルを表示させたいのですが、
「開く」を押しても何も起こりません。

何かアドバイスお願いします。

hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?no=998&reno=994&oya=873&mode=msgview

こちらは、試されたのでしょうか？、レスされていないようですが

> コモンダイアログボックスでExcelを選択して
> Excelのファイルを表示させたいのですが、
> 「開く」を押しても何も起こりません。

開くを押すとコモンダイアログのFileNameプロパティにファイルのパスが入ります。
コモンダイアログで出来るのはパスの取得まで。
開く処理は自分で書いて下さい。

いなさん、nanashiさん、お返事ありがとうございました！

必要なインストールやダウンロードは全て行いました。が、変わらず・・・
もう一度プログラムを書きなおしてみます。

またよろしくお願いします！！

>もう一度プログラムを書きなおしてみます。

それよりも、
左のサンプル項目、"Excel & Word関係"は読まれていますか？
パスの取得さえ出来ていれば悩むことはないはずですが・・・。

いなさん毎回ありがとうございます。

> 左のサンプル項目、"Excel & Word関係"は読まれていますか？

はい、VBからExcelをひらくことはできますが
コモンダイアログから開くにはどうしたらいいのか・・・
調べ中です。

> コモンダイアログから開くにはどうしたらいいのか・・・
コモンダイアログがファイルを開いてくれるとでも？
過去の投稿を見てもそうですが、皆さんのアドバイス理解してますか？

> いなさん毎回ありがとうございます。
>
> > 左のサンプル項目、"Excel & Word関係"は読まれていますか？
>
> はい、VBからExcelをひらくことはできますが
> コモンダイアログから開くにはどうしたらいいのか・・・
> 調べ中です。

nanashiさんの書いてあることは読まれましたか？
↓
>開くを押すとコモンダイアログのFileNameプロパティにファイルのパスが入ります。
>コモンダイアログで出来るのはパスの取得まで。

それとも、自分が質問の内容を勘違いしているのかも
1.ＶＢのフォームにあるボタンをクリックするとコモンダイアログが起動する。
2.コモンダイアログでＥｘｃｅｌファイルを選択すると、FileNameプロパティにファイルのパスが入る。
  注意：コモンダイアログで出来るのはパスの取得を行うことだけ。
3.取得したパスを、、、VBの・・・。ってこれは出来てる↓って書いてあるしどうゆうことだろう・・・。

> はい、VBからExcelをひらくことはできます

もう少し、情報がないとちょっと回答が出来ません。
なんども書きますが、コモンダイアログで出来るのはパスの取得を行うことだけ。
実際に開くものではありません。

> なんども書きますが、コモンダイアログで出来るのはパスの取得を行うことだけ。
> 実際に開くものではありません。

理解していませんでした。すみませんでした。

コモンダイアログからshell関数で既存のExcelファイルを開くには、
プログラム名はどうすればいいですか？

> コモンダイアログからshell関数で既存のExcelファイルを開くには、
> プログラム名はどうすればいいですか？

前に
> はい、VBからExcelをひらくことはできます
と、書かれていますが、これはShell関数で開く方法ではないのですか？
もしそうでしたら、そのファイル名の部分をコモンダアログで取得した
ファイル名(CommonDialog1.FileName)に変えるだけですが・・・

LESIAさん、早速のお返事ありがとうございます。
> 前に
> > はい、VBからExcelをひらくことはできます
> と、書かれていますが、これはShell関数で開く方法ではないのですか？

すいません、全くの見当違いでできていませんでした。

Private Sub Command1_Click()
With CommonDialog1
.DialogTitle = "元名簿の選択"
.Filter = "Excel ファイル (*.xls)|*.xls|All File (*.*)|*.*"
.InitDir = "\\File2\Homes2\ua01110\meibo"
.ShowOpen
    
FileName = CommonDialog1.FileName
IRtn = Shell("FileName", vbNormalFocus)

End With
End Sub

これで実行すると「ファイルが見つかりません」というエラーが出てしまいます。
パスがちがいますか？

hhttp://www.geocities.co.jp/SiliconValley/5634/t82A8_0004.html#2107

> これで実行すると「ファイルが見つかりません」というエラーが出てしまいます。
> パスがちがいますか？

違います(^^;
これでは、コモンダイアログで取得したファイル名じゃなくて、"FileName"という
文字列になってしまいます。変数にはダブルクォーテーションは付けません。
また、変数名はプロパティと同じ名前は付けない方が良いです。

ところで、Shell関数は実行可能プログラムを実行させるもので、エクセルファイル等の
文書ファイルを直接指定しても動きません。

関連付けされたファイルを起動するならこんな感じになります。

strFileName = CommonDialog1.FileName
IRtn = Shell(Environ("ComSpec") & " /c start " & strFileName)

できました！！感激です・・・
LESIAさん、本当にどうもありがとうございました。

同じ事を何度も聞いたりしてすみませんでした。
返事をくれたみなさんどうもありがとうございました。