Excelとの…

質問

皆さんはじめまして。早速質問です。VBからExcelを起動して、ブックを表示しました。そして、VBのからもう一度Excelのブックを表示しようとイベントを起こしたときに、ブックが既に表示されていた場合はそのブックをアクティブにしたいのですが、

Private Sub cmdXlsnew_Click() '★新規 Excel 表示
On Error Resume Next

Set xlsApp = GetObject(, "Excel.Application")

'★ブックがない時、又はエラーが生じた時
If Err.Number <> 0 Then
Set xlsApp = CreateObject("Excel.Application")

'★Excelにブック追加
xlsApp.Workbooks.Add

'★コマンドライン引数取得
xlsApp.DefaultFilePath = str_path

End If

'★Excelを表示
xlsApp.Visible = True

Set xlsApp = Nothing
Err.Clear
End Sub

のようにしたのですが、アクティブになりません。ちなみに

xlsApp.Visible = True
を
xlsApp.Activate
にしてもなりませんでした。困っています。初めて来たにしてはずうずうしいのですが、教えてください。お願いします。

回答No.2

2ch · ベストアンサー

Call AppActivate(xlsApp.Caption)

お礼

ありがとうございます！！出来ました！！(T T)　そしてこのカキコを確認する前にまた質問してしまったことをお詫びいたします。本当にありがとうございます！！

回答No.1

noname#4564

FindWindow を使ってみては？

お礼

ありがとうございます。そして返信をしなくてごめんなさい。m(_ _)m 貴方が最初に返信してきてくれてとっても嬉しかったです。あんなに早くに読んでくれる人がいると思わなかったので、本当に嬉しかったです。ありがとうございます。