用VB操作Excel(VB6.0)(整理)

用V B操作E x c e l(V B6.0)(整理) 全面控制Excel:
首先创建Excel对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
?
1)显示当前窗口：
? ExcelID.Visible:=True;
2)更改Excel标题栏：
? ExcelID.Caption:='应用程序调用MicrosoftExcel';
3)添加新工作簿：
4)打开已存在的工作簿：
5)设置第2个工作表为活动工作表：
? ExcelID.WorkSheets[2].Activate;
或ExcelID.WorkSheets['Sheet2'].Activate;
6)给单元格赋值：
? ExcelID.Cells[1,4].Value:='第一行第四列';
7)设置指定列的宽度（单位：字符个数），以第一列为例：
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
9)在第8行之前插入分页符：
? ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;
10)在第8列之前删除分页符：
11)指定边框线宽度：
? 1-左 2-右 3-顶4-底 5-斜(\) 6-斜(/)
12)清除第一行第四列单元格公式：
13)设置第一行字体属性：
14)进行页面设置：
a.页眉：
b.页脚：
c.页眉到顶端边距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)工作表保存：
? Endif
21)工作表另存为：
? ExcelID.SaveAs('C:\Excel\Demo1.xls');
22)放弃存盘：
23)关闭工作簿：
24)退出Excel：
? ExcelID.Quit;
25)设置工作表密码:
26)EXCEL的显示方式为最大化
ndowState=xlMaximized?
27)工作薄显示方式为最大化
28)设置打开默认工作薄数量
? ExcelID.SheetsInNewWorkbook=3
29)'关闭时是否提示保存(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 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? '选中工作薄<book1>
? 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
? EndIf
? 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。