Vb net操作excel实例Word格式.docx

1、12、过成绩（m）。13、打开（）。14、建空表（m）。15、无英语学校汇总（m）。16、有英语学校汇总（m）。17、计算器。编码主要分为主程序和子程序两个模块。注意：要添加引用excel。Imports System.IOPublic Class 统计成绩 Public 调用 = New 子程序（） Public 电子表格 As Excel.Application 定义变量 Public 工作簿 As Excel.Workbook Public 工作表 As Excel.Worksheet Public 单元格 As Excel.Range Private Sub 一年级ToolStripM

2、enuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 一年级ToolStripMenuItem.Click Call 调用.建空表（10） Call 调用.工作表命名（1） Call 调用.成绩册（1） End Sub Private Sub 二年级ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 二年级ToolStripMenuItem.Click C

3、all 调用.工作表命名（2） Call 调用.成绩册（2） Private Sub 三年级ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 三年级ToolStripMenuItem.Click Call 调用.建空表（8） Call 调用.工作表命名（3） Call 调用.成绩册（3） Private Sub 四年级ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.

4、EventArgs） Handles 四年级ToolStripMenuItem.Click Private Sub 五年级ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 五年级ToolStripMenuItem.Click Private Sub 六年级ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 六年级ToolStripM

5、enuItem.Click Private Sub 学校总评ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 学校总评ToolStripMenuItem.Click Call 调用.建空表（1） Dim nj（6） As String nj（1） = 一年级 : nj（2） = 二年级 nj（3） = 三年级 nj（4） = 四年级 nj（5） = 五年级 nj（6） = 六年级 建立积分表 Dim 工作表 = 调用.工作簿.Worksheets（sheet1）

6、 工作表.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） = 尧场小学 For i = 1 To 6 工作表.Cells（2, i + 1） = nj（i） + 积分 Next 工作表.Cells（2, 8） = 均积分 工作表.Cell

7、s（2, 9） = 名次 工作表.Range（工作表.Cells（2, 1）, 工作表.Cells（6, 9）.Borders.LineStyle = 1 表格加线 Dim h = 6, l = 9 单元格 = 工作表.Range（工作表.Cells（1, 1）, 工作表.Cells（h, l） 设置行高和列宽 单元格.HorizontalAlignment = Excel.Constants.xlCenter 水平居中 单元格.RowHeight = 工作表.Application.CentimetersToPoints（Math.Round（21.3 - 3 * 2） / h, 2） 工作

8、表.Range（工作表.Cells（2, 1）, 工作表.Cells（11, 1）.ColumnWidth = 16.13 工作表.Range（工作表.Cells（2, 2）, 工作表.Cells（h, l）.ColumnWidth = Math.Round（29.7 - 3.69 - 1.9 * 2） / （l - 1） * 4.374, 2） 工作表.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape 横向打印 Private Sub 上报ToolStripMenuItem_Click（ByVal sender As Sy

9、stem.Object, ByVal e As System.EventArgs） Handles 上报ToolStripMenuItem.Click Call 调用.建空表（2） 调用.上报表（） Private Sub 全部表册ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 全部表册ToolStripMenuItem.Click Directory.CreateDirectory（C:Documents and SettingsAdministrator桌

10、面成绩统计） 建立文件夹 调用.建空表（10） 一年级 Call 调用.工作表命名（1） : 调用.工作簿.SaveAs（Documents and SettingsAdministrator桌面成绩统计一年级.xls 调用.工作簿.close（） 调用.电子表格.quit（）二年级 Call 调用.工作表命名（2） :Documents and SettingsAdministrator桌面成绩统计二年级.xls 调用.建空表（8） 三年级 Call 调用.工作表命名（3） :Documents and SettingsAdministrator桌面成绩统计三年级.xls四年级 Call 调

11、用.工作表命名（4） : Call 调用.成绩册（4）Documents and SettingsAdministrator桌面成绩统计四年级.xls五年级 Call 调用.工作表命名（5） : Call 调用.成绩册（5）Documents and SettingsAdministrator桌面成绩统计五年级.xls六年级 Call 调用.工作表命名（6） : Call 调用.成绩册（6）Documents and SettingsAdministrator桌面成绩统计六年级.xls Call 调用.建空表（1） 学校总评Documents and SettingsAdministrator

12、桌面成绩统计学校总评.xlsDocuments and SettingsAdministrator桌面成绩统计上报.xls MessageBox.Show（生成的成绩统计文件夹已存在桌面。 Private Sub 计算器ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 计算器ToolStripMenuItem.Click System.Diagnostics.Process.Start（calc.exe Private Sub 一年级ToolStripMenuI

13、tem1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 一年级ToolStripMenuItem1.Click 调用.打开（） 调用.填数据（1） Private Sub 二年级ToolStripMenuItem1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 二年级ToolStripMenuItem1.Click 调用.填数据（2） Private Sub 三年级ToolStripMenuI

14、tem1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 三年级ToolStripMenuItem1.Click 调用.填数据（3） Private Sub 四年级ToolStripMenuItem1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 四年级ToolStripMenuItem1.Click 调用.填数据（4） Private Sub 五年级ToolStripMenuItem1_Cli

15、ck（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 五年级ToolStripMenuItem1.Click 调用.填数据（5） Private Sub 六年级ToolStripMenuItem1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 六年级ToolStripMenuItem1.Click 调用.填数据（6） Private Sub 一年级ToolStripMenuItem2_Click（ByVal

16、 sender As System.Object, ByVal e As System.EventArgs） Handles 一年级ToolStripMenuItem2.Click 调用.清数据（1） Private Sub 二年级ToolStripMenuItem2_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 二年级ToolStripMenuItem2.Click 调用.清数据（2） Private Sub 三年级ToolStripMenuItem2_Click（ByVal sender

17、As System.Object, ByVal e As System.EventArgs） Handles 三年级ToolStripMenuItem2.Click 调用.清数据（3） Private Sub 四年级ToolStripMenuItem2_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 四年级ToolStripMenuItem2.Click 调用.清数据（4） Private Sub 五年级ToolStripMenuItem2_Click（ByVal sender As Syste

18、m.Object, ByVal e As System.EventArgs） Handles 五年级ToolStripMenuItem2.Click 调用.清数据（5） Private Sub 六年级ToolStripMenuItem2_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 六年级ToolStripMenuItem2.Click 调用.清数据（6） Private Sub 全部填ToolStripMenuItem_Click（ByVal sender As System.Object,

19、 ByVal e As System.EventArgs） Handles 全部填ToolStripMenuItem.Click Dim 电子表格 As New Excel.Application（） 电子表格.Visible = True 调用.工作簿 = 电子表格.Workbooks.Open（ 调用.工作簿.Save（） 电子表格.Quit（） Dim 电子表格2 As New Excel.Application（） 电子表格2.Visible = True 调用.工作簿 = 电子表格2.Workbooks.Open（ 电子表格2.Quit（） Dim 电子表格3 As New Exce

20、l.Application（） 电子表格3.Visible = True 调用.工作簿 = 电子表格3.Workbooks.Open（ 电子表格3.Quit（） Dim 电子表格4 As New Excel.Application（） 电子表格4.Visible = True 调用.工作簿 = 电子表格4.Workbooks.Open（ 电子表格4.Quit（） Dim 电子表格5 As New Excel.Application（） 电子表格5.Visible = True 调用.工作簿 = 电子表格5.Workbooks.Open（ 电子表格5.Quit（） Dim 电子表格6 As New Excel.Application（） 电子表格6.Visible = True 电子表格6.Quit（） Private Sub 全部清ToolStripMenuItem_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles 全部清ToolStripMenuItem.ClickDocuments and SettingsAdministrator桌面成绩统计二