VB.net2003のエクセルからデータを取得したいのですが・・・
お世話になります。
VB.NET2003でExcel XPのセルの数値を取得しTextBoxなどで表示させたいのですが、うまいこといきません。
下に考えてみたコードを書いてみます。
とりあえずExcelのA1セルの値を取得してみたいのですが、後ほどループで他のセルの値も取得したいと思っています。
これを回すと、num(1, 1) = sheet.cells(1, 1)(下から3行目)で”追加情報 : 型 'Range' から型 'String' へのキャストが有効ではありません。”とされます。
どなたかご教授お願いしますm(__)m
Private Sub exel_open()
'------配列設定-----
Dim app As Object 'エクセルアプリケーションの定義
Dim book As Object 'ブックの定義
Dim sheet As Object 'シートの定義
Dim col, row As Integer 'colは行、rowは列
Dim num(1, 1) As String '各セルの値を取得
'------エクセルファイルを開く&表示-------
app = CreateObject("Excel.Application")
app.application.visible = True
book = app.Workbooks.Open("D:\test.xls") 'エクセルファイルのopen
sheet = book.Worksheets(1)
'-----エクセルデータの読み込み------
num(1, 1) = sheet.cells(1, 1)
TextBox1.Text = num(1, 1)
End Sub
お礼
参考にさせていただきます。ありがとうございます。