请问,在VB中如何实现将某一Excel数据表中的某个数据赋值给变量?
例如,把存储在路径H:\2011数据\2011SSC.xls中的Excel数据表'[2011SSC.xls]Sheet1'!A1中的数据(表格A1中的数据)赋值给VB中的...
例如,把存储在路径H:\2011数据\2011SSC.xls中的Excel数据表'[2011SSC.xls]Sheet1'!A1中的数据(表格A1中的数据)赋值给VB中的变量代码要如何实现?谢谢!
展开
5个回答
展开全部
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
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
本回答被提问者采纳
展开全部
在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
引用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
展开全部
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
Set wbk= GetObject("", "Excel.Application").Workbooks.Open("H:\2011数据\2011SSC.xls")
变量=wbk.Application.Cells(1,1)
wbk.close
set wbk=nothing
展开全部
Workbooks.Open ("H:\2011数据\2011SSC.xls")
x = Workbooks(Workbooks.Count).Worksheets("Sheet1").Range("a1").Value
Workbooks(Workbooks.Count).Close
x = Workbooks(Workbooks.Count).Worksheets("Sheet1").Range("a1").Value
Workbooks(Workbooks.Count).Close
展开全部
你可以使用excel application直接读取excel文件的内容,具体的你可以baidu一下,很多这方面的资料。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询