| 投稿日 | ： 2003/03/30(Sun) 10:02 |
| 投稿者 | ： ひとし |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: VBからEXCELで選択されているセル範囲を取得したい |
すみません。
こういった書き込みは、初めてなので。
私がやってみたものは、以下のものです。
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
'-------------------------------------------------
Private Sub Command6_Click()
Text4.Text = "E:\workvb\読上\TEST.XLS"
'セル選択範囲を取得
Set xlApp = New Excel.Application
Set xlBook = GetObject(Text4.Text)
Set xlSheet = xlBook.ActiveSheet
With xlApp
iDAd11G = CStr(Selection.Row) '選択セルの左上の行番号 <----------ここで止まります
iDAd11R = CStr(Selection.Columns(1).Column) '選択セルの左上の列番号
iDAd12G = CStr(Selection.Rows(Selection.Rows.Count).Row) '選択セルの右下の行番号
iDAd12R = CStr(Selection.Columns(Selection.Columns.Count).Column) '選択セルの右下の列番号
End With
'---------ここから取得したセル位置を利用し、処理します。---------------
End Sub
次の書いていただいたコードも早速やってみます。
ありがとうございます。