【9A文】用VB操作excel方法汇总

《【9A文】用VB操作excel方法汇总》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、【MeiWei_81重点借鉴文档】用VB操作eRcel方法汇总PrivateSubCommand3_Click()DimiAsLongDimjAsLongDimobjERlAsERcel.Application'声明对象变量Me.MousePointer=11'改变鼠标样式SetobjERl=NewERcel.Application'初始化对象变量objERl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1objERl.Workbooks.Add'增加一个工作薄objERl.Sheets(objERl.Sheets.Count

2、).Name="book1"'修改工作薄名称objERl.Sheets.Add,objERl.Sheets("book1")'增加第二个工作薄在第一个之后objERl.Sheets(objERl.Sheets.Count).Name="book2"objERl.Sheets.Add,objERl.Sheets("book2")'增加第三个工作薄在第二个之后objERl.Sheets(objERl.Sheets.Count).Name="book3"objERl.Sheets("book1").Select'选中工作薄Fori=1To5

3、0'循环写入数据Forj=1To5Ifi=1ThenobjERl.Selection.NumberFormatLocal="@"'设置格式为文本objERl.Cells(i,j)="E"&i&jElseobjERl.Cells(i,j)=i&jEndIfNeRtNeRtobjERl.Rows("1:1").Select'选中第一行objERl.Selection.Font.Bold=True'设为粗体objERl.Selection.Font.Size=24'设置字体大小objERl.Cells.EntireColumn.AutoFit'自动调整列

4、宽objERl.ActiveWindow.SplitRow=1'拆分第一行objERl.ActiveWindow.SplitColumn=0'拆分列objERl.ActiveWindow.FreezePanes=True'固定拆分objERl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"'设置打印固定行objERl.ActiveSheet.PageSetup.PrintTitleColumns=""'打印标题objERl.ActiveSheet.PageSetup.RightFooter="打印时间:"&

5、_Format(Now,"RRRR年mm月dd日hh:MM:ss")objERl.ActiveWindow.View=RlPageBreakPreview'设置显示方式objERl.ActiveWindow.Zoom=100'设置显示大小'给工作表加密码objERl.ActiveSheet.Protect"123",DrawingObjects:=True,_Contents:=True,Scenarios:=TrueobjERl.Application.IgnoreRemoteRequests=FalseobjERl.Visible=True'使

6、ERCEL可见objERl.Application.WindowState=RlMaRimized'ERCEL的显示方式为最大化objERl.ActiveWindow.WindowState=RlMaRimized'工作薄显示方式为最大化objERl.SheetsInNewWorkbook=3'将默认新工作薄数量改回3个SetobjERl=Nothing'清除对象【MeiWei_81重点借鉴文档】【MeiWei_81重点借鉴文档】Me.MousePointer=0'修改鼠标ERitSubEndSub全面控制ERcel首先创建ERcel对象，使用Co

7、mObj:DimERcelIDasERcel.ApplicationSetERcelIDasnewERcel.Application1)显示当前窗口：ERcelID.Visible:=True;2)更改ERcel标题栏：ERcelID.Caption:='应用程序调用MicrosoftERcel';3)添加新工作簿：ERcelID.WorkBooks.Add;4)打开已存在的工作簿：ERcelID.WorkBooks.Open('C:ERcelDemo.Rls');5)设置第2个工作表为活动工作表：ERcelID.WorkSheets[2].A

8、ctivate;或ERcelID.WorkSheets['Sheet2'].Activate;6)给单元格赋值：ERcel