分享
分享赚钱 收藏 举报 版权申诉 / 9

类型用VB操作Excel(VB6.0)(整理).doc

  • 上传人:精品资料
  • 文档编号:9379057
  • 上传时间:2019-08-04
  • 格式:DOC
  • 页数:9
  • 大小:34KB
  • 配套讲稿:

    如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

    特殊限制:

    部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

    关 键  词:
    用VB操作Excel(VB6.0)(整理).doc
    资源描述:

    1、用 VB 操作 Excel(VB6.0)(整理)全面控制 Excel: 首先创建 Excel 对象,使用 ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1)显示当前窗口:ExcelID.Visible:=True;2)更改 Excel 标题栏:ExcelID.Caption:=应用程序调用 MicrosoftExcel;3)添加新工作簿:ExcelID.WorkBooks.Add;4)打开已存在的工作簿:ExcelID.WorkBooks.Open(C:ExcelDemo.xls);5)设置

    2、第 2 个工作表为活动工作表:ExcelID.WorkSheets2.Activate; 或 ExcelID.WorkSheetsSheet2.Activate;6)给单元格赋值:ExcelID.Cells1,4.Value:=第一行第四列;7)设置指定列的宽度(单位:字符个数),以第一列为例:ExcelID.ActiveSheet.Columns1.ColumnsWidth:=5;8)设置指定行的高度(单位:磅)(1 磅0.035 厘米),以第二行为例:ExcelID.ActiveSheet.Rows2.RowHeight:=1/0.035;/1 厘米9)在第 8 行之前插入分页符:Exce

    3、lID.WorkSheets1.Rows8.PageBreak:=1;10)在第 8 列之前删除分页符:ExcelID.ActiveSheet.Columns4.PageBreak:=0;11)指定边框线宽度:ExcelID.ActiveSheet.RangeB3:D4.Borders2.Weight:=3;1-左 2-右 3-顶 4-底 5-斜() 6-斜(/)12)清除第一行第四列单元格公式:ExcelID.ActiveSheet.Cells1,4.ClearContents;13)设置第一行字体属性:ExcelID.ActiveSheet.Rows1.Font.Name:=隶书;Exce

    4、lID.ActiveSheet.Rows1.Font.Color :=clBlue;ExcelID.ActiveSheet.Rows1.Font.Bold :=True;ExcelID.ActiveSheet.Rows1.Font.UnderLine:=True;14)进行页面设置:a.页眉:ExcelID.ActiveSheet.PageSetup.CenterHeader:=报表演示;b.页脚:ExcelID.ActiveSheet.PageSetup.CenterFooter:=第c.页眉到顶端边距 2cm:ExcelID.ActiveSheet.PageSetup.HeaderMarg

    5、in:=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.R

    6、ightMargin:=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.Rang

    7、eA1:E2.Copy;c.从 A1 位置开始粘贴:ExcelID.ActiveSheet.Range.A1.PasteSpecial;d.从文件尾部开始粘贴:ExcelID.ActiveSheet.Range.PasteSpecial;16)插入一行或一列:a.ExcelID.ActiveSheet.Rows2.Insert;b.ExcelID.ActiveSheet.Columns1.Insert;17)删除一行或一列:a.ExcelID.ActiveSheet.Rows2.Delete;b.ExcelID.ActiveSheet.Columns1.Delete;18)打印预览工作表:Ex

    8、celID.ActiveSheet.PrintPreview;19)打印输出工作表:ExcelID.ActiveSheet.PrintOut;20)工作表保存:IfnotExcelID.ActiveWorkBook.SavedthenExcelID.ActiveSheet.PrintPreviewEndif21)工作表另存为:ExcelID.SaveAs(C:ExcelDemo1.xls);22)放弃存盘:ExcelID.ActiveWorkBook.Saved:=True;23)关闭工作簿:ExcelID.WorkBooks.Close;24)退出 Excel:ExcelID.Quit;25

    9、)设置工作表密码:ExcelID.ActiveSheet.Protect“123“,DrawingObjects:=True,Contents:=True,Scenarios:=True26)EXCEL 的显示方式为最大化ExcelID.Application.WindowState=xlMaximized 27)工作薄显示方式为最大化ExcelID.ActiveWindow.WindowState=xlMaximized 28)设置打开默认工作薄数量ExcelID.SheetsInNewWorkbook=329)关闭时是否提示保存(true 保存;false 不保存)ExcelID.Disp

    10、layAlerts=False 30)设置拆分窗口,及固定行位置ExcelID.ActiveWindow.SplitRow=1ExcelID.ActiveWindow.FreezePanes=True31)设置打印时固定打印内容ExcelID.ActiveSheet.PageSetup.PrintTitleRows=“$1:$1“ 32)设置打印标题ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=“33)设置显示方式(分页方式显示)ExcelID.ActiveWindow.View=xlPageBreakPreview 34)设置显示比例Exce

    11、lID.ActiveWindow.Zoom=100 35)让 Excel 响应 DDE 请求Ex.Application.IgnoreRemoteRequests=False 用 VB 操作 EXCEL 示例代码Private Sub Command3_Click()On Error GoTo err1Dim i As LongDim j As LongDim objExl As Excel.Application 声明对象变量Me.MousePointer=11 改变鼠标样式Set objExl=New Excel.Application初始化对象变量objExl.SheetsInNewWo

    12、rkbook=1 将新建的工作薄数量设为 1objExl.Workbooks.Add增加一个工作薄objExl.Sheets(objExl.Sheets.Count).Name=“book1“ 修改工作薄名称 objExl.Sheets.Add,objExl.Sheets(“book1“)增加第二个工作薄在第一个之后objExl.Sheets(objExl.Sheets.Count).Name=“book2“ objExl.Sheets.Add,objExl.Sheets(“book2“)增加第三个工作薄在第二个之后objExl.Sheets(objExl.Sheets.Count).Name

    13、=“book3“ objExl.Sheets(“book1“).Select 选中工作薄For i=1 To 50循环写入数据For j=1 To 5If i=1 ThenobjExl.Selection.NumberFormatLocal=“ 设置格式为文本 objExl.Cells(i,j)=“E“&i&jElseobjExl.Cells(i,j)=i&jEndIfNextNextobjExl.Rows(“1:1“).Select 选中第一行objExl.Selection.Font.Bold=True 设为粗体objExl.Selection.Font.Size=24 设置字体大小obj

    14、Exl.Cells.EntireColumn.AutoFit 自动调整列宽 objExl.ActiveWindow.SplitRow=1 拆分第一行objExl.ActiveWindow.SplitColumn=0 拆分列objExl.ActiveWindow.FreezePanes=True 固定拆分objExl.ActiveSheet.PageSetup.PrintTitleRows=“$1:$1“ 设置打印固定行objExl.ActiveSheet.PageSetup.PrintTitleColumns=“打印标题objExl.ActiveSheet.PageSetup.RightFoo

    15、ter=“打印时间:“&_Format(Now,“yyyy 年 mm 月 dd 日 hh:MM:ss“)objExl.ActiveWindow.View=xlPageBreakPreview设置显示方式objExl.ActiveWindow.Zoom=100 设置显示大小给工作表加密码objExl.ActiveSheet.Protect“123“,DrawingObjects:=True, _Contents:=True,Scenarios:=TrueobjExl.Application.IgnoreRemoteRequests=FalseobjExl.Visible=True 使 EXCEL

    16、 可见objExl.Application.WindowState=xlMaximizedEXCEL 的显示方式为最大化objExl.ActiveWindow.WindowState=xlMaximized工作薄显示方式为最大化objExl.SheetsInNewWorkbook=3 将默认新工作薄数量改回 3 个 Set objExl=Nothing清除对象Me.MousePointer=0 修改鼠标ExitSuberr1:objExl.SheetsInNewWorkbook=3objExl.DisplayAlerts=False 关闭时不提示保存objExl.Quit关闭 EXCELobjExl.DisplayAlerts=True 关闭时提示保存Set objExl=NothingMe.MousePointer=0End Sub

    展开阅读全文
    提示  道客多多所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    关于本文
    本文标题:用VB操作Excel(VB6.0)(整理).doc
    链接地址:https://www.docduoduo.com/p-9379057.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    道客多多用户QQ群:832276834  微博官方号:道客多多官方   知乎号:道客多多

    Copyright© 2025 道客多多 docduoduo.com 网站版权所有世界地图

    经营许可证编号:粤ICP备2021046453号    营业执照商标

    1.png 2.png 3.png 4.png 5.png 6.png 7.png 8.png 9.png 10.png



    收起
    展开