ＶＢでエクセルをＯＰＥＮ

>オブジェクト変数 = GetObject("ファイルのパス")
>としてるのですが、変数にNothing

おそらく使用方法を間違えているからだと思います。
CreateObject("Excel.Application")
と同様に
GetObject("Excel.Application")
としてから、取得したEXCEL内部のワークブック情報を得なければいけません。


Private Sub Command1_Click()
　　Dim xlsApp　As Excel.Application
　　Dim xlsBook As Excel.Workbook
　　
　　Dim findBookPath　　As String
　　
　　findBookPath = "C:\Book1.xls"
　　
　　'起動チェック
　　On Error Resume Next
　　Set xlsApp = GetObject("Excel.Application")
　　On Error GoTo 0
　　
　　'起動していなければEXCELを起動する
　　If (xlsApp Is Nothing) Then
　　　　Set xlsApp = CreateObject("Excel.Application")
　　End If
　　
　　
　　'起動中のEXCELアプリケーションのブック情報から、指定の物が開かれているかをチェックする
　　For Each xlsBook In xlsApp.Workbooks
　　　　'見つかったらループを抜ける
　　　　If StrComp(xlsBook.FullName, findBookPath, vbTextCompare) = 0 Then
　　　　　　Exit For
　　　　End If
　　Next xlsBook
　　
　　'もし見つからなかったら、ワークブックをオープンする
　　If (xlsBook Is Nothing) Then
　　　　Set xlsBook = xlsApp.Workbooks.Open(findBookPath)
　　End If
　　
　　'不可視なEXCELを可視するなら、これをつける
　　xlsApp.Visible = True
End Sub

投稿日時 - 2002-03-22 00:26:50