如何在导出数据到EXCEL时定义EXCEL单元格的格式,如对齐方式等等? 见标题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 设置指定列的宽度(单位:字符个数),以第一列为例:ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米在第8行之前插入分页符:ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;在第8列之前删除分页符:ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;指定边框线宽度:ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )清除第一行第四列单元格公式:ExcelApp.ActiveSheet.Cells[1,4].ClearContents;设置第一行字体属性: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;进行页面设置: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; 在Execl中打开宏记录,然后执行相应的操作,查看宏就知道如何作了 pick it in articles b4> 全面控制 Excel > 首先?建 Excel ?象,使用ComObj:> var ExcelID: Variant;> ExcelID := CreateOleObject( 'Excel.Application' );> 1) ?示?前窗口:> ExcelID.Visible := True;> 2) 更改 Excel ???:> ExcelID.Caption := '?用程序?用 Microsoft Excel';> 3) 添加新工作簿:> ExcelID.WorkBooks.Add;> 4) 打?已存在的工作簿:> ExcelID.WorkBooks.Open( 'C:ExcelDemo.xls' );> 5) ?置第2?工作表?活?工作表:> ExcelID.WorkSheets[2].Activate; > 或 > ExcelID.WorksSheets[ 'Sheet2' ].Activate;> 6) ??元格?值:> ExcelID.Cells[1,4].Value := '第一行第四列';> 7) ?置指定列的?度(?位:字符??),以第一列?例:> ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;> 8) ?置指定行的高度(?位:磅)(1磅=0.035厘米),以第二行?例:> ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米> 9) 在第8行之前插入分?符:> ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;> 10) 在第8列之前?除分?符:> ExcelID.ActiveSheet.Columns[4].PageBreak := 0;> 11) 指定?框??度:> ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;> 1-左 2-右 3-? 4-底 5-斜( ) 6-斜( / )> 12) 清除第一行第四列?元格公式:> ExcelID.ActiveSheet.Cells[1,4].ClearContents;> 13) ?置第一行字体?性:> ExcelID.ActiveSheet.Rows[1].Font.Name := '??';> ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;> ExcelID.ActiveSheet.Rows[1].Font.Bold := True;> ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;> 14) ?行?面?置:> a.?眉:> ExcelID.ActiveSheet.PageSetup.CenterHeader := '?表演示';> b.??:> ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P?';> c.?眉到?端?距2cm:> ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;> d.??到底端?距3cm:> ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;> e.??距2cm:> ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;> f.底?距2cm:> ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;> g.左?距2cm:> ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;> h.右?距2cm:> ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;> i.?面水平居中:> ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;> j.?面垂直居中:> ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;> k.打印?元格网?:> ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;> 15) 拷?操作:> a.拷?整?工作表:> ExcelID.ActiveSheet.Used.Range.Copy;> b.拷?指定?域:> ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;> c.?A1位置?始粘?:> ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;> d.?文件尾部?始粘?:> ExcelID.ActiveSheet.Range.PasteSpecial;> 16) 插入一行或一列:> a. ExcelID.ActiveSheet.Rows[2].Insert;> b. ExcelID.ActiveSheet.Columns[1].Insert;> 17) ?除一行或一列:> a. ExcelID.ActiveSheet.Rows[2].Delete;> b. ExcelID.ActiveSheet.Columns[1].Delete;> 18) 打印??工作表:> ExcelID.ActiveSheet.PrintPreview;> 19) 打印?出工作表:> ExcelID.ActiveSheet.PrintOut;> 20) 工作表保存:> if not ExcelID.ActiveWorkBook.Saved then> ExcelID.ActiveSheet.PrintPreview;> 21) 工作表另存?:> ExcelID.SaveAs( 'C:ExcelDemo1.xls' );> 22) 放?存?:> ExcelID.ActiveWorkBook.Saved := True;> 23) ??工作簿:> ExcelID.WorkBooks.Close;> 24) 退出 Excel:> ExcelID.Quit; 哎,上面列的在网上的饿资料里都查得到,我问的是cells的格式里的的左对齐,居中,右对齐,查不到才在这里问的. 关于外部数据库引擎的问题 以前看到过模糊查找子字符串的资料,还有使用通配符查找字符串的资料.现在找不了,谁提点一下? 为什么我用qickrep做的报表只能显示一行啊?能不能给点解释? 请问在线程中如何把控制权交还给系统? 如何将汉字画在Canvas上 怎样返回一个日期中的月份? DELPHI对WORD的操作 請問如何在不修改數據的情況下,輸出與數據對應的規則數據 为什么CSDN最近速度奇慢,搜索近两周了还不能用!气愤! 求分布式开发高手!! 在调试的时候弹出CPU的对话框? [求助醒目]谁帮我写个数据库小程序,报酬优厚!!!up有分
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米在第8行之前插入分页符:
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;在第8列之前删除分页符:
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;指定边框线宽度:
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )清除第一行第四列单元格公式:
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;设置第一行字体属性:
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;进行页面设置:
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;
> 首先?建 Excel ?象,使用ComObj:
> var ExcelID: Variant;
> ExcelID := CreateOleObject( 'Excel.Application' );
> 1) ?示?前窗口:
> ExcelID.Visible := True;
> 2) 更改 Excel ???:
> ExcelID.Caption := '?用程序?用 Microsoft Excel';
> 3) 添加新工作簿:
> ExcelID.WorkBooks.Add;
> 4) 打?已存在的工作簿:
> ExcelID.WorkBooks.Open( 'C:ExcelDemo.xls' );
> 5) ?置第2?工作表?活?工作表:
> ExcelID.WorkSheets[2].Activate;
> 或
> ExcelID.WorksSheets[ 'Sheet2' ].Activate;
> 6) ??元格?值:
> ExcelID.Cells[1,4].Value := '第一行第四列';
> 7) ?置指定列的?度(?位:字符??),以第一列?例:
> ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
> 8) ?置指定行的高度(?位:磅)(1磅=0.035厘米),以第二行?例:
> ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
> 9) 在第8行之前插入分?符:
> ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
> 10) 在第8列之前?除分?符:
> ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
> 11) 指定?框??度:
> ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
> 1-左 2-右 3-? 4-底 5-斜( ) 6-斜( / )
> 12) 清除第一行第四列?元格公式:
> ExcelID.ActiveSheet.Cells[1,4].ClearContents;
> 13) ?置第一行字体?性:
> ExcelID.ActiveSheet.Rows[1].Font.Name := '??';
> ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;
> ExcelID.ActiveSheet.Rows[1].Font.Bold := True;
> ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
> 14) ?行?面?置:
> a.?眉:
> ExcelID.ActiveSheet.PageSetup.CenterHeader := '?表演示';
> b.??:
> ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P?';
> c.?眉到?端?距2cm:
> ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
> d.??到底端?距3cm:
> ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
> e.??距2cm:
> ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
> f.底?距2cm:
> ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
> g.左?距2cm:
> ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
> h.右?距2cm:
> ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;
> i.?面水平居中:
> ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
> j.?面垂直居中:
> ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
> k.打印?元格网?:
> ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;
> 15) 拷?操作:
> a.拷?整?工作表:
> ExcelID.ActiveSheet.Used.Range.Copy;
> b.拷?指定?域:
> ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
> c.?A1位置?始粘?:
> ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
> d.?文件尾部?始粘?:
> ExcelID.ActiveSheet.Range.PasteSpecial;
> 16) 插入一行或一列:
> a. ExcelID.ActiveSheet.Rows[2].Insert;
> b. ExcelID.ActiveSheet.Columns[1].Insert;
> 17) ?除一行或一列:
> a. ExcelID.ActiveSheet.Rows[2].Delete;
> b. ExcelID.ActiveSheet.Columns[1].Delete;
> 18) 打印??工作表:
> ExcelID.ActiveSheet.PrintPreview;
> 19) 打印?出工作表:
> ExcelID.ActiveSheet.PrintOut;
> 20) 工作表保存:
> if not ExcelID.ActiveWorkBook.Saved then
> ExcelID.ActiveSheet.PrintPreview;
> 21) 工作表另存?:
> ExcelID.SaveAs( 'C:ExcelDemo1.xls' );
> 22) 放?存?:
> ExcelID.ActiveWorkBook.Saved := True;
> 23) ??工作簿:
> ExcelID.WorkBooks.Close;
> 24) 退出 Excel:
> ExcelID.Quit;