为什么老是没人回答我的问题：我有张工资表GZB想将其转换成Excel文件,望高手能够指点指点。（只有最后20分了有分一定补上！）

Question

如题

Answer 1

http://www.china-pub.com/computers/eMook/1536/info.htm
看看这个，自己研究研究

Answer 2

我不清楚你要怎样转，如果不是通过程序，而是手工，那么
控制面板-->数据源(ODBC)-->建立ODBC连接  (WIN98)
控制面板-->管理工具-->数据源(ODBC)-->建立ODBC连接  
然后
EXCEL-->数据菜单-->获取外部数据-->新建数据库查询-->然后一步步按提示做就行了如果你要在程序里将数据引入EXCEL,你可以看看下面这个程序是怎样将Delphi的数据导入Excel2000的
不过，你首先要在Uses中加入ComObj,这点非常重要Form1:TForm1;
.
.
.
implementation
 
uses ComObj,XLConst;
Procedure TForm1.FormDestory(Sender:TObject);
begin
   if not vavlsEmpty(XLApp) then 
   begin
     XLapp.DisplayAlerts:=False;
   End;   
end;Procedure TForm1.Button1Click(Sender:TObject);
begin
   XLApp:=CreateOleObject('Excel.Application');
   //创建Excel自动化对象
   XLApp.Visible:=true;//使对象可见
   XLapp.Workbooks.Add(XlWBatWorkSheet); //添加一个工作表单
   XLApp.Workbooks[1].WorkSheets[1].Name:='Delphi Data';
   InsertData;
   HandleRange;
   ChangeColumns;
End;Procedure TForm1.insertData;
var
   i:Integer;
   Sheet:Variant;
begin
   Sheet:=XLapp.Workbooks[1].WorkSheets['Delphi Data];
   for i:=1 to 10 do
      Sheet.Cells[i,1]:=i;
      Sheet.Cells[i,1]:='=Sum(A1:A10)';
   end;
end;
 
procedure TForm1.HandleRange;
var
   Range:Variant;
begin
   Range:=XLApp.Workbooks[1].WorkSheets['Delphi Data'].Range['C1:F25'];
   Range.Formula:='=RAND()';
   Range.Columns.Interior.ColorIndex:=3;
   Range.Borders.LineStyle:=xlContinuous;
end;Procedure TForm1.ChangeColumns;
var
   ColumnsRange:Variant;
begin
   ColumnsRange:=XLApp.Workbooks[1].WorkSheets['Delphi Data'].Columns;
   ColumnsRange.Columns[1].Columnwidth:=5;
   ColumnsRange.Columns.Item[1].Font.Bold:=True;
   ColumnsRange.Columns[1].Font.Color:=clBlue;
end;这段程序我是在网页输入的，可能有输错的地方，但应该不影程序的阅读。这段程序的功能是将一个随机数序列输入Excel。