最近沒事想學學VB，初步設想，做一個視窗，1 錄入學號 ENTER 2錄入成績 ENTER 能自動保存到EXCEL檔案 A1.B1 再 錄入學號 ENTER 2錄入成績 ENTER 能自動保存到EXCEL檔案 A2.B2.。。。。。。。。。
uj5u.com熱心網友回復：
記得Excel本身就支持這樣做的，不用寫什么代碼。uj5u.com熱心網友回復：
這里要學的有兩件事情：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 陳述句的方
式。
以上內容可以在網上搜一下，有很多例子。
uj5u.com熱心網友回復：
。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/136420.html
標籤：VBA