'本程序专门用于将Excel中的学生数据输出至学生成绩单Word表格中
'作者:廖金辉,日期:2005年6月1日
'Excel中的数据的模板规定A7:Axx单元格开始是学生学号列,其中xx代表最后一名学生学号的行标号,表示学生学号地址范围
'C3:Ax3或C3:Bx3单元格是课程名行,x可以是A, B两个字母中的任意一个,表示课程地址范围
'成绩单Word表格是由Word模板产生的
'Word模板中定义了学生学号,姓名,专业,班级和课程及成绩书签
'课程最多有60门,分别用书签c1--c60代表;成绩用sc1--sc60代表
'定义学号范围输入对话框中要处理的字符串变量
Dim st1, stl1, str1, st10, st11, st12, st13, st14 As String
'学生人数变量n1和课程门数变量n2
Dim n1, n2 As Integer
'计数及循环变量
Dim i, i1, j, m, n, k, l, l1 As Integer
'定义Word对象变量
Dim WrdApp As Object
'定义课程名范围输入对话框中要处理的字符串变量
Dim st30, st31, st32, st33, st34, st35, st36, st37, st38 As String
'专业,班级名称变量,班级成绩单文档名变量st22
Dim st20, st21, st22 As String
'定义Word.Basic变量
Dim Wdbs As Object
'定义课程名称和成绩字符数组变量,最大数目为60(可根据实际情况修改)
Dim st(60), sts(60) As String
'st0为学生成绩单元格范围变量,stc为学生学号单元格地址字符串变量
'ste为学生姓名单元格地址字符串变量,sta和stb为学号和姓名单元格的值字符串变量
Dim st0, sta, stb, stc, ste As String
'判断学号单元格地址引用输入框是否为空的子过程
Sub setva1()
If UserForm1.TextBox1 = "" Then
MsgBox "学号列单元格引用区域不能为空", vbOKOnly, "错误"
'退出过程
Exit Sub
End If
End Sub
'判断课程名单元格地址引用输入框是否为空的子过程
Sub setva3()
If UserForm3.TextBox1 = "" Then
MsgBox "课程名行单元格引用区域不能为空", vbOKOnly, "错误"
'退出过程
Exit Sub
End If

下一页