質問

VB.netでのExcelデータの読み込み

質問者：4622
投稿日時：2010/02/10 15:06

プログラミング初心者です。VB.net2003を使っています。
エクセルでBの列のセルデータを読み込みたいのですが、Bの列の3行目のセルから同列の最後のデータが入っているセルまでを1つずつ順番に取得して、それを配列に代入するにはどうすれば良いのでしょうか？
初歩的な質問で申し訳ないのですがよろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー20pt

回答者：n-jun
回答日時：2010/02/10 22:23

n－junです。

Dim v As Object
For Each v In xlWs.Range("B3", xlWs.Range("B" & xlApp.Rows.Count).End(Excel.XlDirection.xlUp)).Value
MsgBox(v)
Next

追加します。

この回答へのお礼

n－junさん

回答ありがとうございます！教えていただいた方法でやって
みましたら、うまくいきました！

通報する

No.1

回答者：n-jun
回答日時：2010/02/10 21:35

取り敢えずB3～B最終行までのセル範囲を取得するのなら
Dim xlApp As New Excel.Application
Dim xlWb As Excel.Workbook = xlApp.Workbooks.Open("D:\aaa.xls")
Dim xlWs As Excel.Worksheet = xlWb.Worksheets("Sheet1")
Dim xlRng As Excel.Range = xlWs.Range("B3", xlWs.Range("B" & xlApp.Rows.Count).End(Excel.XlDirection.xlUp))

MsgBox(xlRng.Address)

あとはFor Each等が良いのかな？