procedure CopyDbDataToExcel(Args: array of const);
var
iCount, jCount: Integer;
XLApp: Variant;
Sheet: Variant;
I: Integer;
begin
Screen.Cursor := crHourGlass;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
VarClear(XLApp);
end;
try
XLApp := CreateOleObject('Excel.Application');
except
Screen.Cursor := crDefault;
Exit;
end;
XLApp.WorkBooks.Add;
XLApp.SheetsInNewWorkbook := High(Args) 1;
for I := Low(Args) to High(Args) do
begin
XLApp.WorkBooks[1].WorkSheets[I 1].Name := TDBGrid(Args[I].VObject).Name;
Sheet := XLApp.Workbooks[1].WorkSheets[TDBGrid(Args[I].VObject).Name];
if not TDBGrid(Args[I].VObject).DataSource.DataSet.Active then
begin
Screen.Cursor := crDefault;
Exit;
end;
TDBGrid(Args[I].VObject).DataSource.DataSet.first;
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[1, iCount 1] :=
TDBGrid(Args[I].VObject).Columns.Items[iCount].Title.Caption;
jCount := 1;
while not TDBGrid(Args[I].VObject).DataSource.DataSet.Eof do
begin
for iCount := 0 to TDBGrid(Args[I].VObject).Columns.Count - 1 do
Sheet.Cells[jCount 1, iCount 1] :=
TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString;
Inc(jCount);
TDBGrid(Args[I].VObject).DataSource.DataSet.Next;
end;
XlApp.Visible := True;
end;
Screen.Cursor := crDefault;
end;

使用時CopyDbDataToExcel([dbgrid1])在工單是113000015421,會出現1.13E11,如何讓他顯示成文字..

------
x

Sheet.Cells[jCount + 1, iCount + 1] :=TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString;
這行修改如下:
if (TryStrToInt(TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString,tmpInt)) then
Sheet.Cells[jCount 1, iCount 1] :=''' IntToStr(tmpInt)//如果可轉成數字 則在數字前加單引號 讓他在Excel轉成文字格式
else
Sheet.Cells[jCount 1, iCount 1] :=TDBGrid(Args[I].VObject).Columns.Items[iCount].Field.AsString;

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

還是不行,工單12位,我把trystrtoint改為strtofloat也不行,還是哪樣,不知為何,如何設定哪單元格為文字呢

------
x

將該欄位的 NumberFormatLocal 設定為 '@'
語法大致如下：
ExcelApplication1.Columns.Range_['A1','N65536'].NumberFormatLocal := '@';


Fishman

------
Fishman

thanks,

------
x