excelのデータをvbにとりこむ

質問

excelのあるセルのデータを取り込みたいのですが、
どうすればよいでしょうか？

C:\123.xlsというファイルのsheet1の
（2，4）というセルにある実数型のデータを
出力するという、意図です。

Private Sub Setting_Click()

Dim xls As Object
Dim xlsFilename As String
Dim xlsSheetname As String

xlsFilename = "C:\123.xls"
xlsSheetname = "Sheet1"

Set xls = CreateObject("Excel.Application")
xls.Application.Visible = False
xls.Application.Workbooks.Open xlsFilename

Dim r1 As Double
r1 = xls.Application.Workbooks.cells(2, 4).Value

Print r1

end sub

回答No.1

unamana19 · ベストアンサー

>どうすればよいでしょうか？
どうすればいいんでしょうね・・・
実際に実行した場合にエラーが表示されると思うので、エラーの内容、
環境などは最低限書くようにしましょうね。

Dim ExcelApp As Object
Dim ExcelBook As Object
Dim ExcelSheet As Object

Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = False
Set ExcelBook = ExcelApp.Application.Workbooks.Open("C:\123.xls")
Set ExcelSheet = ExcelBook.Worksheets("Sheet1")

Debug.Print ExcelSheet.Cells(2, 4)

ExcelApp.Quit

お礼

ありがとうございます。
解決しました。