Question

怎么把vb的text中的内容输入到excel单元格中？

Answer 1

Private Sub Command1_Click()
Set objexcel = CreateObject("Excel.application")
objexcel.DisplayAlerts = False
Set objworkBook = objexcel.Workbooks.Open("d:\book1.xls")
objexcel.activecell.Value = text1 '保存到当前单元格
'objworkBook.activesheet.cells(r, c).Value = text1 '保存到指定单元格用这句，需要指定r和c即第几行和第几列
objworkBook.Save
objworkBook.Close
objexcel.quit
Set objexcel = Nothing
End Sub

Answer 2

Private Sub Command1_Click()
Open "a.xls" For Output As #1 '"a.xls"是文件名，自己改（xls是excel的后缀），注意要完整路径
Print #1, Text1.Text
Close #1
End Sub

窗体上一个commandbutton，一个textbox

已测试、可以输出到excel的第一格