Vb对excel操作的实例
最近,由于工作关系,我用 vb6.0 做了一个计算成绩的软件,由于我不会数据库技术,同行对excel 应用又比较普遍,所以就用 vb6.0 操作 excel 完成了成绩统计的任务。
操作方法
(01)先说说窗体,很简单,只运用了菜单,由此来调用程序代码。窗体命名为 excel 操作,共五个一级菜单。
(02)创建表册用来制作所用表格。
(03)计算成绩用来算成绩。
(04)模拟运算用来测试软件,设置了两个子菜单,一个填随机生成的数据。有了数据就可以计算成绩了,看看效果如何。
(05)测试完了就可以清空数据了,清空成绩册中的基础数据以后再计算一次成绩就基本可以使表册恢复原样了。其实,我这是多此一举,回头一想,只需要重新创建所用表册就行了。还画蛇添足了俩菜单:计算器和退出。
(06)代码也贴出来共享一下。计算成绩:一年级:Private Sub yinianji_Click()Call 打开工作表Call 算成绩 (1)kmb(1) = " 语文 ": kmb(2) = " 数学 ": kmb(3) = " 英语 "Sheets(kmb(1))ctFor i = 1 To 8 ' 记录一年级语文数据With bj(i) = Cells(2, i + 1) = Cells(3, i + 1) = Cells(4, i + 1) = Cells(5, i + 1)r = Cells(6, i + 1)r = Cells(7, i + 1) = Cells(8, i + 1) = kmb(1) = 1End WithNextSheets(kmb(2))ctFor i = 1 To 8 ' 记录一年级数学数据With bj(i + 8) = Cells(2, i + 1) = Cells(3, i + 1) = Cells(4, i + 1) = Cells(5, i + 1)r = Cells(6, i + 1)r = Cells(7, i + 1) = Cells(8, i + 1) = kmb(2) = 1End WithNextDim hgrs(8) ' 记录各学校合格人数For i = 1 To 8Sheets(xx(i))ctszl = h(" 总分 ", Range([a2], [f2])) ' 总分所在列即合格人数所在列szh = h(" 合格人数 ", Range(Cells(2, szl), Cells(80, szl))) '“合格人数”所在行hgrs(i) = Cells(szh + 2, szl)Next' 向学校总评表过录一年级数据nj(1) = " 一年级 ": nj(2) = " 二年级 ": nj(3) = " 三年级 ": nj(4) = " 四年级 ": nj(5) = " 五年级": nj(6) = " 六年级 " FileName:= & " 学校总评 "For i = 1 To 16With Sheets(" 积分 ")Sheets(" 积分 ")ct[a1] = " 年级 ": [a2] = " 学科 ": [a3] = " 学校 ": [a4] = " 人数 ": [a5] = " 总分 ": [a6] = " 及格人数 ": [a7] = " 优秀人数 ": [a8] = " 积分 "s(1, i + 1) = nj(bj(i))s(2, i + 1) = bj(i)s(3, i + 1) = bj(i)s(4, i + 1) = bj(i)s(5, i + 1) = bj(i)s(6, i + 1) = bj(i)s(7, i + 1) = bj(i)s(8, i + 1) = bj(i)End FileName:= & " 上报 "With Sheets(" 中心校 ") ' 过录中心校成绩s(bj(1) * 2 + 2, 3) = bj(1) + bj(2) + bj(6) ' 语文s(bj(1) * 2 + 2, 4) = bj(1) + bj(2) + bj(6)s(bj(1) * 2 + 2, 5) = Round(s(bj(1) * 2 + 2, 4) / s(bj(1) * 2 + 2, 3), 2)s(bj(1) * 2 + 2, 6) = bj(1)r + bj(2)r + bj(6)s(bj(1) * 2 + 2, 7) = bj(1)r + bj(2)r + bj(6)s(bj(1) * 2 + 2, 8) = hgrs(1) + hgrs(2) + hgrs(6)s(bj(1) * 2 + 3, 3) = bj(9) + bj(10) + bj(14) ' 数学s(bj(1) * 2 + 3, 4) = bj(9) + bj(10) + bj(14)s(bj(1) * 2 + 3, 5) = Round(s(bj(1) * 2 + 3, 4) / s(bj(1) * 2 + 3, 3), 2)s(bj(1) * 2 + 3, 6) = bj(9)r + bj(10)r + bj(14)s(bj(1) * 2 + 3, 7) = bj(9)r + bj(10)r + bj(14)s(bj(1) * 2 + 3, 8) = hgrs(1) + hgrs(2) + hgrs(6)End WithWith Sheets(" 普小 ") ' 过录普小成绩s(bj(1) * 2 + 2, 3) = bj(3) + bj(4) + bj(5) + bj(7) + bj(8) ' 语文s(bj(1) * 2 + 2, 4) = bj(3) + bj(4) + bj(5) + bj(7) + bj(8)s(bj(1) * 2 + 2, 5) = Round(s(bj(1) * 2 + 2, 4) / s(bj(1) * 2 + 2, 3), 2)s(bj(1) * 2 + 2, 6) = bj(3)r + bj(4)r + bj(5)r + bj(7)r + bj(8)s(bj(1) * 2 + 2, 7) = bj(3)r + bj(4)r + bj(5)r + bj(7)r + bj(8)s(bj(1) * 2 + 2, 8) = hgrs(3) + hgrs(4) + hgrs(5) + hgrs(7) + hgrs(8)s(bj(1) * 2 + 3, 3) = bj(11) + bj(12) + bj(13) + bj(15) + bj(16) '数学s(bj(1) * 2 + 3, 4) = bj(11) + bj(12) + bj(13) + bj(15) + bj(16)s(bj(1) * 2 + 3, 5) = Round(s(bj(1) * 2 + 3, 4) / s(bj(1) * 2 + 3, 3), 2)s(bj(1) * 2 + 3, 6) = bj(11)r + bj(12)r + bj(13)r + bj(15)r + bj(15)s(bj(1) * 2 + 3, 7) = bj(11)r + bj(12)r + bj(13)r + bj(15)r + bj(16)s(bj(1) * 2 + 3, 8) = hgrs(3) + hgrs(4) + hgrs(5) + hgrs(7) + hgrs(8)End WithUnload excel 操作End Sub
(07)框架已经完成,可以看出,卸载窗体的动作很频繁。这是我调试的结果,这样才能保证每次的动作都能顺利完成。我想这就是单窗体的特点吧。被调用的程序模块也挺多的,系统包也调用了,最频繁的就是打开文件对话框的调用。
(08)哦,还得说明一下,对 excel 的操作前提:Dim xlApp As icationDim xlBook As bookDim xlSheet As sheet本软件中,我第一次用了自定义类的数据类型。Private Type banjixxmc As Stringbjkm As Stringnjxh As Integerxkrs As Integerdkjs As Stringxkzf As Integerxkjgr As Integerxkyxr As Integerxkjf As LongEnd Type并设了一数组 Dim bj(16) As banji 来从年级成绩册向学校总评表过录数据。设了八个学校名称 Dim xx(8) ,设了 3 个科目表 Dim kmb(1 To 3) As String ,六个年级 Dim nj(1 To 6) As String ,班级人数为六个年级八个学校的二维数组 Dim gbrs(6, 8) 。
特别提示
由于篇幅限制,有些程序没有发出来。
-
微信网页版登陆不了怎么办?
大家有没有遇到微信电脑版登录不了的情况,今天来帮大家解决这个小问题,还不知道怎么处理的小伙伴们来学习一下吧。操作方法(01)在手机上打开微信,如图所示。(02)点击右下角的“我”。(03)再点击“账号与安全”,红圈中的选项。(04)然后点击“更多安全设置”。(05)把“账号安全...
-
将pdf转换成word后文档全是图片怎么办
MicrosoftWord是微软公司的一个文字处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在1983年编写的,很多人不知道将pdf转换成word后文档全是图片怎么办,下面让我们一起来学习一下吧操作方法(01)首先打开捷速OCR文字识别软件(02)将PDF放入捷速OCR文...
-
word2016脚注和尾注怎么设置 脚注尾注如何转换
在我们日常工作中,编辑Word文档时,需要对一些名词、句子进行解释说明,那么我们需要用到脚注,或是尾注。那怎么进行设置呢,下面就来进行简单的说明。操作方法(01)双击打开word文档,选中需要加脚注的文字,然后点击菜单栏【引用】。(02)然后点击【插入脚注】。(03)此时会在此页...
-
百度地图查看坐标
操作方法(01)首先,电脑打开搜狗浏览器,进入百度官网。(02)在上边我们点击百度地图的按钮。(03)进入地图上,可以看到当前自己所在城市。(04)点击地图下方的“地图开发平台”按钮。(05)在地图开放平台页面,点击:开发文档——坐标拾取器。(06)然后在地图中,随意点击一个位置,就可以查...