请问，在VB中如何实现将某一Excel数据表中的某个数据赋值给变量?

Question

例如，把存储在路径H:\2011数据\2011SSC.xls中的Excel数据表'[2011SSC.xls]Sheet1'!A1中的数据（表格A1中的数据）赋值给VB中的变量代码要如何实现？谢谢！

Answer 1

dim ExcelAPP as object
DIM wbk
DIM BianLiang
Set ExcelAPP= GetObject("", "Excel.Application")
SET wbk=ExcelAPP.Workbooks.Open("H:\2011数据\2011SSC.xls")
Bianliang=wbk.sheets("sheet1").rang("A1")
wbk.close
set wbk=nothing
set Excelapp=nothing

Answer 2

在VB中：
引用Excel类型库
Sub vv()
Dim xls As Excel.Application
With xls.Workbooks.Open("H:\2011数据\2011SSC.xls")
a = .Sheets("Sheet1").[a1]
End With
xls.ActiveWorkbook.Close False
Set xls = Nothing
MsgBox a
End Sub

Answer 3

dim wbk as object
Set wbk= GetObject("", "Excel.Application").Workbooks.Open("H:\2011数据\2011SSC.xls")
变量=wbk.Application.Cells(1,1)
wbk.close
set wbk=nothing

Answer 4

Workbooks.Open ("H:\2011数据\2011SSC.xls")
x = Workbooks(Workbooks.Count).Worksheets("Sheet1").Range("a1").Value
Workbooks(Workbooks.Count).Close

Answer 5

你可以使用excel application直接读取excel文件的内容，具体的你可以baidu一下，很多这方面的资料。