小弟如果用程式直接將Excel存成txt就會變成亂碼耶 但是如果在先開啟Excel的情況再直接另存就不會耶 請問有蛇麼方式可以用程式直接另存txt後不會是亂碼? 我是用CopyFile(*.xls, *.txt)!!!

我想應該是不行，除非您的 Excel 檔案是副檔名為 .CSV 的檔案，否則他並不是一個 Text File 的形式，您想將它存成 Text File 就得呼叫 Excel 來開啟檔案，並做 SaveAs 成 Text File 的動作。 如果您的 Excel 檔案是存成 CSV 的形式，就直接 rename 就可以了。

Hi, 改副檔名, 內容不改當然是不正確的格式, 若你的電腦有安裝 excel 的話, 可以使用 ole automation 操作的方式, 程式如下,    

var
  ex, wb: Variant;
  const xlText = -4158;
begin      try
    ex := CreateOleObject('Excel.Application');
    ex.Visible := true;
    wb := ex.WorkBooks.Open('c:\t1.xls');
    wb.SaveAs(Filename:='C:\t2.txt', FileFormat:=xlText);
    wb.Saved := true;  // to avoid quit message
    ex.Quit;
  except
    on E: Exception do
    ShowMessage('error: ' E.Message);
  end;    end;

記得要 uses Comobj;

timhuang 大大 你的方式可行耶... 可是小弟有個地方不是很了解 請問: const xlText = -4158; 是什麼用意!!!

timhuang大大 你這個ex & eb要不要Free掉呢 因為造成我的Delphi出現找不到我私有Package的程序輸入點!!!

小弟使用adoquery元件從excel抓資料到文字檔，若輸出所有資料則文字檔內容可正常顯示，但若加上條件查詢，文字檔內容就會變成亂碼，需要再匯入excel才能正常顯示。sql語法如下： adoquery1.SQL.Clear; sql1:='select * Into [aaa.txt]'; sql1:=sql1 ' In "D:\programming\delphi\work\產業分析系統1" "Text;" from [table1]'; sql1:=sql1 ' where [table1].[v1] like ''%' con '%'''; sql1:=sql1 ' and [table1].[v5] like ''%' bus '%'''; adoquery1.SQL.Add(sql1); adoquery1.ExecSQL; 已查閱之前文章，試了很久問題仍無法排除，請問高手如何解決？