用vb将数据内容转换为excel文件

来源：百度知道 编辑：UC知道 时间：2024/05/05 18:39:51
我用vb6做了一个窗体，其中有一个MSFlexGrid控件，用于显示数据库中某一个表中的记录，其中有一个字段是id，现在我要做的是当用鼠标点击某一行记录的这个id字段之后，可以点击窗体下面的一个按钮，就可以把这条记录的相应信息存储为一个excel或是word文件，但现在我不知道如何获取这条记录的信息，以及转换格式，哪位高手能够提供一些思路么？谢谢了！
可能我没有说清楚，我的意思是从一个vb窗体的MSFlexGrid控件显示的数据中用鼠标单击选择一条后，可以点击窗体中的按钮，将这条选中的数据信息另存为本地的一个excel或word文件

最简单的方法,用计事本打开这个TXT文件,按照以下方法替换
将" "(2空格)替换为" "(一空格),知道文件不在变化
将" "(1空格)替换为","
另存为aaa.csv
用excel打开就行了

这个最简单

用vb代码如下
'打开文本文件
dim tmpstr as string
dim alltxt as string
open "c:\error.txt" for input as #1
do until eof(1)
read #1,tmpstr
alltxt=alltxt & tmpstr
loop
close #1
'这样整个文本就读近来了
'开始替换
do until instr(alltxt," ")=0'2空格
alltxt=replace(alltxt," "," ")'前2后1空格
loop
alltxt=replace(alltxt," ",",")'1空格
open "c:\error.csv" for output as #1
print #1,alltxt
close #1

生成的CSV不是EXCEL格式,但用任何版本的EXCEL打开都正常,安装EXCEL后默认也是用EXCEL打开CSV格式

注意,如果文本里有数字,那可能会转化为"0011"--"11",这个没办法

如果要生成XLS格式,比较麻烦,主要是拆分文本部分