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