Vb net操作excel实例

《Vb net操作excel实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Vb.net操作excel实例以前做了vb6.0操作excel的实例，后来转换成c#操作excel，再后来又转换成vb.net操作excel，通过比较，同样是运行在。.net环境下，但是vb.net明显要比c#快很多。我做的是成绩统计软件，一个窗体。俩控件：菜单和打开文件对话框。子程序目录：1、算成绩（m）。2、成绩册（m）。3、横排（h，l）。4、纵排（h，l）。5、单科统计表（m，n）。6、算分栏（h）。7、单科汇总（i）。8、填数据（m）。9、清数据（m）。10、上报表（m）。11、工作表命名（）。12、过成绩（m）。13、打开（）。14、建空表（m）。15、无英语学校汇总（m）。1

2、6、有英语学校汇总（m）。17、计算器。编码主要分为主程序和子程序两个模块。注意：要添加引用excel。ImportsSystem.IOPublicClass统计成绩Public调用=New子程序()Public电子表格AsExcel.Application'定义变量Public工作簿AsExcel.WorkbookPublic工作表AsExcel.WorksheetPublic单元格AsExcel.RangePrivateSub一年级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Ha

3、ndles一年级ToolStripMenuItem.ClickCall调用.建空表(10)Call调用.工作表命名(1)Call调用.成绩册(1)EndSubPrivateSub二年级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles二年级ToolStripMenuItem.ClickCall调用.建空表(10)Call调用.工作表命名(2)Call调用.成绩册(2)EndSubPrivateSub三年级ToolStripMenuItem_Click(ByValsenderA

4、sSystem.Object,ByValeAsSystem.EventArgs)Handles三年级ToolStripMenuItem.ClickCall调用.建空表(8)Call调用.工作表命名(3)Call调用.成绩册(3)EndSubPrivateSub四年级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles四年级ToolStripMenuItem.ClickCall调用.建空表(8)Call调用.工作表命名(3)Call调用.成绩册(3)EndSubPrivateSu

5、b五年级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles五年级ToolStripMenuItem.ClickCall调用.建空表(8)Call调用.工作表命名(3)Call调用.成绩册(3)EndSubPrivateSub六年级ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles六年级ToolStripMenuItem.ClickCall调用.建空表(8)Cal

6、l调用.工作表命名(3)Call调用.成绩册(3)EndSubPrivateSub学校总评ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles学校总评ToolStripMenuItem.ClickCall调用.建空表(1)Dimnj(6)AsStringnj(1)="一年级":nj(2)="二年级":nj(3)="三年级":nj(4)="四年级":nj(5)="五年级":nj(6)="六年级"'建立积分表Dim工作表=调用.工作簿.Worksheets("sheet1")工作表

7、.Name="学校积分"工作表.Range(工作表.Cells(1,1),工作表.Cells(1,9)).MergeCells=True工作表.Cells(1,1)="学校积分统计表"工作表.Cells(2,1)="学校"工作表.Cells(3,1)="南村小学"工作表.Cells(4,1)="东风小学"工作表.Cells(5,1)="兴中小学"工作表.Cells(6,1)="尧场小学"Fori=1To6工作表.Cell