欢迎来到天天文库
浏览记录
ID:12708994
大小:116.00 KB
页数:18页
时间:2018-07-18
《excel的vb二次开发方法》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VB控制EXCEL用VB操作excel方法汇总PrivateSubCommand3_Click() DimiAsLong DimjAsLong DimobjExlAsExcel.Application '声明对象变量 Me.MousePointer=11 '改变鼠标样式 SetobjExl=NewExcel.Application '初始化对象变量 objExl.SheetsInNewWorkbook=1 '将新建的工作薄数量设为1 objExl.Workbooks.Add '
2、增加一个工作薄 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)
3、.Name="book3" objExl.Sheets("book1").Select '选中工作薄 Fori=1To50 '循环写入数据 Forj=1To5 Ifi=1Then objExl.Selection.NumberFormatLocal="@" '设置格式为文本 objExl.Cells(i,j)="E"&i&j Else objExl.Cells(i,j)=i&j
4、 EndIf Next Next objExl.Rows("1:1").Select '选中第一行 objExl.Selection.Font.Bold=True '设为粗体 objExl.Selection.Font.Size=24 '设置字体大小 objExl.Cells.EntireColumn.AutoFit '自动调整列宽 objExl.ActiveWindow.SplitRow=1 '拆分第一行 objExl.ActiveWindow.SplitColumn=0
5、 '拆分列 objExl.ActiveWindow.FreezePanes=True '固定拆分 objExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1" '设置打印固定行 objExl.ActiveSheet.PageSetup.PrintTitleColumns="" '打印标题 objExl.ActiveSheet.PageSetup.RightFooter="打印时间:"&_ Format(Now
6、,"yyyy年mm月dd日hh:MM:ss") objExl.ActiveWindow.View=xlPageBreakPreview '设置显示方式 objExl.ActiveWindow.Zoom=100 '设置显示大小 '给工作表加密码 objExl.ActiveSheet.Protect"123",DrawingObjects:=True,_ Contents:=True,Scenarios:=True objExl.Application.Ig
7、noreRemoteRequests=False objExl.Visible=True '使EXCEL可见 objExl.Application.WindowState=xlMaximized 'EXCEL的显示方式为最大化 objExl.ActiveWindow.WindowState=xlMaximized '工作薄显示方式为最大化 objExl.SheetsInNewWorkbook=3 第18页共18页VB控制EXCEL '将默认新工作薄数量改回3个 Seto
8、bjExl=Nothing '清除对象 Me.MousePointer=0 '修改鼠标 ExitSubEndSub全面控制Excel首先创建Excel对象,使用ComObj:DimExcelIDasExcel.ApplicationSetExcelIDasnewExcel.Appl
此文档下载收益归作者所有