如何将一个TXT文件SAVE AS 成一个EXCEL文件?(200分)

  • 主题发起人 主题发起人 asdf888
  • 开始时间 开始时间
A

asdf888

Unregistered / Unconfirmed
GUEST, unregistred user!

1、我要open 一个TXT文件,(用ASSIGN,在READ到一个大的二维数组ARR中)
如:
31 17 39 10 13 15
12 26 07 9 18 20
27 19 13 25 32 74
2、横向排序。(冒泡排数组ARR)
3、转存成一个EXCEL文件

我打算用按这3步走,不知还有更好的方法吗?
如果这样可以,请问我的第3步应该怎么做?
初学DELPHI,请尽量详细些,谢谢!!
 
使用Automation
 
我现在已经完成前2步了。
请您告诉我如何将一个二维数组存成一个EXCEL文件
谢谢!!
 
多种处理办法:
1、保存为每个数值后加一个tab或空格,每行一个回车,
文件的后缀直接保存为xls(excel的),用excel就可以
直接打开
2、用
try
MsExcel:=CreateOleObject('Excel.Application');
except
cnShowMessage('无法打开Microsoft Excel');
exit;
end;

MsExcel.Visible:=True;
MsExcel.WorkBooks.Add;//新建一个sheet(页)
for i...
for j ...
MsExcel.Cells[i,j].Value := arry[i,j];
...
 
接受答案了.
 
后退
顶部