Excelのセルの値を取得

VB2005Expressにて開発しています。

Excelのセルの値を取得するにはどうしたらいいのでしょうか。
下記でExcelは起動出来るのですが、値の取得ができません。

また、Rangeで範囲を指定して一括取得して、1データずつ配列化した
変数にセットすることは可能なのでしょうか。

Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks

Dim xlFilePath As String = "C:\excel_test.xls"
Dim xlBook As Excel.Workbook = xlBooks.Open(xlFilePath)
Dim xlSheets As Excel.Sheets = xlBook.Worksheets
Dim xlSheet As Excel.Worksheet = xlSheets.Item(1)
xlApp.Visible = True

どなたかご存知の方がいらっしゃいましたら教えて下さい。
よろしくお願いします。

No.2 ベストアンサー 回答者： n-jun 回答日時： 2008/07/17 12:47

　　Dim xlApp As New Excel.Application

　　Dim xlwb As Excel.Workbook = xlApp.Workbooks.Open("R:\aaa.xls")
　　Dim xlsheet As Excel.Worksheet
　　Dim v As Object

　　xlsheet = xlwb.Worksheets("a")
　　v = xlsheet.Range("A1:B3").Value
　　MsgBox(UBound(v, 1) & "-" & UBound(v, 2))
こんな感じで出来ましたけど。
ご参考まで。

この回答へのお礼

回答していただきありがとうございます。

v(1,1)で取得することができました。
どうもありがとうございました。

お礼日時：2008/07/17 20:12

No.1 回答者： hana-hana3 回答日時： 2008/07/17 11:31

Dim Ary As Variant

Ary = Range("A1:Z100")
MsgBox LBound(Ary, 1) & " - " & UBound(Ary, 1) & " , " & LBound(Ary, 2) & " - " & UBound(Ary, 2)

ＶＢＡでは、Variant 型の配列にそのまま入ります。

この回答へのお礼

回答していただきありがとうございます。

早速試してみます。

お礼日時：2008/07/17 20:13