把数据表中的数据转换成表页中的表格我知道,哪位大侠能反过来转换一下?thanks? 照上面类似的写一个啊,不用我写给你吧 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 老大,还是请您帮忙写一个吧,我写的怎么有问题,多谢多谢小天 type TExcelServer=class(TObject) private XLApp:Variant; public constructor Create;{构造函数} destructor Destroy;override;{析构函数} procedure Open(strFile:string);{打开Excel文件} Function GetCellString(R:Integer;C:Integer;Sheet:Variant):String; Function GetSheet(BookIndex,SheetPage:Integer):Variant; Function GetRows(Sheet: Variant):Integer; Function GetCols(Sheet: Variant):Integer; end;implementation{ TExcelServer }constructor TExcelServer.Create;begin xlApp := CreateOleObject('Excel.Application');end;destructor TExcelServer.Destroy;begin xlApp.DisplayAlerts:= false; xlApp.quit; inherited Destroy;end;function TExcelServer.GetCellString(R, C: Integer; Sheet: Variant): String;begin getCellString := Sheet.Cells[R,C];end;function TExcelServer.GetCols(Sheet: Variant): Integer;begin GetCols:=Sheet.Columns;end;function TExcelServer.GetRows(Sheet: Variant): Integer;begin GetRows:=Sheet.ROWS;end;function TExcelServer.GetSheet(BookIndex, SheetPage: Integer): Variant;begin GetSheet:=xlApp.WorkBooks[BookIndex].WorkSheets[SheetPage];end;procedure TExcelServer.Open(strFile: string);begin xlApp.Workbooks.Open(strFile);end;end之后,取出数据用add.asstring添加即可 delphi 怎么实现 签名处显示个人公章 提交这个页面的表单 http://www.mirdy.cn/add.asp?action=sfadd 一个语句不明白原因! 请教大家一个所有程序员及老板都关心的问题。。。 同一窗体多次创建问题. help,请大家指点 动态生成adoquery需要设哪些属性?立即给分 关于TEDIT的问题大家来看看! 各位大蝦,幫我?????? 错误"System has been illegally re-entered"是什么意思? 请教高手:图形数据处理存储问题 请大家帮我看看这个程序,为什么MessageBox无效了?
TExcelServer=class(TObject)
private
XLApp:Variant;
public
constructor Create;{构造函数}
destructor Destroy;override;{析构函数}
procedure Open(strFile:string);{打开Excel文件}
Function GetCellString(R:Integer;C:Integer;Sheet:Variant):String;
Function GetSheet(BookIndex,SheetPage:Integer):Variant;
Function GetRows(Sheet: Variant):Integer;
Function GetCols(Sheet: Variant):Integer;
end;
implementation{ TExcelServer }constructor TExcelServer.Create;
begin
xlApp := CreateOleObject('Excel.Application');
end;destructor TExcelServer.Destroy;
begin
xlApp.DisplayAlerts:= false;
xlApp.quit;
inherited Destroy;
end;function TExcelServer.GetCellString(R, C: Integer; Sheet: Variant): String;
begin
getCellString := Sheet.Cells[R,C];
end;function TExcelServer.GetCols(Sheet: Variant): Integer;
begin
GetCols:=Sheet.Columns;
end;function TExcelServer.GetRows(Sheet: Variant): Integer;
begin
GetRows:=Sheet.ROWS;
end;function TExcelServer.GetSheet(BookIndex, SheetPage: Integer): Variant;
begin
GetSheet:=xlApp.WorkBooks[BookIndex].WorkSheets[SheetPage];
end;procedure TExcelServer.Open(strFile: string);
begin
xlApp.Workbooks.Open(strFile);
end;end
之后,取出数据用add.asstring添加即可