相关推荐

delphi做的excel导入access

delphi做的excel导入access，适合学习，借鉴

Delphi中控制Excel

用Delphi从数据库中取得资料，然后导出到Excel中做成报表是个不错的选择，因为Excel强大的报表功能那可是没话说  前提  Delphi中要   uses comobj;  var Excel:Variant;  一、Excel操作  1.创建Excel对象  Excel := CreateOleObject( Excel.Application );  2.显示Excel  Excel.

Delphi 将Excel导入Access数据库

内容索引:Delphi源码,报表打印,Excel,Delphi报表　　以前在学习Delphi的时候曾经花了很长时间编写这个东西，现在在项目中又重新用到了这个问题，于是把以前的代码翻出来重新修正、编译，感觉还不错，将Excel导入Access的功能也是挺实用的，在D7下完成编译，注意，因每个人的Delphi配置环境不一样，因此可能会出现编译找不到文件的现象，内附有解决办法，祝你好运。

Delphi将Excel导入Access(菜鸟版)

Delphi将Excel导入Access(菜鸟版)

delphi中把excel数据导入access表

在delphi软件中实现将excel数据表导入access

批量从Excel导入数据到Access中，Delphi实现

批量从Excel导入数据到Access中，Delphi实现，这是个大家都关注过的问题，报表在Delphi中的应用也相当广泛，有必要掌握，特别是Access与Excel之间的操作，两者都可看作是报表，本程序虽简单，但至少讲出了Excel数据导入到Access中的原理，希望对此操作不明白的朋友通过本Demo彻底搞明白。

delphi要控制EXCEL时用的，不错，转了。

定义变量   Excelid:variant;   1、创建OLE对象   try     Excelid:=CreateOleObject( 'Excel.Application' );   except     on Exception do raise exception.Create('无法创建Xls文件，请确认是否安装EXCEL')   e

本人珍藏的最好的excel控件，支持xe6（有demo）

本人珍藏的Delphi 最好的Excel控件（附demo），过去好像是一个波兰开发的，delphi7一直用，后来自己做了改进，所有的新的delphi 版本都可以用。xe6,xe5都新测成功。有很简单和直接的调用 宏代码功能。（附demo）,软件的性能也很不错。且对office2010也支持。

delphi excel导入到mysql_如何使用delphi将Excel文件导入Access数据库

你有几个选择,尝试其中之一{$APPTYPE CONSOLE}{$R *.res}usesSysUtils,ActiveX,ComObj;procedure ImportDataAccess(const AccessDb, TableName, ExcelFileName:String);ConstacQuitSaveAll = $00000001;acImport ...

Excel Delphi

delphi操作excel 将excel模板中的数据写入sqlite数据库中。

Delphi操作Excel类

使用方便，功能强大。 type FileCheckResult = (fcrNotExistend,fcrNotXSLFile,fcrValidXSL); //文件不存在,不是XSL文件,合法的XSL文件 TOLEExcel = class(TComponent) private FExcelCreated: Boolean; FVisible: Boolean; FExcel: Variant; //Excel程序对象 FWorkBook: Variant; //Excel工作簿对象 FWorkSheet: Variant; //Excel工作簿 工作表对象 FCellFont: TFont; //单元格字体对象 FTitleFont: TFont; // FFontChanged: Boolean; FIgnoreFont: Boolean; FFileName: TFileName; //********************************************自己添加*****************************// FCreateFromFile:Boolean; //指示是否打开已有文件 FExcelCaption:string; //用程序打开Excel的窗体标 //*********************************来自U_Report*****************************// FRCPrePage:Integer; //每页显示的记录数 FMax:Integer; //最大的数组个数 procedure SetExcelCellFont(var Cell: Variant); procedure SetExcelTitleFont(var Cell: Variant); procedure GetTableColumnName(const Table: TTable; var Cell: Variant); procedure GetQueryColumnName(const Query: TQuery; var Cell: Variant); procedure GetFixedCols(const StringGrid: TStringGrid; var Cell: Variant); procedure GetFixedRows(const StringGrid: TStringGrid; var Cell: Variant); procedure GetStringGridBody(const StringGrid: TStringGrid; var Cell: Variant); protected procedure SetCellFont(NewFont: TFont); procedure SetTitleFont(NewFont: TFont); procedure SetVisible(DoShow: Boolean); function GetCell( ARow,ACol: Integer): string; procedure SetCell(ACol, ARow: Integer; const Value: string); function GetDateCell(ACol, ARow: Integer): TDateTime; procedure SetDateCell(ACol, ARow: Integer; const Value: TDateTime); //*********************************************自己添加************************************// procedure SetCaption(ACaption:string);//设置打开文件后,Excel主程序的窗体标题 function GetCapiton:string;//返回打开文件后,Excel主程序的窗体标题 public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure C

delphi excel 对象释放

代码如下：    ...    ExcelApp,workbook:   Variant;      ...    ExcelApp:=CreateOleObject( 'Excel.Application ');    workbook:=CreateOleObject( 'Excel.sheet '); 上次大家给我的代码是：  workbook.close;  Exc

用Delphi将数据导入到Excel并控制Excel

用Delphi将数据导入到Excel并控制Excel 用Delphi将数据导入到Excel并控制Excel提交日期:2004-2-16   关键词:Excel  在日常办公中，用得最多的是Word和Excel，而Excel对数据报表的处理尤为方便（操作公式、打印格式等），如果我们将数据导入到Excel中后，再靠我们平时对Excel熟练的操作很快编辑好我们有用的数据（如领导报表等），通过对E

Sheets与WorkSheets的区别

<VBA>从多张工作簿（workbooks）中多张工作表（worksheets）同一位置提取数据

数据：N张工作簿，每张工作簿里又有M张工作表，每张工作表的同一位置Cells(2,16)有需要的数据，想讲这些数据汇总到一张新的表格。 新建一张“汇总.xlsm”，并打开，新建sub()过程； 依次打开工作簿； 源码如下： Public Sub Data() Dim i As Integer Dim j As Integer For i = 1 To Workbooks.Count ...

如何在DELPHI中将EXCEL中的数据导入到SQL数据库

<br /> <br /><br />var<br />  s1:string;<br />begin<br />  screen.Cursor:=crSQLWait;<br />  s1:='insert into table_bus '+<br />      ' (BS_NO,BS_TYPE,bs_whos,bs_mode,bs_seat,bs_soalseat,bs_drseat,bs_oiltype,bs_buycard,bs_unit,BS_BDATE,bs_edate) '+<br />