Excel导入文本文件

[hsmserver]

我用的是‘|’的分割符
通过控制EXCEL的宏导入有个参数一直设置不好
请问有没有更好的办法
能实现就行

[hsmserver]

高手帮个忙

[oioioi-090]

没做过，帮顶！

[数字蛋糕]

最简单的就是用Tab键：#9

[fhuibo]

我这里是SQL 导出到 EXCELL和文本的 可以参考：不行的话再帮你看 EXCELL 导出文本：
procedure TFormDataExp.DataToExcel(aPath: string);
var
s, xlsConnstr: string;
begin
xlsConnstr := 'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=' + aPath + ';Persist Security Info=False';
s := 'Select * Into [sheet1] FROM '+ FMySQLStrList.Strings[ComboBoxTable.ItemIndex] + ' IN [ODBC]'
+ ' [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=HT01;]';
try
ADOConnecSQLServer.ConnectionString := xlsConnstr;
ADOConnecSQLServer.Connected := true;
ADOConnecSQLServer.Execute(s);
Application.MessageBox('导出Excel成功！','信息!',mb_ok + mb_iconinformation);
ADOConnecSQLServer.Connected := false;
except
Application.MessageBox('导出Excel失败','信息!',mb_ok+mb_iconstop);
ADOConnecSQLServer.Connected := false;
end;
end;

procedure TFormDataExp.DataToTxt(aPath: string;aStr: string);
var
s,txtConnstr: string;
MyIniFile: TiniFile;
MyPath, MyStr: string;
begin
MyPath := ExtractFilePath(aPath);
MyIniFile := TiniFile.Create(MyPath + 'schema.ini');
MyIniFile.WriteString(Copy(aPath,length(MyPath)+ 1,length(aPath)-length(MyPath)),'ColNameHeader','True');
if aStr = 'Tab' then
begin
MyStr := StringReplace(aStr, 'Tab', #9, [rfReplaceAll]);
end
else
begin
MyStr := aStr;
end;
MyIniFile.WriteString(Copy(aPath,length(MyPath)+ 1,length(aPath)-length(MyPath)), 'Format', 'Delimited('+ MyStr + ')');
MyIniFile.Free;
txtConnstr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ MyPath + ';Mode=Share Deny None;Extended Properties="text;HDR=YES;FMT=Delimited";Persist Security Info=False';
s := 'Select * Into ' + Copy(aPath,length(MyPath)+ 1,length(aPath)-length(MyPath)) + ' FROM '+ FMySQLStrList.Strings[ComboBoxTable.ItemIndex] +' IN [ODBC]'
+ ' [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=HT01;]';
try
ADOConnecSQLServer.ConnectionString := txtConnstr;
ADOConnecSQLServer.Connected := true;
ADOConnecSQLServer.Execute(s);
Application.MessageBox('导出文本成功！','信息提示！',MB_OK + mb_iconinformation);
ADOConnecSQLServer.Connected := false;
except
Application.MessageBox('导出文本失败！','错误！',MB_OK+MB_ICONSTOP);
ADOConnecSQLServer.Connected := false;
end;
end;

[hsmserver]

其实遇到的真正问题是这样的
将DATASET的结果集导出到EXCEL上的某个单元
并且要进行合并、画线、居中等操作
通过OLE实现了功能但是速度很慢
所以想找一个速度比较快的方法
一些SQL导出的方法却遇到这样的问题：数据字段不全，或者数据记录不全 //我用的表字段比较多
所以我改用生成文本然后再导入到EXCEL
速度肯定可以改观，EXCEL宏是这样的：
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Administrator\My Documents\sql.txt", _
Destination:=Range("A1"))
.Name = "sql"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1，1，1，1)
.Refresh BackgroundQuery:=False
End With
问题就在这了 Array(1，1，1，1)
如果有多少列“|”就有几个1 VB可以这样写Array(1，1，1，1)
但DELPHI就不可以
我这样写了但是不成；
var ia:array of integer;
i,Num:integer;
begin
Num:=值 ;
setLength(Ia,num)
for i:=0 to num-1 do
IA[i]:=1;
end;
.TextFileColumnDataTypes
的类型又不认IA
所以还是不成

哪位高手能帮忙解决一下
或者有什么好的办法吗？