爱问知识人 爱问教育 医院库

delphi中如何更改excel的读写权限?

首页

delphi中如何更改excel的读写权限?

delphi中如何更改excel的读写权限?

提交回答

全部答案

    2014-03-27 10:51:03
  •   ( 一 ) 使用动态创建的方法 首先创建 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 [ 8 ] 。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 [ 8 ] 。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: ExcelAppli cation1。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二维图’ 6 )改变二维图的标题字体大小 achart。
      Chart。ChartTitle。Font。size := 6 ; 7 )给二维图加下标说明 achart。Chart。Axes ( xlCategory , xlPrimary ) 。HasTitle := True ; achart。
      Chart。Axes ( xlCategory , xlPrimary ) 。AxisTitle。Characters。Text := '' 下标说明 '' ; 8 )给二维图加左标说明 achart。
      Chart。Axes ( xlValue , xlPrimary ) 。HasTitle := True ; achart。Chart。Axes ( xlValue , xlPrimary ) 。AxisTitle。Characters。
      Text := '' 左标说明 '' ; 9 )给二维图加右标说明 achart。Chart。Axes ( xlValue , xlSecondary ) 。HasTitle := True ; achart。
      Chart。Axes ( xlValue , xlSecondary ) 。AxisTitle。Characters。Text := '' 右标说明 '' ; 10 )改变二维图的显示区大小 achart。
      Chart。PlotArea。Left := 5 ; achart。Chart。PlotArea。Width := 223 ; achart。Chart。PlotArea。Height := 108 ; 11 )给二维图坐标轴加上说明 achart。
      chart。seriescollection [ 1 ] 。NAME := '' 坐标轴说明 '' ;各种操作都有了吧。

    玉***

    2014-03-27 10:51:03

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):