Vb net操作excel实例Word格式.docx
《Vb net操作excel实例Word格式.docx》由会员分享，可在线阅读，更多相关《Vb net操作excel实例Word格式.docx（39页珍藏版）》请在冰豆网上搜索。
12、过成绩（m）。
13、打开（）。
14、建空表（m）。
15、无英语学校汇总（m）。
16、有英语学校汇总（m）。
17、计算器。
编码主要分为主程序和子程序两个模块。
注意：
要添加引用excel。
ImportsSystem.IO
PublicClass统计成绩
Public调用=New子程序（）
Public电子表格AsExcel.Application'
定义变量
Public工作簿AsExcel.Workbook
Public工作表AsExcel.Worksheet
Public单元格AsExcel.Range
PrivateSub一年级ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles一年级ToolStripMenuItem.Click
Call调用.建空表（10）
Call调用.工作表命名
（1）
Call调用.成绩册
（1）
EndSub
PrivateSub二年级ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles二年级ToolStripMenuItem.Click
Call调用.工作表命名
（2）
Call调用.成绩册
（2）
PrivateSub三年级ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles三年级ToolStripMenuItem.Click
Call调用.建空表（8）
Call调用.工作表命名（3）
Call调用.成绩册（3）
PrivateSub四年级ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles四年级ToolStripMenuItem.Click
PrivateSub五年级ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles五年级ToolStripMenuItem.Click
PrivateSub六年级ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles六年级ToolStripMenuItem.Click
PrivateSub学校总评ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles学校总评ToolStripMenuItem.Click
Call调用.建空表
（1）
Dimnj（6）AsString
nj
（1）="
一年级"
:
nj
（2）="
二年级"
nj（3）="
三年级"
nj（4）="
四年级"
nj（5）="
五年级"
nj（6）="
六年级"
'
建立积分表
Dim工作表=调用.工作簿.Worksheets（"
sheet1"
）
工作表.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
工作表.Cells（2,i+1）=nj（i）+"
积分"
Next
工作表.Cells（2,8）="
均积分"
工作表.Cells（2,9）="
名次"
工作表.Range（工作表.Cells（2,1）,工作表.Cells（6,9））.Borders.LineStyle=1'
表格加线
Dimh=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））
工作表.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'
横向打印
PrivateSub上报ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles上报ToolStripMenuItem.Click
Call调用.建空表
（2）
调用.上报表（）
PrivateSub全部表册ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles全部表册ToolStripMenuItem.Click
Directory.CreateDirectory（"
C:
\DocumentsandSettings\Administrator\桌面\成绩统计"
）'
建立文件夹
调用.建空表（10）'
一年级
Call调用.工作表命名
（1）:
调用.工作簿.SaveAs（"
\DocumentsandSettings\Administrator\桌面\成绩统计\一年级.xls"
调用.工作簿.close（）
调用.电子表格.quit（）
二年级
Call调用.工作表命名
（2）:
\DocumentsandSettings\Administrator\桌面\成绩统计\二年级.xls"
调用.建空表（8）'
三年级
Call调用.工作表命名（3）:
\DocumentsandSettings\Administrator\桌面\成绩统计\三年级.xls"
四年级
Call调用.工作表命名（4）:
Call调用.成绩册（4）
\DocumentsandSettings\Administrator\桌面\成绩统计\四年级.xls"
五年级
Call调用.工作表命名（5）:
Call调用.成绩册（5）
\DocumentsandSettings\Administrator\桌面\成绩统计\五年级.xls"
六年级
Call调用.工作表命名（6）:
Call调用.成绩册（6）
\DocumentsandSettings\Administrator\桌面\成绩统计\六年级.xls"
Call调用.建空表
（1）'
学校总评
\DocumentsandSettings\Administrator\桌面\成绩统计\学校总评.xls"
\DocumentsandSettings\Administrator\桌面\成绩统计\上报.xls"
MessageBox.Show（"
生成的‘成绩统计’文件夹已存在桌面。
"
PrivateSub计算器ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles计算器ToolStripMenuItem.Click
System.Diagnostics.Process.Start（"
calc.exe"
PrivateSub一年级ToolStripMenuItem1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles一年级ToolStripMenuItem1.Click
调用.打开（）
调用.填数据
（1）
PrivateSub二年级ToolStripMenuItem1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles二年级ToolStripMenuItem1.Click
调用.填数据
（2）
PrivateSub三年级ToolStripMenuItem1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles三年级ToolStripMenuItem1.Click
调用.填数据（3）
PrivateSub四年级ToolStripMenuItem1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles四年级ToolStripMenuItem1.Click
调用.填数据（4）
PrivateSub五年级ToolStripMenuItem1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles五年级ToolStripMenuItem1.Click
调用.填数据（5）
PrivateSub六年级ToolStripMenuItem1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles六年级ToolStripMenuItem1.Click
调用.填数据（6）
PrivateSub一年级ToolStripMenuItem2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles一年级ToolStripMenuItem2.Click
调用.清数据
（1）
PrivateSub二年级ToolStripMenuItem2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles二年级ToolStripMenuItem2.Click
调用.清数据
（2）
PrivateSub三年级ToolStripMenuItem2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles三年级ToolStripMenuItem2.Click
调用.清数据（3）
PrivateSub四年级ToolStripMenuItem2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles四年级ToolStripMenuItem2.Click
调用.清数据（4）
PrivateSub五年级ToolStripMenuItem2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles五年级ToolStripMenuItem2.Click
调用.清数据（5）
PrivateSub六年级ToolStripMenuItem2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles六年级ToolStripMenuItem2.Click
调用.清数据（6）
PrivateSub全部填ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles全部填ToolStripMenuItem.Click
Dim电子表格AsNewExcel.Application（）'
电子表格.Visible=True
调用.工作簿=电子表格.Workbooks.Open（"
调用.工作簿.Save（）
电子表格.Quit（）
Dim电子表格2AsNewExcel.Application（）'
电子表格2.Visible=True
调用.工作簿=电子表格2.Workbooks.Open（"
电子表格2.Quit（）
Dim电子表格3AsNewExcel.Application（）'
电子表格3.Visible=True
调用.工作簿=电子表格3.Workbooks.Open（"
电子表格3.Quit（）
Dim电子表格4AsNewExcel.Application（）'
电子表格4.Visible=True
调用.工作簿=电子表格4.Workbooks.Open（"
电子表格4.Quit（）
Dim电子表格5AsNewExcel.Application（）'
电子表格5.Visible=True
调用.工作簿=电子表格5.Workbooks.Open（"
电子表格5.Quit（）
Dim电子表格6AsNewExcel.Application（）'
电子表格6.Visible=True
电子表格6.Quit（）
PrivateSub全部清ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles全部清ToolStripMenuItem.Click
\DocumentsandSettings\Administrator\桌面\成绩统计\二
升级会员 