您的位置：程序门 -> vb -> 基础类

2个text文本框里的数据怎么保存到excel中的不同列

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

2个text文本框里的数据怎么保存到excel中的不同列[已结贴,结贴人:shiningfly2006]

发表于：2007-09-13 17:00:48 楼主

利用读写操做，可以把一个text文本框里的数据中的数据写到excel的第一列里，
程序如下：
open "c:\工作表.xls " for append as #1
print #1, text1.text
close #1

可现在我有两个text文本框，并且要把数据分别寸在excel的不同列，比如一个在a列，一个在b列。

望大家指点！谢谢！

发表于：2007-09-13 18:25:301楼得分:30

干吗不用excel对象来操作呢？

发表于：2007-09-13 18:37:512楼得分:50

使用excel对象的方法，
先把两个文本文件读入数组里面，再打开excel对象，一个一个内容写进去，再保存。

楼主用的方法，其实只是生成了一个后缀名为xls的txt文件而已。

发表于：2007-09-14 11:33:573楼得分:0

谢谢，我改用excel对象实现了。
代码如下，
dim i as long

dim xlapp as excel.application '定义excel类
dim xlbook as excel.workbook '定义工件簿类
dim xlsheet as excel.worksheet '定义工作表类
private sub command1_click（) '打开excel过程
set xlapp = createobject（ "excel.application ") '创建excel应用类
xlapp.visible = false '设置excel可见
set xlbook = xlapp.workbooks.open（ "d:\temp\bb.xls ") '打开excel工作簿
set xlsheet = xlbook.worksheets（1) '打开excel工作表
xlsheet.activate '激活工作表
'xlsheet.cells（1, 1) = "abc " '给单元格1行驶列赋值
'xlbook.runautomacros （xlautoopen) '运行excel中的启动宏

timer1.enabled = true
end sub
private sub command2_click（)
'if dir（ "d:\temp\excel.bz ") <> " " then '由vb关闭excel
xlbook.runautomacros （xlautoclose) '执行excel关闭宏
xlbook.close （true) '关闭excel工作簿
xlapp.quit '关闭excel
'end if
set xlapp = nothing '释放excel对象
end
end sub

private sub timer1_timer（)
i = i + 1
xlsheet.cells（i, 1) = text1.text
xlsheet.cells（i, 2) = text2.text

xlbook.runautomacros （xlautoopen)
end sub

其他资讯