Question

vb中将8个文本框数据存入Excel表格中，求代码(添加什么控件也描述一下)。成功的话，就给分。

Answer 1

‘VB6.0 EXCEL文件扩展名为xls的情况。
Dim MyXL As Object '定义存放引用对象的变量。
Set MyXL = CreateObject("excel.application")
Set mysheet = Nothing
Set mybook = Nothing
Set mybook = MyXL.Workbooks.Open(“D:\123.XLS”)
Set mysheet = mybook.Worksheets("sheet1")
mysheet.Range("a1") =Textbox1.text
mysheet.Range("a2") =Textbox2.text
mysheet.Range("a3") =Textbox3.text
mysheet.Range("a4") =Textbox4.text
mysheet.Range("a5") =Textbox5.text
mysheet.Range("a6") =Textbox6.text
mysheet.Range("a7") =Textbox7.text
mysheet.Range("a8") =Textbox8.text
mybook.SaveAs d:\abc.xls
mybook.Close
MyXL.Quit

追问

多谢啦！以后有问题可能还需要阁下的帮助。