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

vb6.0中怎么把已经截取好的字段存放到excle表中？

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

vb6.0中怎么把已经截取好的字段存放到excle表中？

发表于：2008-01-22 20:53:03 楼主

我是个菜鸟，先谢谢大家啦！我在vb6.0中，把2个txt文件中的一些数字信息（比如：“你好是005吧，我是007”中005截取出来放在新的txt中）截取出来之后放在一个新的txt文件中的一个功能。现在我想把放在txt文件中的这些信息放在excle表格中来显示出来，该怎么做？

发表于：2008-01-22 23:59:111楼得分:0

將 txt 文件的擴展名改成 .cvs / .xls （注：內容用tab分隔）

发表于：2008-01-23 08:39:072楼得分:0

dim xexcel as object
dim xworkbook as object

set xexcel = createobject（"excel.application")
set xworkbook = xexcel.workbooks.add

with xworkbook.sheets（1)
.range（"a1") = 你的文本数据
end with
xexcel.application.alertbeforeoverwriting = false
xworkbook.saveas filename:="d:\test.xls"
xworkbook.close
set xworkbool = nothing
set xexcel = nothing

发表于：2008-01-23 08:53:583楼得分:0

如果不怎么要求显示格式的话（仅显示），直接做成逗号文件，也就是一楼说的.cvs文件
你双击即可食用excel打开此文件
具体做法自己搜索！和普通的文本没有什么区别，就是分割副的问题

如果要求总和呀，统计呀，还有虚线，红字醒目显示等，就用2楼的对象操作，

发表于：2008-01-23 10:09:284楼得分:0

谢谢啦！～这里真是个学习的好地方

下一篇：为什么vb中format命令不能用，提示引用不存在？
上一篇：此语句怎样解释

其他资讯