解决方案 »
- TImageList继承问题
- 本人专门为各大DELPHI技术友收集了各类DELPHI电子书籍
- 几本较经典的二手书出售
- 寻高手帮忙采用折半算法,将一个数字加入到一组数字里面,然后重新进行排序
- 关于串口数据提取算法问题?急
- DBGrid几问:程序选择特定行? 改变标题? 显示的问题?
- Delphi 2005 -> Failed to initialize the VCL for .NET Form Designer
- Delphi7 Rave中如何在程序中设置报表的控件
- 关于关闭计算机的代码,请各位大侠给点提示,感激不尽!
- Delphi6的安装问题
- 能读取VC的strstreambuf生成的文件吗?
- 64位系统 Dll注入问题
你是想把什么数据导入excel?
var strSql: string; iCount: Integer; XLApp: OleVariant; strdata, strData2,strId,strClientName:string; strSqlUp:string; begin try XLApp : = CreateOleObject( ' Excel.Application ' ); XLApp.WorkBooks.Open(strPath); XLApp.visible : = False; except on E: Exception do begin XLApp : = Unassigned; raise exception.Create( ' 启动Excel失败,可能没有安装Excel! ' ); Result : = False; Exit; end ; end ;
//循环将你获取到的值插入excel
for iCount : = 1 to XLApp.worksheets[ 1 ].UsedRange.Rows.Count do begin
XLApp.worksheets[ 1 ].cells[iCount, 2 ].value:=(你获取到的值);
end
这个是dbgrid和stringgrid导入excel的文章你可以参考下,把你查询到的数据替换文章里的控件的数据就可以了。