计算机二级DELPHI技巧:Delphi操作Excel计算机二级考试
文章作者 100test 发表时间 2009:06:15 07:14:00
来源 100Test.Com百考试题网
编辑特别推荐:
全国计算机等级考试(等考)指定教材
全国计算机等级考试学习视频
全国计算机等级考试网上辅导招生
全国计算机等级考试时间及科目预告
百考试题教育全国计算机等级考试在线测试平台
全国计算机等级考试资料下载
全国计算机等级考试论坛
计算机等级考试四级应用题解析汇总
2009年下半年全国计算机二级考试时间是2009年9月19日至23日。2009年下半年全国计算机二级考试报名时间会在考前两个月开始报名!更多优质资料尽在百考试题论坛 百考试题在线题库。
首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant.
ExcelApp := CreateOleObject( ’Excel.Application’ ).
注意程序结束时释放变量 ExcelApp:=unassigned.
1 显示当前窗口: ExcelApp.Visible := True.
2 更改 Excel标题栏: ExcelApp.Caption := ’应用程序调用 Microsoft Excel’.
3 添加新工作簿: ExcelApp.WorkBooks.Add.
4 打开已存在的工作簿: ExcelApp.WorkBooks.Open( ’C:ExcelDemo.xls’ ).
5 设置第2个工作表为活动工作表: ExcelApp.WorkSheets[2].Activate.
或 ExcelApp.WorksSheets[ ’Sheet2’ ].Activate.
添加工作表 ExcelApp.WorkSheets.add.
工作表重命名 ExcelApp.WorkSheets[1].Name:=’工作表1’.
或者ExcelApp.WorkSheets[’Sheet1’].Name:=’工作表1’.
工作表数目 ExcelApp.WorkSheets.Count 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:ExcelDemo1.xls’ ).
22 放弃存盘: ExcelApp.ActiveWorkBook.Saved := True.
23 关闭工作簿: ExcelApp.WorkBooks.Close.
24 退出Excel: ExcelApp.Quit.
2009年9月全国计算机等级考试时间及科目预告
2009年NCRE考试有新变化
2009年全国计算机等级考试-大纲
全国计算机等级考试历年真题及答案
2009年上半年全国计算机等级考试试题及答案