新手 请教 录入成绩表
最近没事想学学VB，初步设想，做一个窗口，1 录入学号 ENTER 2录入成绩 ENTER 能自动保存到EXCEL文件 A1.B1 再 录入学号 ENTER 2录入成绩 ENTER 能自动保存到EXCEL文件 A2.B2.。。。。。。。。。 记得Excel本身就支持这样做的，不用写什么代码。这里要学的有两件事情：
1 录入界面的编写。
2 Excel 表的写入。
录入界面运行是基于事件触发的：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, Asc("0") To Asc("9") '限制可输入的字符
Case 13
If Text1 > "" Then '回车的处理
Text2 = ""
Text2.SetFocus
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, Asc("."), Asc("0") To Asc("9")
Case 13
If Text2 > "" Then
'这里写保存到 Excel 的代码
'这里准备下一次录入
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
End If
Case Else
KeyAscii = 0
End Select
End Sub
保存到 Excel 主要有两种方法：
1 使用 VB 中的 Excel 对象，逐单元格写入，或将以 vbTab 分隔列，vbCrLf 分隔行的字符串成批地添加到 Range 对象。
2 将 Excel 当作 Jet Engine 的外部数据库，通过 ADO 或 DAO 对象，写入新记录。可以采用记录集 AddNew 的方式，也可以采用 SQL Insert 语句的方
式。
以上内容可以在网上搜一下，有很多例子。 。
补充：VB , VBA
