请教：怎样对已打开的EXCEL表，设置页眉和页脚？

Sodes 2004-10-29 03:35:22

我用以下代码打开excel:
var
workbook,sheet,excelObj,excel: OleVariant;
begin
excelObj:=CreateOleObject('excel.sheet');
excel:=excelObj.Application;
workbook:=excel.workbooks.open('D:\MYAPP\GWTC\GWTC\gwtc_hz.xls');
sheet:=workbook.sheets[1];

...全文

111 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

li_zhifu 2004-10-29

打赏
举报

授人以鱼不如授人以渔，给你类似此事的解决方案：

打开Excel，点“工具｜宏｜录制新宏”，开始你要做的操作，操作完成后“停止录制”，点“工具｜宏｜宏”，选择你刚才指定的宏名，点击“编辑”…

li_zhifu 2004-10-29

打赏
举报

sheet.PageSetup.LeftHeader:='&B页眉左侧&B';//粗体显示
sheet.PageSetup.CenterHeader := '&D';//显示日期
sheet.PageSetup.RightHeader:='第 &P 页';//页码

sheet.PageSetup.CenterFooter := 第 &P 页';//页脚

ksaiy 2004-10-29

打赏
举报

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;

Sodes 2004-10-29