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

ネネエ 2005-06-28 05:47:25 No: 123104

こんばんは

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

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

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

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

ネネイ 2005-06-28 16:57:37 No: 123105

おはようございます。

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

宜しくお願いします。

葉月α 2005-06-28 17:49:23 No: 123106

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

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

葉月α 2005-06-28 17:57:04 No: 123107

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

いな 2005-06-28 18:54:11 No: 123108

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

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