我的环境
win10 Excel 2007（激活） vb6.0精简版
准备工作
创建一个VB工程，建立一个Form1窗口，引入这个（版本不一，可能是11.0）
然后在代码框开头写入 这里定义的是全局变量，根据情况来
Public oE As Excel.Application 'excel程序对象
Public oEwork As Excel.Worksheet 'excel工作表对象
Form load事件里面写入
Set oE = CreateObject("excel.application") '创建excel应用程序对象
oE.Workbooks.Open App.Path & "\测试" '打开文件
Set oEwork = oE.Workbooks(1).Worksheets("sh1") '设置oEwork为工作表sh1
如果你在跟着我做，那么运行这个程序 ，在任务管理器里面就会多出这个excel进程
现在你成功一半了
好现在点击 叉叉 退出程序，但是这个进程还在（没有关闭）
然后再运行程序就会发现又多了这样的一个进程
那么如何解决呐？
其实我们只需要每次程序结束的时候关闭这个进程就可以了，那么我们就在窗体Unload事件里面添加如下代码
这样就解决了这个问题而且还进行了保存
这里我写的代码我没有进行很详细的讲解，如果有问题我希望能够通过谷歌等等手段自己解决，当然也可以问我
常规操作
1.显示工作表
这样就能显示隐藏工作表了，这个功能用的还是比较多的.
2.写入数据
当当这就是数据写入了
不过写入数据还有其他的方法，我只是写了一个最简单的
再例举一个
这两句话可以观察一下区别，这也是很有用的
观察Cells里面填写的两个 1 很明显这是excel表格的一个坐标，你可以修改成Cells(2,2)试试效果
2.读取数据
话不多说一张图搞定
来一张全部的截图
3.创建工作表
通过观察，再创建一个名字一样的就保存了，所以在创建是先判断有没有这个表
4.列出工作表
这样就可以 列出，所有的表了，然后判断一下(这只是其中一个方法)
实践一下吧,自己动手,丰衣足食...
下面列出一些常用的方法
Dim oE as Excel.Application
Set oE as new Excel.Application
1) 显示当前窗口：
oE.Visible := True;
2) 更改 Excel 标题栏：
oE.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
oE.WorkBooks.Add;
4) 打开已存在的工作簿：
oE.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表：
oE.WorkSheets[2].Activate;
或 oE.WorkSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值：
oE.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
oE.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
oE.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符：
oE.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符：
oE.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度：
oE.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式：
oE.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性：
oE.ActiveSheet.Rows[1].Font.Name := '隶书';
oE.ActiveSheet.Rows[1].Font.Color := clBlue;
oE.ActiveSheet.Rows[1].Font.Bold := True;
oE.ActiveSheet.Rows[1].Font.UnderLine := True;
14) 进行页面设置：
a.页眉：
oE.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
oE.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
oE.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
oE.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
oE.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
oE.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
oE.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
oE.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
oE.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
oE.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
oE.ActiveSheet.PageSetup.PrintGridLines := True;
15) 拷贝操作：
a.拷贝整个工作表：
oE.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
oE.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
oE.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
oE.ActiveSheet.Range.PasteSpecial;
16) 插入一行或一列：
a. oE.ActiveSheet.Rows[2].Insert;
b. oE.ActiveSheet.Columns[1].Insert;
17) 删除一行或一列：
a. oE.ActiveSheet.Rows[2].Delete;
b. oE.ActiveSheet.Columns[1].Delete;
18) 打印预览工作表：
oE.ActiveSheet.PrintPreview;
19) 打印输出工作表：
oE.ActiveSheet.PrintOut;
20) 工作表保存：
If not oE.ActiveWorkBook.Saved then
oE.ActiveSheet.PrintPreview
End if
21) 工作表另存为：
oE.SaveAs( 'C:\Excel\Demo1.xls' );
22) 放弃存盘：
oE.ActiveWorkBook.Saved := True;
23) 关闭工作簿：
oE.WorkBooks.Close;
24) 退出 Excel：
oE.Quit;
25) 设置工作表密码:
oE.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
26) EXCEL的显示方式为最大化
oE.Application.WindowState = xlMaximized
27) 工作薄显示方式为最大化
oE.ActiveWindow.WindowState = xlMaximized
28) 设置打开默认工作薄数量
oE.SheetsInNewWorkbook = 3
29) '关闭时是否提示保存(true 保存；false 不保存)
oE.DisplayAlerts = False
30) 设置拆分窗口,及固定行位置
oE.ActiveWindow.SplitRow = 1
oE.ActiveWindow.FreezePanes = True
31) 设置打印时固定打印内容
oE.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
32) 设置打印标题
oE.ActiveSheet.PageSetup.PrintTitleColumns = ""
33) 设置显示方式(分页方式显示)
oE.ActiveWindow.View = xlPageBreakPreview
34) 设置显示比例
oE.ActiveWindow.Zoom = 100
35) 让Excel 响应 DDE 请求
Ex.Application.IgnoreRemoteRequests = False
推荐几个相关操作的帖子
VB操作EXCEL文件大全（搬：笑笑小白）300种额！
用VB操作excel方法汇总.doc（这个doc文件可以使用 沸点文库下载器 直接下载）
如果对你有帮助一定要点个赞额
网友评论