把TXT文件导入到Excel的问题，谢谢！ ( 积分: 100 )

Q

quharry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #1

TXT文本中每个字段间用“^”号隔开，直接用Excel导入文本或是在Delphi 中用ExcelWorkBook.OpenTxt 方法导入都会出现错误，比如一个["BA500-49-321"] 这样一个文本会从["BA500-49]这里断开，剩下的[-321"]会自动换行。不知道是不是因为数据量太大的原因，有6W多条数据。 试了多次都是如此，所以我想用Delphi自己来分割。

我的方法是用一个Memo 导入文本文件，然后逐行读取，分割字符串，再写入Excel中，但是这样速度实在是太慢了，大家都没有更好的方法，谢谢！

 

H

hfqxfx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #2

如果是临时的你试试先导入到sql2000中再导出到excel中呢，不过如果你的数据超过65000多行会出错，excel只支持65000多。

 

Q

quharry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #3

没有超过6.5W行数据，只有6.3W []
因为这个TXT文件是ERP每天出来的报表，我只是想用Delphi做个小工具，每天自动把TXT转换成Excel文件方便给业务部门使用。 有没有不使用数据库而简单一点的方法？

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #4

把"^"替换为",",然后文件名另存为.CSV.
直接用Execl就能打开.CSV文件了

 

H

hfqxfx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #5

我试过直接导也没有换行，我用的是2003。

 

Q

quharry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #6

谢谢了，似乎问题出在TXT文件上。本来数据是这样的["BA500-49-#321"]，但是用记事本打开会看不见“#”号，而是直接把“#”当成了换行符，把“#”后的数据直接换行了。 不知是不是ERP报表的问题，继续排查ing......

 

Q

quharry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #7

谢谢两位，给分了