エクセルファイルを開かせるには？

---

こんばんは

コモンダイアログを使ってエクセルファイルを開きたいのですが、
うまくできません。

どのようにしたら、エクセルファイルを開かせてアクティブ
にすることができるでしょうか？

コードは下のようにしています。
宜しくお願い致します。


Private Sub Command1_Click()
     CommonDialog1.ShowOpen
     If Len(CommonDialog1.FileName) <> 0 Then
        Text1.Text = CommonDialog1.FileName
     End If
End Sub


Private Sub Command2_Click()
 Dim myBook  As Workbook
 Dim myPath As String
 Dim myApp As Object
   
   Set myApp = CreateObject("Excel.Application")
    
    myPath = Text1.Text
 
   Set myBook = Workbooks.Open(myPath)
    
  'Unload Me

   
End Sub

編集 削除

---

おはようございます。

環境書くのを忘れました。
VB6SP6です。

宜しくお願いします。

編集 削除

---

コモンダイアログのプロパティをまず調べてください
その後メソッドを調べてください

というかこの程度の辞書引く程度のことはやってからの質問ですよね？
ヘルプに全部書いてあると思いますが
納得いかなければぐぐってください

編集 削除

---

というかファイル名取得できているんだったら
Workbooks.Open
とかその辺のメソッドを検索してみてください

編集 削除

---

>納得いかなければぐぐってください

ぐぐったら、花ち(略
のサイトが検索でき、そこにサンプルがある予感

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。