VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/03/08(Wed) 17:14
投稿者： とびた
Ｅメール：
ＵＲＬ：
タイトル： ＶＢから選択セルされた位置を取得する方法

環境　WinXP-Pro  VB6.0-SP6  Excel2003　

お世話になります。
ＶＢからExcelの選択されたセル位置のアドレスの取得方法について
アドバイスをいただきたく書込みさせていただきました。

    Set xlApp = CreateObject("Excel.Application.11")
    Set xlBook = xlApp.Workbooks.Open(strBookName, ReadOnly:=False)
    xlApp.Visible = True

    xlBook.Worksheets(1).Select
    strCell = Selection.Address(0, 0)


上記の様なコードで、１回目にBookを開いたときは、
選択されたセル位置を正常に取得出来るのですが、
一度、Bookを閉じて、再度、Bookを開いて、
セル位置を取得しようとすると、
〔実行時エラー91
　オブジェクト変数またはwihtブロック変数が設定されていません。〕
というメッセージが出て
    strCell = Selection.Address(0, 0)
のところで止まってしまいます。

Bookを閉じる時には、Excelも終了し、
Set xlBook = Nothing
Set xlApp = Nothing
を処理していることも確認しています。

どなたか、アドバイスをお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -