はじめまして。VBの初心者です。

CommonDialog1.ShowOpen で、ファイルを開いて、さらにそのファイルを表示したいです。（ファイル名ではない）

教えてください。お願いします。

> さらにそのファイルを表示したいです。（ファイル名ではない）

そのファイルを、どのように表示したいのでしょうか?

PictureBox に表示したいとか、TextBox に表示したいとか、
WebBrowser に表示したいとか、メモ帳を起動してそこに表示させたいとか、
フォルダを開いてそのファイルを選択状態にしておきたい、とか……。

> フォルダを開いてそのファイルを選択状態にしておきたい、とか……。

早速、有難うございます。

フォルダを開いてそのファイル（例: book1.xls)をこの状態（Excelの状態）で開きたいです。

> フォルダを開いてそのファイル（例: book1.xls)をこの状態（Excelの状態）で開きたいです。

「フォルダを(エクスプローラやマイコンピュータで)表示する」と
「Excel ファイルを(Microsoft Excelで)表示する」という、
2 つの処理を行いたいのですね?


フォルダを開くには幾つかの方法がありますが、たとえば
　directoryPath = "C:\Program Files\"
　CreateObject("Shell.Application").Explore directoryPath
のような方法があります。


Excel の起動も、やはり幾つかの方法がありますが、
　filePath = "C:\sample\data.xls"
　CreateObject("WScript.Shell").Run filePath
のような方法があります。

すいませんが、例えば下のような時です。
Private Sub Command1_Click()
       CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    CommonDialog1.Flags = cdlOFNHideReadOnly
    CommonDialog1.Filter = "すべてのファイル (*.*)|*.*|"                  
    CommonDialog1.FilterIndex = 2
    CommonDialog1.ShowOpen
==================================================
    ' ユーザーが選択したファイル名を表示します。　!!!!　　ここでファイルを表示したいです。
    MsgBox CommonDialog1.filename　　　　　　　　　
==================================================  
Exit Sub  
ErrHandler:
    Exit Sub
End Sub

>     ' ユーザーが選択したファイル名を表示します。　!!!!　　ここでファイルを表示したいです。

そこに、先ほど提示した処理を書いてください。
そのために必要なパスは、CommonDialog から得られますよね。

失礼しました。　　　m ( _ _ ) m

有難う ございました。