引言: 我也對 OLE 不熟悉，也看不出你的程式有甚麼問題。 不過，你有甚麼原因一定要用 OLE 來傳資料嗎? 我看你的程式好像只簡單地將資料轉過 excel, 並沒作甚麼格式特殊處理等。 如果這樣的話，直接將 數據存成 Excel 檔案不是更容易嗎 ? 你可參考拙作 《DataSet 儲存成 txt/csv/xls 簡單程序》 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27241 你可將該函數(僅24行)複制到你的程式便可使用了。 你的情況可這樣使用 : use ShellAPI // 若你不需 ShellExecute 可不用這行 tb_read:=TTable.create(self); tb_read.DatabaseName:=Dbname; tb_read.TableName:=a[i]; tb_read.Open; SaveDataSet(tb_read,'test.xls',#9); shellExecute(handle,'open','test.xls',nil,nil,SW_NORMAL); // 用 excel 開剛做的檔案 至於為甚麼會出現「OLE error 800A03EC」，要等 OLE 的高手來幫忙了。

嗯~~其實我也對ole很不熟悉，了解的程度也比您更少說！ 因為這是參考學長姊的程式參考而來的，只是不甚了解！所以一出現問題，我也很難知道為何會出現那種錯誤！^^|| 目前還在研究您提供的方法，不曉得為何？出現以下錯誤 程式中的 >

引言: 1.SaveDataSet(tb_read,'test.xls',#9);出現[Error] Dbset_Backup.pas(1572): Undeclared identifier: 'SaveDataSet' 不曉得是不是我少了什麼元件，或是少use東西，我原本是用ttable的元件！

with tb_read do
begin
  first;
  row:=2;
  while not eof do
  begin
    FWorksheet.cells[row,1].value:='a'   tb_read.Fields[0].asstring; 
    for col:=2 to tb_read.fieldcount do
      FWorksheet.cells[row,col].value:=tb_read.Fields[col-1].asstring; 
    row:=row 1;
    Next;
  end;
end;

procedure Save_tb_read(TT : TDataSet; FileName, Delimiter : String);
var
i : integer;
line : string;
M : TStringList;
begin
  TT.Active := true;
  TT.First;
  M := TStringList.Create;
  Line := TT.Fields[0].DisplayName; // 可改成FieldName
  For i := 1 to TT.FieldCount -1 do
    Line := Line   Delimiter   TT.Fields[i].DisplayName; // 可改成FieldName
  M.Add(Line);
  while not TT.Eof do
  begin
    Line := 'a'   TT.Fields[0].AsString;
    For i := 1 to TT.FieldCount -1 do
        Line := Line   Delimiter   StringReplace(StringReplace(TT.Fields[i].AsString,
          #13#10,' ',[rfReplaceAll]),#9,' ',[rfReplaceAll])
    M.Add(Line);
    TT.Next;
  end;
  M.SaveToFile(FileName);
end;

    for  i := 1 to 2 do
      begin        
        try            tb_read:=TTable.create(self);
        tb_read.DatabaseName:=Dbname;
        tb_read.TableName:=a[i];
        tb_read.Open;
  
         //處理檔案名稱
         filename:='#' date1 'v01_' a[i];
           filename1:=mainDir '#' date1 'v01_' a[i] '.xls';               while  FileExists(filename1) do begin
              n:='0' inttostr(strtoint(copy(filename,11,2)) 1);
              filename:='#' date1 'v' n '_' a[i];
              filename1:=mainDir '#' date1 'v' n '_' a[i] '.xls';
           end;
          Save_tb_read(tb_read,filename1,#9);
          j:=j 1;            except
        showmessage(a[i]/ '資料表無法備份');
        end;
        tb_read.free;
        
        
      ExcelApplication1.Quit;         end;

 Line := TT.Fields[0].DisplayName; // 可改成FieldName  
    For i := 1 to TT.FieldCount -1 do    
   Line := Line   Delimiter   TT.Fields[i].DisplayName; // 可改成FieldName  ==>請問此段是指將欄位名稱先轉到資料表嗎？        M.Add(Line);  
   while not TT.Eof do  begin    
   Line := 'a'   TT.Fields[0].AsString;    
   For i := 1 to TT.FieldCount -1 do  ==>迴圈從1開始是因為line已經記錄第一行的資料了嗎？？所以才這樣做的嗎？我想由第二行加a，但是一直達不到自己想要的資料！^^||
   下面這一行不是很清楚是在做什麼耶？？ 
   Line := Line   Delimiter   StringReplace(StringReplace(TT.Fields[i].AsString,          #13#10,' ',[rfReplaceAll]),#9,' ',[rfReplaceAll])    
   M.Add(Line);    
   TT.Next;  
   end;  

引言: 請問此段是指將欄位名稱先轉到資料表嗎？

if TT.Field[i].DataType = ftString then
  Line := Line   Delimiter   'A'   TT.Fields[i].AsString 
else
  Line := Line   Delimiter   'B'   TT.Fields[i].AsString;

引言: 你可用 TT.Field[i].DataType 來判別在源資料庫這是甚麼形態來作特別處理 例如 if TT.Field[i].DataType = ftString then Line := Line Delimiter 'A' TT.Fields[i].AsString else Line := Line Delimiter 'B' TT.Fields[i].AsString; 不過，這樣輸出與直接在 Excel 手動輸入不同，例如你在某欄前面加 ' ，EXCEL 讀入後真的顯示該 ' 而非像手動視之為文字的提示。

引言: 基本上都是字串型態為主，我之前說的會變成科學符號的欄位，其實本來就是定義成char的型態，所以會想加字元給它！^^|| 所以想說是不是不用再去判斷是否為字串型態！？

 
filename:='#' date1 'v01_' a[i];
           filename1:=mainDir '#' date1 'v01_' a[i] '.txt';               while  FileExists(filename1) do begin
              n:='0' inttostr(strtoint(copy(filename,11,2)) 1);
              filename:='#' date1 'v' n '_' a[i];
              filename1:=mainDir '#' date1 'v' n '_' a[i] '.txt';
           end;              Save_tb_read(tb_read,filename1,#9);