用vb操作excel方法汇总

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

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.She

3、ets.Count).Name="book3"  objExl.Sheets("book1").Select    '选中工作薄  Fori=1To50            '循环写入数据      Forj=1To5        Ifi=1Then          objExl.Selection.NumberFormatLocal="@"  '设置格式为文本          objExl.Cells(i,j)="E"&i&j        Else          objExl.Cell

4、s(i,j)=i&j        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.ActiveW

5、indow.SplitColumn=0  '拆分列  objExl.ActiveWindow.FreezePanes=True  '固定拆分  objExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"  '设置打印固定行  objExl.ActiveSheet.PageSetup.PrintTitleColumns=""  '打印标题  objExl.ActiveSheet.PageSetup.RightFooter="打印时间:"&_                 

6、               Format(Now,"yyyy年mm月dd日hh:MM:ss")  objExl.ActiveWindow.View=xlPageBreakPreview  '设置显示方式  objExl.ActiveWindow.Zoom=100            '设置显示大小  '给工作表加密码  objExl.ActiveSheet.Protect"123",DrawingObjects:=True,_                    Contents:=True,Scenario

7、s:=True  objExl.Application.IgnoreRemoteRequests=False  objExl.Visible=True             第20页共20页VB控制EXCEL   '使EXCEL可见  objExl.Application.WindowState=xlMaximized  'EXCEL的显示方式为最大化  objExl.ActiveWindow.WindowState=xlMaximized  '工作薄显示方式为最大化  objExl.SheetsInNewWor

8、kbook=3        '将默认新工作薄数量改回3个  SetobjExl=Nothing  '清除对象  Me.MousePointer=0  '修改鼠标  ExitSubEndSub全面控制Excel首先创建Excel对象，使用ComObj:DimExcelIDasExcel.ApplicationSetExcelIDasnewExcel.Appl