注册 登录
编程论坛 VB6论坛

一个关于将数据填在EXCEL表中位置的问题,请大家再帮个忙,谢谢!

OKI4 发布于 2013-04-13 00:06, 582 次点击
Open "D:\"123.xls" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1

这段代码意思是 打开D盘123.xls的EXCEL文档,然后把Text1中的内容填入EXCEL表中的第一行第一格
                                                                                 把Text2中的内容填入EXCEL表中的第二行第二格
然后关闭EXCEL文档

问题:
   如果想把 Text2 中的内容填入到 EXCEL 表中的第一行第二格要怎么改代码?(如果还有一个Text3 想填入到 第一行第三格,要怎么改?)

请大家帮个忙,谢谢~~~
2 回复
#2
风吹过b2013-04-13 11:43
你这是文本文件。


----------------------------------------------------------------------
如果你要用 XLS 文件 ,请按我上一贴子里的代码的读取的方法 进行写入数据。
   ExcelID.cells(行坐标,纵坐标)=??

   ExcelID.Workbooks.save    '保存当前活动的工作簿
#3
OKI42013-04-13 21:36
谢谢版主了,我写好了、、、、
Print #1, Text1.Text; vbTab; Text2.Text; vbTab; Label2.Caption; vbTab; Label3.Caption
1