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

例如,把存储在路径H:\2011数据\2011SSC.xls中的Excel数据表'[2011SSC.xls]Sheet1'!A1中的数据(表格A1中的数据)赋值给VB中的... 例如,把存储在路径H:\2011数据\2011SSC.xls中的Excel数据表'[2011SSC.xls]Sheet1'!A1中的数据(表格A1中的数据)赋值给VB中的变量代码要如何实现?谢谢! 展开
 我来答 举报
windsun81
2011-03-10 · 超过39用户采纳过TA的回答
知道小有建树答主
回答量:136
采纳率:0%
帮助的人:119万
展开全部
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
本回答被提问者采纳
3 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
百度网友af82ee87c
2011-03-10 · TA获得超过5330个赞
知道小有建树答主
回答量:1612
采纳率:0%
帮助的人:1040万
展开全部
在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
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
smh1982
2011-03-10 · TA获得超过843个赞
知道小有建树答主
回答量:1578
采纳率:0%
帮助的人:889万
展开全部
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
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
chiefzjh
2011-03-10 · TA获得超过9088个赞
知道大有可为答主
回答量:7013
采纳率:37%
帮助的人:2340万
展开全部
Workbooks.Open ("H:\2011数据\2011SSC.xls")
x = Workbooks(Workbooks.Count).Worksheets("Sheet1").Range("a1").Value
Workbooks(Workbooks.Count).Close
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
vbProgrammer
2011-03-10 · TA获得超过385个赞
知道小有建树答主
回答量:264
采纳率:0%
帮助的人:208万
展开全部
你可以使用excel application直接读取excel文件的内容,具体的你可以baidu一下,很多这方面的资料。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式