VB怎样调用并显示某个excel表中的数据？？

2024-10-31 12:04:05

推荐回答（1个）

回答（1）：

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