如何将txt中数据输出成excel文件(100分)

在TXT中有400行左右的数据，需要输出成EXCEL格式。
首行需要居中，黑体3号字体
其余只要4号字体就成。

这个应该怎么作？如何将TXT转成EXCEL格式

EXCEL 随便写一些数据 另存为 .csv
再用记事本打开CSV 就知道了
用,号的

如楼上说的，用CSV文件就可以。
另外，还可以用XLSREADWRITE也很快捷。

操作excel
分析text数据

然后将数据写到你想要的位置
http://www.delphibbs.com/keylife/iblog_show.asp?xid=19564

自己创建ole ,可以完全达到你的要求，就是速度慢。
给你几行参考代码。
var MyExcel,MyWorkbook:Variant;

MyExcel:=CreateOleObject('Excel.Application');
MyWorkbook:=MyExcel.Workbooks.Add;
MyExcel.Cells[1,3].Value:=' 车 间 结 算 料 表'; //标题...
MyExcel.ActiveSheet.Range['a150'].Font.size:=10; //设置全部字体大小为10
MyExcel.Cells[1,3].Font.size:=16; //设置标题大小为20
MyExcel.Cells[1,3].Font.bold:=true; //设置标题为粗体
MyExcel.ActiveSheet.Rows[3].Font.bold:=true; //设置字体为粗体
MyExcel.ActiveSheet.Rows[3].HorizontalAlignment:=1; //设置字体对中.
//设置列宽.
MyExcel.ActiveSheet.Columns[1].ColumnWidth:=3;
MyExcel.ActiveSheet.Columns[2].ColumnWidth:=7;

问题: 如何快速的将txt转换成excel格式 ( 积分: 100 )
分类: 非技术问题

来自: 白马小将, 时间: 2003-03-27 21:09:00, ID: 1716107
txt文件中的数据用符号'|'分割，如果用程序一行一行读入该文件，
然后分割成多个字段，用ExcelVar.range['A'+inttostr(i)].value:=.......一一赋值
对于小量数据还行，但是当txt中包含几万条记录是，将要几分钟的时候
而用excel直接到入，几乎马上就可以完成
现在要求用程序完成，时间在10秒，哪位大虾会，给出一点关键代码。

来自: 白马小将, 时间: 2003-03-27 21:11:00, ID: 1716114
这是excel宏记录vba
Sub 宏1()
'
' 宏1 Macro
' user 记录的宏 2003-3-27
'

'
ChDir "F:/delpi project/excel"
Workbooks.OpenText Filename:="F:/delpi project/excel/ipconfig.txt", StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2 _
), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 1))
Application.Left = 229.75
Application.Top = 172.75
End Sub
可惜我不会vb，不然用这个就非常容易了

来自: Pipi., 时间: 2003-04-23 12:01:00, ID: 1794708
使用delphi:

var
book,app:Variant;
begin
app := CreateOleObject('Excel.Application');
try
app.WorkBooks.OpenText('c:/see.txt',EmptyParam,1,{xlDelimited}1,EmptyParam,False,False,false,false,false,true,'|',VarArrayOf([VarArrayOf([1, 2]), VarArrayOf([2, 2]), VarArrayOf([3, 2]), VarArrayOf([4, 2]), VarArrayOf([5, 2]), VarArrayOf([6, 2]), VarArrayOf([7, 1])]));
app.visible:=false; //或者true;
book:=app.Workbooks['see.txt']; //注意，这里是光文件名see.txt，不包括路径c:/，这里使用'c:/see.txt'就不对了
deleteFile('c:/see.xls');
book.SaveAs('c:/see.xls',$0000002B);
finally
app.quit;
end;


来自: Cardinal, 时间: 2003-04-24 16:34:00, ID: 1799275
同意楼上

来自: 白马小将, 时间: 2003-04-26 12:03:00, ID: 1804504
非常感谢pipi
看了半天书
我用了vb来写了，说句实话，土得不得了
以后有时间或者新的项目，一定用上面的这招

来自: 地瓜, 时间: 2003-04-26 12:07:00, ID: 1804517
同意三樓

来自: cxz9, 时间: 2003-04-26 12:23:00, ID: 1804561
都是高手呀
要不直接生成CSV也可吧
'|'-->','

来自: redgate, 时间: 2003-04-26 12:24:00, ID: 1804569
同意三楼

来自: p96114, 时间: 2003-04-26 12:31:00, ID: 1804591
不错的方法

来自: 白马小将, 时间: 2003-04-27 1:18:00, ID: 1806298
cxz9:
那样不行
因为其中有字段是金额，千位需要用逗号分割，3，000.08


来自: cxz9, 时间: 2003-04-27 8:53:00, ID: 1806461
那用tab呀

来自: 白马小将, 时间: 2003-04-27 11:02:00, ID: 1806703
接受答案了.

得分大富翁: Pipi.

我现在是在程序中进行统计，可以生成一个TXT文件，但不会生成EXCEL文件，数据比较多，有没有快些的方法

全面控制 Excel

首先创建 Excel 对象，使用ComObj:
var ExcelID: Variant;

ExcelID := CreateOleObject( 'Excel.Application' );

1) 显示当前窗口：
ExcelID.Visible := True;

2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';

3) 添加新工作簿：
ExcelID.WorkBooks.Add;

4) 打开已存在的工作簿：
ExcelID.WorkBooks.Open( 'C:/Excel/Demo.xls' );

5) 设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;
或
ExcelID.WorksSheets[ 'Sheet2' ].Activate;

6) 给单元格赋值：
ExcelID.Cells[1,4].Value := '第一行第四列';

7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Column[1].ColumnsWidth := 5;

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows.PageBreak := 1;

10) 在第8列之前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度：
ExcelID.ActiveSheet.Range[ 'B34' ].Borders[2].Weight := 3;

1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / )

12) 清除第一行第四列单元格公式：
ExcelID.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性：
ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelID.ActiveSheet.Rows[1].Font.Bold := True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：
ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作：

a.拷贝整个工作表：
ExcelID.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
ExcelID.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Insert;
b. ExcelID.ActiveSheet.Columns[1].Insert;


17) 删除一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Delete;
b. ExcelID.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表：
ExcelID.ActiveSheet.PrintPreview;

19) 打印输出工作表：
ExcelID.ActiveSheet.PrintOut;

20) 工作表保存：
if not ExcelID.ActiveWorkBook.Saved then
ExcelID.ActiveSheet.PrintPreview;

21) 工作表另存为：
ExcelID.SaveAs( 'C:/Excel/Demo1.xls' );

22) 放弃存盘：
ExcelID.ActiveWorkBook.Saved := True;

23) 关闭工作簿：
ExcelID.WorkBooks.Close;

24) 退出 Excel：
ExcelID.Quit;



有很多类似的问题了。再贴一次吧。
procedure TForm1.Button5Click(Sender: TObject);
var
ExcelApp,MyWorkBook,mysheet:Variant;
i :byte;
s: string;
begin
try
ExcelApp:=CreateOleObject('Excel.Application');
MyWorkBook:=CreateOleobject('Excel.Sheet');
//? MyWorkBook:=ExcelApp.workbooks.open('C:/Book1.xls');
except
on Exception do raise exception.Create('无法打开Xls文件，请确认已 经安装EXCEL')
end;
ExcelApp.Visible := true;
//? mysheet:=MyWorkBook.WorkSheets[1].name;

MyworkBook:=ExcelApp.workBooks.Add;

//在此处插入读数据库及写Excel文档的代码
//其中写Excel文档的关键语句如下：
Myworkbook.worksheets[1].range['A11'].Merge(True);
Myworkbook.worksheets[1].range['A12'].HorizontalAlignment := $FFFFEFF4;
MyWorkBook.WorkSheets[1].Cells[1,1].Value := 'YourTitle';

i := 2;
MyWorkBook.WorkSheets[1].Cells[i,1].Value := 'yourCaption1';
MyWorkBook.WorkSheets[1].Cells[i,2].Value := 'yourCaption2';
MyWorkBook.WorkSheets[1].Cells[i,3].Value := 'yourCaption3';
MyWorkBook.WorkSheets[1].Cells[i,4].Val

多人接受答案了。