用VB操作Excel.docx

1、用VB操作Excel用VB操作Excel(总8页)用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)添加新工作簿：4)打开已存在的工作簿：5)设置第2个工作表为活动工作表： ExcelID.WorkSheets2.Activate; 或

2、ExcelID.WorkSheetsSheet2.Activate;6)给单元格赋值： ExcelID.Cells1,4.Value:=第一行第四列;7)设置指定列的宽度（单位：字符个数），以第一列为例：8)设置指定行的高度（单位：磅）（1磅0.035厘米），以第二行为例：9)在第8行之前插入分页符： ExcelID.WorkSheets1.Rows8.PageBreak:=1;10)在第8列之前删除分页符：11)指定边框线宽度： 1-左 2-右 3-顶4-底 5-斜() 6-斜(/)12)清除第一行第四列单元格公式：13)设置第一行字体属性：14)进行页面设置：a.页眉：b.页脚：c.页眉到

3、顶端边距2cm：d.页脚到底端边距3cm：e.顶边距2cm：f.底边距2cm：g.左边距2cm：h.右边距2cm：i.页面水平居中：j.页面垂直居中：k.打印单元格网线：15)拷贝操作：a.拷贝整个工作表：b.拷贝指定区域：c.从A1位置开始粘贴：d.从文件尾部开始粘贴：16)插入一行或一列：17)删除一行或一列：18)打印预览工作表：19)打印输出工作表：20)工作表保存： Endif21)工作表另存为： ExcelID.SaveAs(C:ExcelDemo1.xls);22)放弃存盘：23)关闭工作簿：24)退出Excel： ExcelID.Quit;25)设置工作表密码:26)EXCEL

4、的显示方式为最大化ndowState=xlMaximized 27)工作薄显示方式为最大化28)设置打开默认工作薄数量 ExcelID.SheetsInNewWorkbook=329)关闭时是否提示保存(true保存；false不保存) ExcelID.DisplayAlerts=False 30)设置拆分窗口,及固定行位置31)设置打印时固定打印内容32)设置打印标题33)设置显示方式(分页方式显示)34)设置显示比例35)让Excel响应DDE请求 用VB操作EXCEL示例代码 Private Sub Command3_Click() On Error GoTo err1 Dim i As

5、 Long Dim j As Long Dim objExl As Excel.Application 声明对象变量 Me.MousePointer=11 改变鼠标样式 Set objExl=New Excel.Application初始化对象变量 objExl.SheetsInNewWorkbook=1 将新建的工作薄数量设为1 objExl.Sheets(book1).Select 选中工作薄 For i=1 To 50循环写入数据 For j=1 To 5 If i=1 Then objExl.Cells(i,j)=E&i&j Else objExl.Cells(i,j)=i&j End

6、If Next Next objExl.Rows(1:1).Select 选中第一行 Format(Now,yyyy年mm月dd日hh:MM:ss) 给工作表加密码 Contents:=True,Scenarios:=True objExl.Visible=True 使EXCEL可见 objExl.SheetsInNewWorkbook=3 将默认新工作薄数量改回3个 Set objExl=Nothing清除对象 Me.MousePointer=0 修改鼠标 ExitSub err1: objExl.SheetsInNewWorkbook=3 objExl.DisplayAlerts=False 关闭时不提示保存 objExl.Quit关闭EXCEL objExl.DisplayAlerts=True 关闭时提示保存 Set objExl=Nothing Me.MousePointer=0 End Sub