各位大蝦 小弟是使用Delphi 3 所以沒有ADO元件可使用 想請問如果要用BDE達到此功能 該如何施行???

hihi D3的bde 不曉得能不能作 在5.0可以直接增加別名直接NEW 選Driver do Microsoft Excel(*.xls) 至於D3裡好像還有DBQuery的元件吧如果不行可以試試把 Excel匯出成 Csv用文字 檔撈 不曉得合不合你用 搞不懂!搞不懂!永遠都搞不懂!!

那要怎麼把Excel轉存為txt? 轉完後分隔符號會是啥???

如果是使用MSSQL Server的話，它有提供轉入轉出工具，有支援excel轉到access、paradox、SQL Server，不用寫太繁雜的程式，只要懂一點點SQL語法就能轉的正常了 許下第一千零一個願望 有一天幸福會聽我的話

不巧的是小弟是使用 Informix耶!!!

直接另存新檔成.csv 分隔符號是(,)也可另存成.txt分隔符號為(Tab) 這是你要的嗎 希望我沒搞錯 搞不懂!搞不懂!永遠都搞不懂!!

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

HIHI 看來是我誤會了，由於我沒接觸過D3(只有D2 D4 D5 D7)我說個在D4的方法你試試可不可行(出自碁峰d4陳莉莉譯深入淺出一書)，找到OFFICE的目錄其中應該有EXCEL?.OLB的檔案(?為版本)，然後開啟DELPHI>PROJECT>IMPORT TYPE LIBARY把找到的olb匯入然後會在D的IMPORT項下可以看到EXCEL_TLB.PAS的檔案

//////////////////////////////////////
// Purpose:
// Project: Excel3.dpr
// Copyright (c) 1998 by Charlie Calvert
//
unit Main;    interface    uses
  Windows, Messages, SysUtils,
  Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    XLApp: Variant;
    procedure InsertData;
    procedure ChangeColumns;
    procedure HandleRange;
  public
  end;    var
  Form1: TForm1;    implementation    uses
  ComObj, XLConst;    {$R *.DFM}    procedure TForm1.FormDestroy(Sender: TObject);
begin
  if not VarIsEmpty(XLApp) then begin
    XLApp.DisplayAlerts := False;  // Discard unsaved files....
    XLApp.Quit;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  XLApp:= CreateOleObject('Excel.Application');
  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;    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
  ColumnRange: Variant;
begin
  ColumnRange := XLApp.Workbooks[1].WorkSheets['Delphi Data'].Columns;
  ColumnRange.Columns[1].ColumnWidth := 5;
  ColumnRange.Columns.Item[1].Font.Bold := True;
  ColumnRange.Columns[1].Font.Color := clBlue;
end;    end.

以上為其作者範例希望對你有幫助 搞不懂!搞不懂!永遠都搞不懂!!