转换Excel文件时,银行帐号出现科学计算表示方式的怪问题,100分请高手帮忙解答! ( 积分: 100 )

  • 主题发起人 主题发起人 redweek
  • 开始时间 开始时间
R

redweek

Unregistered / Unconfirmed
GUEST, unregistred user!
我把数据库里的字段"UseName"(姓名),"BankCode"(银行帐号)等信息转换成Excel 文件输出时,"BankCode"(银行帐号)中的内容(19位的帐号),在excel文件中已科学计算法存在.并且,最后5位数字都变成了0,非常奇怪.请大虾解答!!很急.
procedure TForm_ClientInfo.BitB_ExcelClick(Sender: TObject);
var
i,row,j:integer;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
BkString:AnsiString;
begin
if SaveDialog1.Execute then
begin
ExcelApplication1:=TExcelApplication.Create(self);
ExcelWorkbook1:=TExcelWorkbook.Create(self);
ExcelWorksheet1:=TExcelWorksheet.Create(self);
Screen.Cursor:=crHourGlass;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
ExcelWOrkSheet1.Cells.Item[1,1]:='小区名称';
ExcelWOrkSheet1.Cells.Item[1,2]:='楼宇号';
ExcelWOrkSheet1.Cells.Item[1,3]:='楼宇名称';
ExcelWOrkSheet1.Cells.Item[1,4]:='单 元';
ExcelWOrkSheet1.Cells.Item[1,5]:='门牌号码';
ExcelWOrkSheet1.Cells.Item[1,6]:='用户编号';
ExcelWOrkSheet1.Cells.Item[1,7]:='业主姓名';
ExcelWOrkSheet1.Cells.Item[1,8]:='用户地址';
ExcelWOrkSheet1.Cells.Item[1,9]:='银行卡号';
ExcelWOrkSheet1.Cells.Item[1,10]:='联系方式';
ExcelWOrkSheet1.Cells.Item[1,11]:='备 注';
With MyDataModule do
begin
AQ_ClientInfo.First;
Row:=1; //...第一行.....
While not AQ_ClientInfo.Eof do
begin
Row:=Row+1; //..增加一行....
ExcelWOrkSheet1.Cells.Item[row,1]:=AQ_ClientInfo.fieldbyname('AreaName').AsString;
ExcelWOrkSheet1.Cells.Item[row,2]:=AQ_ClientInfo.fieldbyname('BuildNo').AsString;
ExcelWOrkSheet1.Cells.Item[row,3]:=AQ_ClientInfo.fieldbyname('BuildName').AsString;
ExcelWOrkSheet1.Cells.Item[row,4]:=AQ_ClientInfo.fieldbyname('UnitNo').AsString;
ExcelWOrkSheet1.Cells.Item[row,5]:=AQ_ClientInfo.fieldbyname('RoomNo').AsString;
ExcelWOrkSheet1.Cells.Item[row,6]:=AQ_ClientInfo.fieldbyname('ClientCode').AsString;
ExcelWOrkSheet1.Cells.Item[row,7]:=AQ_ClientInfo.fieldbyname('UseName').AsString;
ExcelWOrkSheet1.Cells.Item[row,8]:=AQ_ClientInfo.fieldbyname('Address').AsString;
ExcelWOrkSheet1.Cells.Item[row,9].ColumnWidth :=30;
ExcelWOrkSheet1.Cells.Item[row,9].WrapText := True; //...该列转换成文本...
BkString:=AQ_ClientInfo.fieldbyname('BankCode').AsString ;
ExcelWOrkSheet1.Cells.Item[row,9]:=Trim(BkString) ;
//..问题在这里,BkString='12345678998765432199' ,在Excel中成了1.234567E+19
//...在Excel中点击后展开123456789987600000
ExcelWOrkSheet1.Cells.Item[row,10]:=AQ_ClientInfo.fieldbyname('TelNumb').AsString;

AQ_ClientInfo.Next;
end;
end;

ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName+'.xls');
ExcelWOrkBook1.Close(false);
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free; //清除EXcel
ExcelWOrkSheet1.Free;
ExcelWorkbook1.Free;
Screen.Cursor:=crDefault;
end;

end;
 
我把数据库里的字段"UseName"(姓名),"BankCode"(银行帐号)等信息转换成Excel 文件输出时,"BankCode"(银行帐号)中的内容(19位的帐号),在excel文件中已科学计算法存在.并且,最后5位数字都变成了0,非常奇怪.请大虾解答!!很急.
procedure TForm_ClientInfo.BitB_ExcelClick(Sender: TObject);
var
i,row,j:integer;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
BkString:AnsiString;
begin
if SaveDialog1.Execute then
begin
ExcelApplication1:=TExcelApplication.Create(self);
ExcelWorkbook1:=TExcelWorkbook.Create(self);
ExcelWorksheet1:=TExcelWorksheet.Create(self);
Screen.Cursor:=crHourGlass;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
ExcelWOrkSheet1.Cells.Item[1,1]:='小区名称';
ExcelWOrkSheet1.Cells.Item[1,2]:='楼宇号';
ExcelWOrkSheet1.Cells.Item[1,3]:='楼宇名称';
ExcelWOrkSheet1.Cells.Item[1,4]:='单 元';
ExcelWOrkSheet1.Cells.Item[1,5]:='门牌号码';
ExcelWOrkSheet1.Cells.Item[1,6]:='用户编号';
ExcelWOrkSheet1.Cells.Item[1,7]:='业主姓名';
ExcelWOrkSheet1.Cells.Item[1,8]:='用户地址';
ExcelWOrkSheet1.Cells.Item[1,9]:='银行卡号';
ExcelWOrkSheet1.Cells.Item[1,10]:='联系方式';
ExcelWOrkSheet1.Cells.Item[1,11]:='备 注';
With MyDataModule do
begin
AQ_ClientInfo.First;
Row:=1; //...第一行.....
While not AQ_ClientInfo.Eof do
begin
Row:=Row+1; //..增加一行....
ExcelWOrkSheet1.Cells.Item[row,1]:=AQ_ClientInfo.fieldbyname('AreaName').AsString;
ExcelWOrkSheet1.Cells.Item[row,2]:=AQ_ClientInfo.fieldbyname('BuildNo').AsString;
ExcelWOrkSheet1.Cells.Item[row,3]:=AQ_ClientInfo.fieldbyname('BuildName').AsString;
ExcelWOrkSheet1.Cells.Item[row,4]:=AQ_ClientInfo.fieldbyname('UnitNo').AsString;
ExcelWOrkSheet1.Cells.Item[row,5]:=AQ_ClientInfo.fieldbyname('RoomNo').AsString;
ExcelWOrkSheet1.Cells.Item[row,6]:=AQ_ClientInfo.fieldbyname('ClientCode').AsString;
ExcelWOrkSheet1.Cells.Item[row,7]:=AQ_ClientInfo.fieldbyname('UseName').AsString;
ExcelWOrkSheet1.Cells.Item[row,8]:=AQ_ClientInfo.fieldbyname('Address').AsString;
ExcelWOrkSheet1.Cells.Item[row,9].ColumnWidth :=30;
ExcelWOrkSheet1.Cells.Item[row,9].WrapText := True; //...该列转换成文本...
BkString:=AQ_ClientInfo.fieldbyname('BankCode').AsString ;
ExcelWOrkSheet1.Cells.Item[row,9]:=Trim(BkString) ;
//..问题在这里,BkString='12345678998765432199' ,在Excel中成了1.234567E+19
//...在Excel中点击后展开123456789987600000
ExcelWOrkSheet1.Cells.Item[row,10]:=AQ_ClientInfo.fieldbyname('TelNumb').AsString;

AQ_ClientInfo.Next;
end;
end;

ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName+'.xls');
ExcelWOrkBook1.Close(false);
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free; //清除EXcel
ExcelWOrkSheet1.Free;
ExcelWorkbook1.Free;
Screen.Cursor:=crDefault;
end;

end;
 
可以在导出银行帐号前加‘或将EXCEL格式改为文本类型
 
function ShowMDIForm(aFormClass: TFormClass): TForm;
begin
screen.Cursor := crHourGlass;
lockwindowupdate(Mainform.handle);
result := aFormClass.Create(Application);
with result do
begin
WindowState := wsMaximized;
show;
lockwindowupdate(0);
screen.Cursor := crDefault;
end;
end;


exporttoexcel(wwdbgrid1);
 
最简单的就是改一下这两句：
//ExcelWOrkSheet1.Cells.Item[row,9].WrapText := True; //...该列转换成文本...
BkString:=#39+AQ_ClientInfo.fieldbyname('BankCode').AsString ;
ExcelWOrkSheet1.Cells.Item[row,9]:=Trim(BkString) ;
 
娃娃兄弟真牛人也！问题解决了，请问这是问什么？

加上#39 是什么意思？ 我想知道原因。马上就加分！
 
这个实在太简单了，说出来就没有意思了，你可以用
edit1.text := #39
来测试一下就明白了。
哈哈。
 
呵呵~~~~#39是单引号呀
Excel的单元格中,要保持数值型不为科学计数法表示,就得把它转化为字符串,在数值前加上单引号就可以解决数值类型转换.
这是Excel的约定.
 
楼上的各位，是单引号，没有错。
但是，我不想要单引号啊，有没有其他解决办法？
 
在检索数据的时候，把这个字段转化为字符（串）型试试看！
 
ExcelWOrkSheet1.Cells.Item[row,9].NumberFormat='@';
ExcelWOrkSheet1.Cells.Item[row,9]:=Trim(BkString) ;
 
如果比较长的位数，就只能用单引号了，如果比较短一些，可以考虑转换成数值成，小数点位数为零。
 
呵呵！十分感谢阿！上次才出现的问题，今天看到这个帖子都解决了谢谢了
 
有没有人用过 Format('n%s',[BkString]) 等形式啊,
但是,上面的会在银行帐号前面加上'n'.

有人能用Format函数( Format('n%s',[BkString]) )的形式解决过吗?
 
Supermay兄弟的办法最好，谢谢。

分不多，大家分一点吧，再次表示感谢。
 
您必须登录或注册才可回复。

Similar threads

L
如何将银行账号等长数据改为文本格式(10)
回复
16
查看
1K
de410
D
Z
不同系统中报错的问题 ( 积分: 100 )
回复
0
查看
255
zhangxuepu107
Z
M
请问在DELPHI7中如何将数据库中的表快速输出为EXECL表?100分送上!(100分)
回复
2
查看
197
zywcd
Z
Y
关于"数据库内容导出到EXCEL 中时出现错误"的问题.(20分)
回复
4
查看
295
ysp_1984
Y
T
如何决解导出数据到excel,帐号变成科学记数法? ( 积分: 50 )
回复
3
查看
219
txzhf
T
后退
顶部