vb 与excel

Question

我要将ＶＢ界面里的ＴＥＸＴ１　和ＴＥＸＴ２里的数据在单击按钮后保存到ＥＸＣＥＬ１文档的垂直两列，怎么写代码。还请大虾细细指教,谢谢！

Answer 1

简单'book2.xls  为C盘下的文件，程序将Text1.Text和Text1.Text中的字符写入文件的Sheet1中，字段名分别为“用户”和“ID”Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rsT As ADODB.RecordsetSet cnn = New ADODB.Connection
With cnn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=c:\book2.xls;Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
End WithSet rsT = New ADODB.Recordset
    rsT.Open "select * from [Sheet1$]", cnn, adOpenDynamic, adLockOptimistic    rsT.AddNew
    rsT.Fields("用户") = Text1.Text
    rsT.Fields("ID") = Text2.Text
    
    
rsT.Update
rsT.CloseEnd Sub