VB怎样调用并显示某个excel表中的数据？？
展开全部
Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
for n=1 to 行数
for m=1 to 例数
msgbox xlSheet.Cells.Item(n, m)
'注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的
next
next
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
for n=1 to 行数
for m=1 to 例数
msgbox xlSheet.Cells.Item(n, m)
'注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的
next
next
追问
我想用的是 用一个随机函数，做一个简单的窗体、按键
然后点击按键可以直接显示Excel表中数据
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
