VBからＥｘｃｅｌのアクティブセルの位置を知る方法
VB6でExcel2000のワークシートを操作するプログラムを作成しています。次のようなことをやりたいと思ってます。
(1)Excelのワークシートを開く
(2)ワークシートの1点をクリックして、アクティブセルとする。（例えばA1)
(3)VBのプログラムのボタンを押すと、アクティブセルを基点に３×３を選択範囲とする。
そこで次のようなプログラムを書いてみました。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = GetObject(, "Excel.Application")
If Err.Number Then
MsgBox "Excel が起動されていません。"
Err.Clear
Else
' MsgBox "Excel はすでに起動中です。"
Set xlBook = xlApp.Workbooks.Item(1)
Set xlSheet = xlBook.Worksheets.Item(1)
'アクティブセルを取得する
'アクティブセルを３ｘ３に拡張する計算
xlSheet.Range("3x3に拡張した範囲").Select
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End If
しかし、アクティブセルを取得する方法がわかりません。誰か教えてください。
お礼
解決しました。 間違えてマクロでロックを施したようです。 ありがとうございました。