Vb对excel操作的实例.docVIP

Vb对excel操作的实例 最近，由于工作关系，我用vb6.0做了一个计算成绩的软件，由于我不会数据库技术，同行对excel应用又比较普遍，所以就用vb6.0操作excel完成了成绩统计的任务。 先说说窗体，很简单，只运用了菜单，由此来调用程序代码。截图如下： 窗体命名为excel操作，共五个一级菜单。 创建表册用来制作所用表格。 计算成绩用来算成绩。 模拟运算用来测试软件，设置了两个子菜单，一个填随机生成的数据。有了数据就可以计算成绩了，看看效果如何。 测试完了就可以清空数据了，清空成绩册中的基础数据以后再计算一次成绩就基本可以使表册恢复原样了。其实，我这是多此一举，回头一想，只需要重新创建所用表册就行了。 还画蛇添足了俩菜单：计算器和退出。 代码也贴出来共享一下。 创建表册：一年级： Private Sub ynjkb_Click() Call 建空表(10) Call 工作表命名(1) Call 成绩册(1) Unload excel操作 End Sub 创建表册：二年级： Private Sub enjkb_Click() Call 建空表(10) Call 工作表命名(2) Call 成绩册(2) Unload excel操作 End Sub 三至六年级略了吧。 创建表册：学校总评： Private Sub xxzp_Click() nj(1) = 一年级: nj(2) = 二年级: nj(3) = 三年级: nj(4) = 四年级: nj(5) = 五年级: nj(6) = 六年级 Call 建空表(2) 建立积分表 Sheets(1).Name = 学校积分 Sheets(2).Name = 积分 Sheets(学校积分).Select Range(a1:i1).Merge [a1] = 学校积分统计表: [a2] = 学校: [a3] = 南村小学: [a4] = 东风小学: [a5] = 兴中小学: [a6] = 尧场小学 nj(1) = 一年级: nj(2) = 二年级: nj(3) = 三年级: nj(4) = 四年级: nj(5) = 五年级: nj(6) = 六年级 For i = 1 To 6 Cells(2, i + 1) = nj(i) + 积分 Next Cells(2, 8) = 均积分: Cells(2, 9) = 名次 Range([a1], [i6]).Select Selection.HorizontalAlignment = xlCenter Call 表格加线(Range([a2], [i6])) Call 横排(6, 9) ActiveSheet.PageSetup.Orientation = xlLandscape Unload excel操作 End Sub 创建表册：上报： Private Sub shangbao_Click() Call 建空表(2) Sheets(1).Name = 中心校 Sheets(中心校).Select Call 上报表(中心校) Sheets(2).Name = 普小 Sheets(普小).Select Call 上报表(普小) Unload excel操作 End Sub 计算成绩：一年级： Private Sub yinianji_Click() Call 打开工作表 Call 算成绩(1) kmb(1) = 语文: kmb(2) = 数学: kmb(3) = 英语 Sheets(kmb(1)).Select For i = 1 To 8 记录一年级语文数据 With bj(i) .xxmc = Cells(2, i + 1) .dkjs = Cells(3, i + 1) .xkrs = Cells(4, i + 1) .xkzf = Cells(5, i + 1) .xkjgr = Cells(6, i + 1) .xkyxr = Cells(7, i + 1) .xkjf = Cells(8, i + 1) .bjkm = kmb(1) .njxh = 1 End With Next Sheets(kmb(2)).Select For i = 1 To 8 记录一年级数学数据 With bj(i + 8) .xxmc = Cells(2, i + 1) .dkjs = Cells(3, i + 1) .xkrs = Cells(4, i + 1) .xkzf = Cells(5, i + 1) .xkjgr = Cells(6, i + 1) .xkyxr = Cells(7, i + 1) .xkjf = Cells(8, i + 1) .bjkm = kmb(2) .njxh = 1 End With Next Dim