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

 我来答
wyw0113
推荐于2016-08-09 · TA获得超过2107个赞
知道大有可为答主
回答量:2519
采纳率:66%
帮助的人:973万
展开全部
‘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
追问
多谢啦!以后有问题可能还需要阁下的帮助。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式