Question

vb 操作excel， 如何在excel文件中写入值

比如说 我想把vb的窗体上的textbox里的内容“好好学习，天天向上”插入在(3,4)单元里

我想在窗体上有一个按钮，一按这个按钮，“好好学习，天天向上”就到了指定的excel里指定的单元里
谢谢
我要的是代码~~~

Answer 1

Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object
Dim str As String
str = App.Path & "\11.xls"

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False '设置excel对象不可见
Dim objWorkBook As Excel.Workbook
objExcel.SheetsInNewWorkbook = 1
Set objWorkBook = objExcel.Workbooks.Add
objExcel.Cells(3,4) = Text1.Text
objWorkBook.SaveAs str
objWorkBook.Close (True)
objExcel.Quit
Set objExcel = Nothing
End Sub

Answer 2

以前做过，不过现在忘了，你说的这个实现起来很简单，只要看看vba的知识就行了。