エクセルファイルを開かせるには？ (ID:123104)

名前

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

本文 こんばんは コモンダイアログを使ってエクセルファイルを開きたいのですが、 うまくできません。 どのようにしたら、エクセルファイルを開かせてアクティブ にすることができるでしょうか？ コードは下のようにしています。 宜しくお願い致します。 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