vb调用excel某一行数据，然后给函数变量赋值，得出结果，最后将结果导出至excel
这个是提问链接，悬赏255，求老师帮写个代码http://zhidao.baidu.com/question/1641633022601779740...
这个是提问链接，悬赏255，求老师帮写个代码
http://zhidao.baidu.com/question/1641633022601779740 展开
http://zhidao.baidu.com/question/1641633022601779740 展开
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
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
追问
请不要逗我，这个代码我早看过
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
