Delphi中从Excel导入数据的通用方法
用Delphi从excel导入数据的时候,经常都只是需要一个worksheet,然后循环读取单元格信息,存入数据库。但是,每次都要重复的写关于打开,关闭excel的application的代码。话不多说,看代码:TypeTExcelFunction = procedure(asheet: OleVariant);//声明导入函数//afilename为数据源文件名,func为执行导入的函数 pro
用Delphi从excel导入数据的时候,经常都只是需要一个worksheet,然后循环读取单元格信息,存入数据库。但是,每次都要重复的写关于打开,关闭excel的application的代码。话不多说,看代码:TypeTExcelFunction = procedure(asheet: OleVariant);//声明导入函数//afilename为数据源文件名,func为执行导入的函数 pro
1 创建Excel文件 要在Delphi中控制Excel,就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象,当激活一个OLE对象时,服务器程序仅在容器程序内部激活,这就是所谓的“就地激活”(in-place activation)。 创建Excel文件时,先创建一个OLE对象,然后在对象中建立工作表worksheet,如函数createExce