《vb中引用excel属性》由会员分享,可在线阅读,更多相关《vb中引用excel属性(11页珍藏版)》请在金锄头文库上搜索。
1、VB 中引用 Excel 属性 1创建 Excel 对象 eole=CREATEOBJECT(Excel.application) 2添加新工作簿 eole.Workbooks.add 3设置第 3 个工作表为激活工作表 eole.Worksheets(sheet3).Activate 4打开指定工作簿 eole.Workbooks.Open(c:templl.xls) 5显示 Excel 窗口 eole.visible=.t. 6更改 Excel 标题栏 eole.Caption=VFP 应用程序调用 Microsoft Excel 7给单元格赋值 eole.cells(1,4).value
2、=XM(XM 为数据库字段名 ) 8设置指定列的宽度(单位:字符个数) eole.ActiveSheet.Columns(1).ColumnWidth=5 9设置指定行的高度(单位:磅) eole.ActiveSheet.Rows(1).RowHeight=1/0.035 (设定行高为 1 厘米,1 磅=0.035 厘米) 10 在第 18 行之前插入分页符 eole.Worksheets(Sheet1).Rows(18).PageBreak=1 11 在第 4 列之前删除分页符 eole.ActiveSheet.Columns(4).PageBreak=0 12 指定边框线宽度(Border
3、s 参数如下) ole.ActiveSheet.Range(b3:d3).Borders(2).Weight=3 13 设置四个边框线条的类型 eole.ActiveSheet.Range(b3:d3).Borders(2).LineStyle=1 (其中 Borders 参数:1左、2右、3 顶、4底、5斜、6 斜/; LineStyle 值:1 与 7细实、2细虚、4点虚、9 双细 实线) 14 设置页眉 eole.ActiveSheet.PageSetup.CenterHeader=报表 1 15 设置页脚 eole.ActiveSheet.PageSetup.CenterFooter=
4、第P 页 16 设置页眉到顶端边距为 2 厘米 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 17 设置页脚到底边距为 3 厘米 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 18 设置顶边距为 2 厘米 eole.ActiveSheet.PageSetup.TopMargin=2/0.035 19 设置底边距为 4 厘米 eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 20 设置左边距为 2 厘米 veole.ActiveSheet.PageSe
5、tup.LeftMargin=2/0.035 21 设置右边距为 2 厘米 eole.ActiveSheet.PageSetup.RightMargin=2/0.035 22 设置页面水平居中 eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 23 设置页面垂直居中 eole.ActiveSheet.PageSetup.CenterVertically=.t. 24 设置页面纸张大小(1窄行 8 5 11 39宽行 14 11) eole.ActiveSheet.PageSetup.PaperSize=1 25 打印单元格网线 eole.Act
6、iveSheet.PageSetup.PrintGridlines=.t. 26 拷贝整个工作表 eole.ActiveSheet.UsedRange.Copy 27 拷贝指定区域 eole.ActiveSheet.Range(A1:E2).Copy 28 粘贴 eole.WorkSheet(Sheet2).Range(A1).PasteSpecial 29 在第 2 行之前插入一行 eole.ActiveSheet.Rows(2).Insert 30 在第 2 列之前插入一列 eole.ActiveSheet.Columns(2).Insert 31 设置字体 eole.ActiveShee
7、t.Cells(2,1).Font.Name=黑体 32 设置字体大小 eole.ActiveSheet.Cells(1,1).Font.Size=25 33 设置字体为斜体 eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 34 设置整列字体为粗体 eole.ActiveSheet.Columns(1).Font.Bold=.t. 35 清除单元格公式 eole.ActiveSheet.Cells(1,4).ClearContents 36 打印预览工作表 eole.ActiveSheet.PrintPreview 37 打印输出工作表 eole.Act
8、iveSheet.PrintOut 38 工作表另为 eole.ActiveWorkbook.SaveAs(c:temp22.xls) 39 放弃存盘 eole.ActiveWorkbook.saved=.t. 40 关闭工作簿 eole.Workbooks.close 41 退出 Excel eole.quit - 访问 EXCEL:ExcelSheet = GetObject(,Excel.Sheet) 返回结果为类,则成功。例: ExcelSheet = GetObject(,Excel.Sheet) If Type(ExcelSheet)#O THEN =MessageBox( 访问
9、Excel 失败!请检查你的系统是否正确安装 Excel 软件! ,48,Excel 不正常) RETURN ENDIF 创建 EXCEL 实例:oExcel=CreateObject(Excel.Application) 该实例创建后,任何对 EXCEL 的操作都针对该实例进行,关闭 EXCEL 后应释放该实例变量: RELEASE oExcel 打开已存在的 EXCEL 文件:oExcel.WorkBooks.Open(&lcFileName) &lcFileName 为 Excel 文件名 打开带有读写密码的文 件:oExcel.WorkBooks.Open(&lcFileName,.F
10、.,&R_Pwd,&W_Pwd) &lcFileName-文件名,R_Pwd- 读密码,W_Pwd-写密码,第二个参数表示读写方式: .T.只读,.F.读写 设置新增工作薄的工作表数:oExcel.SheetsInNewWorkbook=1 &新建工作表数量定为 1 个 新增 EXCEL 工作薄:oExcel.WorkBooks.Add 当前工作薄工作表总数:oExcel.WorkSheets.Count &如:lnSheetCnt=oExcel.WorkSheets.count 新增 EXCEL 工作表:oExcel.Sheets.Add &不带参数为增加至当前工作表之前 在指定工作表后新建
11、工作表:oExcel.Sheets.Add(,oExcel.Sheets(lnSheet),1,-4167) &lnSheet 为指定表号 在最后工作表后新建工作表:oExcel.Sheets.Add(,lnSheetsCnt,1,-4167) &lnSheetCnt 为工作表总数 激活工作表:oExcel.WorkSheets(Sheet1).Activate &激活工作表 1 删除工作表:oExcel.WorkSheets(Sheet2).Delete &删除工作表 2 命名工作表:oExcel.WorkSheets(Sheet3).Name=新表 &重命名工作表 3 使 EXCEL 可视
12、:oExcel.Vsible=.T. Excel 的窗口控制:oExcel.WindowState = -4140 &最小化=-4140,最大化=-4137,还原=-4143 后台操作报警关闭:oExcel.DisplayAlerts=.F. &关闭(.F.) 打开(.T.) 设置工作薄的标题:oExcel.Caption=Vfp 控制 Excel 操作 当前工作薄换名存盘:oExcel.ActiveWorkBook.SaveAs(&lcFileName) 换名存为文本文件:oExcel.ActiveWorkBook.Saveas(&lcFileName,-4158) 工作薄存盘:oExcel
13、.WorkBooks.Save 关闭工作薄:oExcel.WorkBooks.Close 退出 EXCEL:oExcel.Quit &关闭 EXCEL 后通常应释放实例变量:Release oExcel 打印当前工作簿:oExcel.ActiveWorkBook.PrintOut(1,oExcel.WorkSheets.count,1,.T.) *默认直接打印整个工作簿:oExcel.ActiveWorkBook.PrintOut() *参数 1-数值:当前工作簿中进行打印的起始工作表号(默认 1) *参数 2-数值:当前工作簿中进行打印的结束工作表号(默认最末) *参数 3-数值:打印份数(
14、默认 1) *参数 4-是预览打印还是直接打印:.T.-预览打印,.F.-直接打印(默认.F.) 打印当前工作表:oExcel.ActiveSheet.PrintOut() &共八个参数 *参数 1-数值:起始页号,省略则默认为开始位置 *参数 2-数值:终止页号,省略则默认为最后一页 *参数 3-数值:打印份数,省略则默认为 1 份 *参数 4-逻辑值:是否预览,省略则默认为直接打印(.F.) *参数 5-字符值:设置活动打印机名称,省略则为默认打印机 *参数 6-逻辑值:是否输出到文件,省略则默认为否(.F.),若选.T.且参数 8 为空,则 Excel 提示输入要输出的文件名 *参数 7
15、-逻辑值:输出类型,省略则默认为(.T.)逐份打印,否则逐页打印 *参数 8-字符值:当参数 6 为.T.时,设置要打印到的文件名 预览当前工作表:oExcel.ActiveSheet.PrintPreview 当前工作表页面设置:oExcel.ActiveSheet.PageSetup &如: With oExcel.ActiveSheet.PageSetup .CenterFooter=第 +&P+页 共+&N+页 &页脚中间 .LeftFooter=制表人: +AllTrim(lcUserName) &页脚左边 .rightfooter=制表日期:+Dtoc(Date() &页脚右边 .TopMargin=2.5/0.035 &顶边距 .BottomMargin=2.5/0.035 &底边距 .LeftMargin=1.4/0.035 &左边距 .RightMargin=0.5/0.035 &右边距 .FooterMargin=3.5/0.035 &脚高距 .PrintTitleRows = $1:$3 &固定