EXCELの選択領域を掴む

分類:[VB6以前]

お世話になってます。

[質問]
VBでEXCELシートの選択域を取得する方法が知りたいです。

[補足]
VBでエクセルを起動し、範囲を選択し、取り込む事が目的。
どなたかご存知でしたら、お願いします。

環境
・WIN2000
・VB6SP5
・EXCEL2000

宜しくお願いします。

サンプルとなりそうなコードを書きますので、参考にしてみてください。
(MicrosoftExcel 9.0 Object Liblaryを参照設定する必要があります。）

--
Option Explicit

Private xlApp As New Excel.Application

Private Sub Command1_Click()
Dim xlBookSrc As Excel.Workbook
Dim xlSheetSrc As Excel.Worksheet

Set xlBookSrc = xlApp.Workbooks.Open(App.Path & "\Sample1.xls")
Set xlSheetSrc = xlBookSrc.Sheets(1)

Dim xlRangeSrc As Excel.Range
Set xlRangeSrc = xlSheetSrc.UsedRange

Dim intRow As Integer
Dim intCol As Integer
Dim varSrc
For intRow = 1 To xlRangeSrc.Rows.Count
For intCol = 1 To xlRangeSrc.Columns.Count
varSrc = xlSheetSrc.Cells(intRow, intCol)
Next
Next
xlApp.Visible = True
End Sub

■No545に返信(稲熊さんの記事)
> サンプルとなりそうなコードを書きますので、参考にしてみてください。
> (MicrosoftExcel 9.0 Object Liblaryを参照設定する必要があります。）
ありがとうございました。