问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

怎样用VB读取Excel文件中表格中的数据?

发布网友 发布时间:2022-04-23 03:49

我来回答

3个回答

热心网友 时间:2022-04-23 07:50

1、VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。

2、 VB读写EXCEL表:VB本身提自动化功能可以读写EXCEL表,其方法如下:

第一步:在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。

第二步:在通用对象的声明过程中定义EXCEL对象:Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet.

第三步:在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。

热心网友 时间:2022-04-23 09:08

Dim SheetID As Integer
Dim XlsRow As Long
Dim TotalBit As Integer
Dim MachineID00_Msg000(i) As String
Dim i As Integer
SheetID = 3 设定表编号,即Sheet的编号。
Set ExcelApp = CreateObject("Excel.Application") '
Set ExcelBook = ExcelApp.Workbooks.Open(App.Path + "\Pameter.dat") '路径
Set ExcelSheet = ExcelBook.Worksheets(SheetID) '
XlsRow = 2 '读取起始行
TotalBit = 16 '要读取的行数
For i = 0 To (TotalBit - 1)
MachineID00_Msg000(i) = ExcelSheet.Range("D" & XlsRow).value
XlsRow = XlsRow + 1 '循还
Next i
ExcelApp.quit
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set ExcelApp = Nothing

热心网友 时间:2022-04-23 10:43

不需要VB,就可以直接读取表格的数据。还可以对表格的数据进行需要的计算、汇总、统计等。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
idea community和idea有什么区别 美团生活费催收猛吗? 为什么美团生活费贷款不还钱会被催收? 电脑桌面图标有蓝色阴影如何去掉 给80多岁的老奶奶送什么生日礼物好,最好价钱在300左右 有谁可以给我出出主意,今年爷爷78岁生日,该送什么,要特别的 爷爷快78岁生日了,送什么礼物好呢 老父亲78岁大寿,送什么好呢? 爷爷78岁生日,我该送点什么? 中老年人生日送什么好啊。。。50-60 vb怎么根据excel中文本框里输入的内容查询sql数据库的数据显示在表格里... 如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果 vb或怎么快速批量搜索excel数据? 利用vb6查询Excel表格数据 请问如何在VB程序中打开一个excel表格进行查询数据 vb在excel中搜索数据 如何VB实现对Excel的数据查询 VB 查阅 Excel 文件 用酵母怎么蒸馒头 VB 查询EXCEL表格中某一列的数据 用vb查找excel里面的数据 怎么用酵母能蒸好馒头, VB 读取、查找 excel 数据 VB中如何查找Excel内容 vb中text如何查询excel中的数据 如果快手被举报快手官方有没有提示? 怎么举报快手上的不良作品? 快手如果我被别人举报了,我会收到通知吗? 在快手上举报别人,被举报者能知道举报者是谁吗假如不能,被举报者有没有可能通过bug查出举报者? 我在玩快手中,我把那个一个人给举报了,然后那个人会受到什么惩罚?_百度... 如何用VB 从EXCEL里面找数据? vb调用excel查询数据问题 琴音缈缈,知音难觅!《初见•蔡甸》预告震撼来袭~ 求经典修真小说(境界类似缥缈的设定)、王朝争霸小说~~~ 《仙路缈缈》txt下载在线阅读全文,求百度网盘云资源 秋夜雨寒的重生究竟哪个青缈是真实的 网络上淼缈写的《纨绔》小说,主人公是温辛(市*、参谋长)白辰辰,有没有第二部?或是完整版? 有关缥缈录作者 江南的简介 江南的九州缥缈录 九州缥缈录出了几卷 关于九州缥缈录一点问题 我感到我的梦想缥缈了 TNT演唱会门票怎么抢 买演唱会门票的技巧有哪些 同学玩微博,经常可以得到她自己喜欢的明星的演唱会门票,那是怎么得到的啊 马思唯广州场巡演开始了,想要抢到自己偶像的巡演门票你会采取怎样的方法? 如何购买演唱会门票? 如何订易烊千玺演唱会门票? 抢演唱会门票有什么技巧吗? 怎么抢到tfboys 四周年演唱会门票