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

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

‘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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息