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 · ベストアンサー

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)で取得することができました。
どうもありがとうございました。

回答No.1

hana-hana3

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

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

お礼

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

早速試してみます。