怎么把TXT文件导入到 Excel 啊

Question

怎么把TXT文件数据按条件查询后 导入到 Excel 啊

Answer 1

网上找一下Delphi关于Excel的操作吧，给你一个大概思路，可以用TMemo来加载Txt文件的内容，然后就把TMemo的内容写入Excle就行了。

Answer 2

假设有C:\test.txt文件，内容如下
Field1 Field2 Field3 Field4 Field5 Field6
2000013 0011400201 1 11103391000210103391000210 872000493 福建省机电设备总公司
2000013 0011400201 2 11301391000026301391000026 610211036 市台江特艺漆器厂
你可以这么操作：
procedure TxtToXls(Txt, Xls: TFileName);
const
  xlExcel9795 = 43;
var
  App, Workbook: OleVariant;
begin
  App := CreateOleObject('Excel.Application');
  Workbook := App.Workbooks.Open(Txt);
  Workbook.SaveAs(Xls, xlExcel9795);
  Workbook.Close(True);
  App.Quit;
end;procedure TForm1.Button1Click(Sender: TObject);
const
  ConStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0;Persist Security Info=False';
begin
  TxtToXls('C:\test.txt', 'C:\test.xls');
  ADOQuery1.ConnectionString := Format(ConStr, ['C:\test.xls']);
  ADOQuery1.SQL.Text := 'Select Field1, Field2, Field3, Field4, Field5, Field6 From [test$]';
  ADOQuery1.Open;
end;
你要查询或更新只要改变SQL语句来执行或者打开就行了。

Answer 3

有两种方法：一种是使用CreateOleObject('Excel.Application');这种方法效率低，代码不直观，但可以实现。另一种方法是根本不用CreateOleObject('Excel.Application');直接操作TXT变为Xls文件。你给的分有些少。只能回答你这么多了，自己到网上搜吧。