Delphi7 是否可以直接对 Excle表直接操作

发布网友发布时间：2022-04-23 16:54

共1个回答

热心网友时间：2022-05-03 01:00

　　可以！
　　一) 使用动态创建的方法

　　首先创建 Excel 对象，使用ComObj:
　　var ExcelApp: Variant;
　　ExcelApp := CreateOleObject( 'Excel.Application' );

　　1) 显示当前窗口：
　　ExcelApp.Visible := True;

　　2) 更改 Excel 标题栏：
　　ExcelApp.Caption := '应用程序调用 Microsoft Excel';

　　3) 添加新工作簿：
　　ExcelApp.WorkBooks.Add;

　　4) 打开已存在的工作簿：
　　ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );

　　5) 设置第2个工作表为活动工作表：
　　ExcelApp.WorkSheets[2].Activate;
　　或
　　ExcelApp.WorksSheets[ 'Sheet2' ].Activate;

　　6) 给单元格赋值：
　　ExcelApp.Cells[1,4].Value := '第一行第四列';

　　7) 设置指定列的宽度（单位：字符个数），以第一列为例：
　　ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;

　　8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
　　ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

　　9) 在第8行之前插入分页符：
　　ExcelApp.WorkSheets[1].Rows.PageBreak := 1;

　　10) 在第8列之前删除分页符：
　　ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;

　　11) 指定边框线宽度：
　　ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
　　1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )

　　12) 清除第一行第四列单元格公式：
　　ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

　　13) 设置第一行字体属性：
　　ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
　　ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
　　ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
　　ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

　　14) 进行页面设置：

　　a.页眉：
　　ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
　　b.页脚：
　　ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';
　　c.页眉到顶端边距2cm：
　　ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
　　d.页脚到底端边距3cm：
　　ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
　　e.顶边距2cm：
　　ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
　　f.底边距2cm：
　　ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
　　g.左边距2cm：
　　ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
　　h.右边距2cm：
　　ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
　　i.页面水平居中：
　　ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
　　j.页面垂直居中：
　　ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
　　k.打印单元格网线：
　　ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;

　　15) 拷贝操作：

　　a.拷贝整个工作表：
　　ExcelApp.ActiveSheet.Used.Range.Copy;
　　b.拷贝指定区域：
　　ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
　　c.从A1位置开始粘贴：
　　ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
　　d.从文件尾部开始粘贴：
　　ExcelApp.ActiveSheet.Range.PasteSpecial;

　　16) 插入一行或一列：
　　a. ExcelApp.ActiveSheet.Rows[2].Insert;
　　b. ExcelApp.ActiveSheet.Columns[1].Insert;

　　17) 删除一行或一列：
　　a. ExcelApp.ActiveSheet.Rows[2].Delete;
　　b. ExcelApp.ActiveSheet.Columns[1].Delete;

　　18) 打印预览工作表：
　　ExcelApp.ActiveSheet.PrintPreview;

　　19) 打印输出工作表：
　　ExcelApp.ActiveSheet.PrintOut;

　　20) 工作表保存：
　　if not ExcelApp.ActiveWorkBook.Saved then
　　ExcelApp.ActiveSheet.PrintPreview;

　　21) 工作表另存为：
　　ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' );

　　22) 放弃存盘：
　　ExcelApp.ActiveWorkBook.Saved := True;

　　23) 关闭工作簿：
　　ExcelApp.WorkBooks.Close;

　　24) 退出 Excel：
　　ExcelApp.Quit;

　　(二) 使用Delphi 控件方法
　　在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。

　　1）打开Excel
　　ExcelApplication1.Connect;

　　2) 显示当前窗口：
　　ExcelApplication1.Visible[0]:=True;

　　3) 更改 Excel 标题栏：
　　ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';

　　4) 添加新工作簿：
　　ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

　　5) 添加新工作表：
　　var Temp_Worksheet: _WorkSheet;
　　begin
　　Temp_Worksheet:=ExcelWorkbook1.
　　WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
　　ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
　　End;

　　6) 打开已存在的工作簿：
　　ExcelApplication1.Workbooks.Open (c:\a.xls
　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,
　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,
　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)

　　7) 设置第2个工作表为活动工作表：
　　ExcelApplication1.WorkSheets[2].Activate; 或
　　ExcelApplication1.WorksSheets[ 'Sheet2' ].Activate;

　　8) 给单元格赋值：
　　ExcelApplication1.Cells[1,4].Value := '第一行第四列';

　　9) 设置指定列的宽度（单位：字符个数），以第一列为例：
　　ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;

　　10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
　　ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

　　11) 在第8行之前插入分页符：
　　ExcelApplication1.WorkSheets[1].Rows.PageBreak := 1;

　　12) 在第8列之前删除分页符：
　　ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;

　　13) 指定边框线宽度：
　　ExcelApplication1.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
　　1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )

　　14) 清除第一行第四列单元格公式：
　　ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;

　　15) 设置第一行字体属性：
　　ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隶书';
　　ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
　　ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;
　　ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;

　　16) 进行页面设置：
　　a.页眉：
　　ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '报表演示';
　　b.页脚：
　　ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P页';
　　c.页眉到顶端边距2cm：
　　ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
　　d.页脚到底端边距3cm：
　　ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
　　e.顶边距2cm：
　　ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
　　f.底边距2cm：
　　ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
　　g.左边距2cm：
　　ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
　　h.右边距2cm：
　　ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
　　i.页面水平居中：
　　ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
　　j.页面垂直居中：
　　ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
　　k.打印单元格网线：
　　ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;

　　17) 拷贝操作：

　　a.拷贝整个工作表：
　　ExcelApplication1.ActiveSheet.Used.Range.Copy;

　　b.拷贝指定区域：
　　ExcelApplication1.ActiveSheet.Range[ 'A1:E2' ].Copy;

　　c.从A1位置开始粘贴：
　　ExcelApplication1.ActiveSheet.Range.[ 'A1' ].PasteSpecial;

　　d.从文件尾部开始粘贴：
　　ExcelApplication1.ActiveSheet.Range.PasteSpecial;

　　18) 插入一行或一列：
　　a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
　　b. ExcelApplication1.ActiveSheet.Columns[1].Insert;

　　19) 删除一行或一列：
　　a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
　　b. ExcelApplication1.ActiveSheet.Columns[1].Delete;

　　20) 打印预览工作表：
　　ExcelApplication1.ActiveSheet.PrintPreview;

　　21) 打印输出工作表：
　　ExcelApplication1.ActiveSheet.PrintOut;

　　22) 工作表保存：
　　if not ExcelApplication1.ActiveWorkBook.Saved then
　　ExcelApplication1.ActiveSheet.PrintPreview;

　　23) 工作表另存为：
　　ExcelApplication1.SaveAs( 'C:\Excel\Demo1.xls' );

　　24) 放弃存盘：
　　ExcelApplication1.ActiveWorkBook.Saved := True;

　　25) 关闭工作簿：
　　ExcelApplication1.WorkBooks.Close;

　　26) 退出 Excel：
　　ExcelApplication1.Quit;
　　ExcelApplication1.Disconnect;

　　(三) 使用Delphi 控制Excle二维图
　　在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
　　var asheet1,achart, range:variant;

　　1）选择当第一个工作薄第一个工作表
　　asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];

　　2）增加一个二维图
　　achart:=asheet1.chartobjects.add(100,100,200,200);

　　3）选择二维图的形态
　　achart.chart.charttype:=4;

　　4）给二维图赋值
　　series:=achart.chart.seriescollection;
　　range:=sheet1!r2c3:r3c9;
　　series.add(range,true);
　　5）加上二维图的标题
　　achart.Chart.HasTitle:=True;
　　achart.Chart.ChartTitle.Characters.Text:=’ Excle二维图’

参考资料：http://zhidao.baidu.com/question/144301666

Delphi7 是否可以直接对 Excle表直接操作

ExcelApp.ActiveSheet.Range.PasteSpecial; 16) 插入一行或一列: a. ExcelApp.ActiveSheet.Rows[2].Insert; b. ExcelApp.ActiveSheet.Columns[1].Insert; 17) 删除一行或一列: a. ExcelApp.ActiveSheet.Rows[2].Delete; b. ExcelApp.ActiveSheet.Columns[1].Delete; 18) 打印预览工作表: ExcelApp.ActiveSheet....

【求助】关于delphi7 连接 excel的问题!

1.第一步，最好直接在Excel里面将数据排列到比较规律。因为这个操作在Excel里面是最简单的。方法是这样的，新建一个Sheet，比如Sheet100。在新Sheet最左上角的地方输入一个等号“=”然后回车，这时候可以通过鼠标选择单元格，跳回到第一个包含姓名信息的单元格，然后回车。然后用鼠标拖动单元格的右下角...

用Delphi7,如何读取excel里面的数据,并在chart控件里面画出曲线图?大...

在 delphi 里读取 excel 数据，用 XLSReadWriteII 控件效率最高，但如果还要操纵生成 Chart 图表，通常还是要借用 OleObject 方式来操作。试编写示例代码如下：procedure TForm1.Button3Click(Sender: TObject);var ExcelApplication,Sheet1,Cell1,Cell2,Range1:Variant;begin try ExcelApplication :...

delphi7可以调用excel的forecast函数吗,万分感谢,急!!!

应该可以,这个是VB调用的例子你参照使用Delphi用Com的接口来调用就行了 Sub UseFunction()Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:C10")answer = Application.WorksheetFunction.Min(myRange) <--MIN函数 MsgBox answer End Sub ...

delphi7 打开excel

首先,需要在最上面的uses 里面加上comObj //AXLSFile 表示文件路径 procedure Xls_To_StringGrid(AXLSFile: string);const xlCellTypeLastCell = $0000000B;var XLApp, Sheet: OLEVariant;RangeMatrix: Variant;x, y, k, r: Integer;vLen : integer;begin XLApp := CreateOleObject('Excel....

请教一下 delphi7.0 中用 ado 如何操作 excel 并导出 excel表呢

1、读EXCEL:const Const_Conn='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;Extended Properties=Excel 8.0;';adoConnProduct.Close;adoConnProduct.ConnectionString:=Format(Const_Conn,[FProductFile]);//FProductFile： EXCEL 全路径 adoConnProduct.Open();有了...

delphi7程序,oleContainer控件中展开某一路劲的Excel文件,目前想实现打 ...

把某EXCEL文件在后台打开，然后设置的版面大小，保存，然后再放到oleContainer控件中打开。oleContainer控件中打开的的EXCEL文件，实际上就是打开的原文件，只不过是把EXCEL嵌入到oleContainer中了，打印及其设置，仍然在EXCEL中完成。

delphi7,想要实现从一个eidt文本框里输入字符,然后存入excel表格...

现做了一个，见附件的源码。输入一个字符或字串按一次“确定”按钮，满12个后，“确定”按钮不再允许；按下“导出”按钮，按规定的位置导出到Excel表同时显示表格；按下“下一轮”按钮，重新开始。建议其他朋友，按源码的处理思路，稍作改动或充实就能嵌入你自己的工程，会成为一个完整的有效应用。

delphi7导出excel不显示导出过程

您要问的是delphi7导出excel不显示导出过程怎么办？解决方法如下。1、请确保代码中有足够的输出信息来显示导出过程的进展。2、检查导出Excel的选项是否正确设置。3、将Excel应用程序设置为可见，这样就可以直接看到导出的过程和结果。4、添加适当的异常处理代码以捕捉出现的错误和异常，确保程序在出现问题时...

delphi7 怎么向服务器传excel文件,又怎样从另一个界面下载excel文件

1可以用FTP做上传和下载，指定路径；2在服务器用IIS做一下虚拟目录，允许目录访问，然后用FTP上传，下载可以用HTTP请求，或都直接用webbrowse控件

可以直接巴氏杀菌乳可以直接喝吗芦荟可以直接用吗白醋可以直接喝吗

Delphi7 是否可以直接对 Excle表 直接操作

Delphi7 是否可以直接对 Excle表直接操作