VB操作Excel文档格式.docx
- 文档编号:13742784
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:14
- 大小:20.98KB
VB操作Excel文档格式.docx
《VB操作Excel文档格式.docx》由会员分享,可在线阅读,更多相关《VB操作Excel文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
(True)'
关闭EXCEL工作簿
关闭EXCEL
SetxlApp=Nothing'
释放EXCEL对象
VB中操作Excel的一般做法(读取)
1、定义Excel操作变量
DimobjExcelFileAs
DimobjWorkBookAs
DimobjImportSheetAs
2、打开Excel进程,并打开目标Excel文件
SetobjExcelFile=New
=False
SetobjWorkBook=objImportSheet=
(1)
3、获取Excel有效区域的行和列数
intLastColNum==、逐行读取Excel中数据
由于前两行为Header部分,所以需要从第三行读取
如果第1到第10个单元格的值均为空或空格,则视为空行
ForintCountI=3TointLastRowNum
'
CheckifEmptyDataRow
blnNullRow=True
ForintI=1To10
IfTrim$(intCountI,intI).Value)<
>
"
Then
blnNullRow=False
EndIf
NextintI
若不是空行,则进行读取动作,否则继续向后遍历Excel中的行
IfblnNullRow=FalseThen
获取单元格中的数据,做有效性Check,并将合法数据创建为实体存入对象数组中
(intCountI,1).Value
……
NextintCountI
5、退出Excel进程,并关闭Excel相关操作对象
SetobjWorkBook=Nothing
SetobjImportSheet=Nothing
SetobjExcelFile=Nothing
vb操作Excel
*************一个标准的
DimxlAppAs
DimxlBookAs
DimxlSheetAs
SetxlApp=CreateObject("
创建EXCEL对象
SetxlBook="
d:
\"
打开已经存在的EXCEL工件簿文件
=True'
设置EXCEL对象可见(或不可见)
SetxlSheet=("
Sheet1"
设置活动工作表
(Row,Col)=值'
给单元格(row,col)赋值
(5,5)="
Neok"
打印工作表
关闭工作簿
结束EXCEL对象
释放xlApp对象
(xlAutoOpen)'
运行EXCEL启动宏
(xlAutoClose)'
运行EXCEL关闭宏
**********************
启动Excel
DimobjExcelAs
SetobjExcel=CreateObject("
)
=True'
创建有一个工作表的工作簿
=1
SetobjWorkbook=
打开已经存在的EXCEL工件簿文件
SetobjWorkbook="
文件名"
DimobjSheetAs
SetobjSheet=("
表名"
(row,col)=值
给合并的单元格赋值,如(A3:
A9)
("
A3:
A9"
)=值
运行EXCEL宏
("
宏名"
插入一行
1:
1"
).InsertShift:
=xlDown
保存EXCEL文件
另存为
(True)
结束EXCEL对象
如果要求在退出应用程序后EXCEL不提示用户是否保存已修改的
文件,则可使用如下语句:
=True
释放objExcel对象
SetobjExcel=Nothing
注意:
在工程中运用Excel对象模型,必须引用ExcelObjectLibrary
工程-->
引用加入ExcelObjectLibrary在VB中操作EXCEL对象,如为可见,在操作中手式关闭EXCEL,而VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生错误。
形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。
在编程时应注意加以防止出现出现这种情况。
全面控制Excel
首先创建Excel对象,使用ComObj:
DimExcelIDas
SetExcelIDasnew
1)显示当前窗口:
:
=True;
2)更改Excel标题栏:
='
应用程序调用MicrosoftExcel'
;
3)添加新工作簿:
4)打开已存在的工作簿:
C:
\Excel\'
);
5)设置第2个工作表为活动工作表:
[2].Activate;
或['
Sheet2'
].Activate;
6)给单元格赋值:
[1,4].Value:
第一行第四列'
7)设置指定列的宽度(单位:
字符个数),以第一列为例:
8)设置指定行的高度(单位:
磅)(1磅=0.035厘米),以第二行为例:
1厘米
9)在第8行之前插入分页符:
[1].Rows[8].PageBreak:
=1;
10)在第8列之前删除分页符:
11)指定边框线宽度:
B3:
D4'
].Borders[2].Weight:
=3;
1-左2-右3-顶4-底5-斜(\)6-斜(/)
12)清除第一行第四列单元格公式:
13)设置第一行字体属性:
隶书'
=clBlue;
14)进行页面设置:
a.页眉:
报表演示'
b.页脚:
第&
P页'
c.页眉到顶端边距2cm:
d.页脚到底端边距3cm:
e.顶边距2cm:
f.底边距2cm:
g.左边距2cm:
h.右边距2cm:
i.页面水平居中:
j.页面垂直居中:
k.打印单元格网线:
15)拷贝操作:
a.拷贝整个工作表:
b.拷贝指定区域:
A1:
E2'
].Copy;
c.从A1位置开始粘贴:
A1'
].PasteSpecial;
d.从文件尾部开始粘贴:
16)插入一行或一列:
17)删除一行或一列:
18)打印预览工作表:
19)打印输出工作表:
20)工作表保存:
Endif
21)工作表另存为:
('
22)放弃存盘:
23)关闭工作簿:
24)退出Excel:
;
25)设置工作表密码:
123"
DrawingObjects:
=True,Contents:
=True,Scenarios:
=True
26)EXCEL的显示方式为最大化
27)工作薄显示方式为最大化
28)设置打开默认工作薄数量
=3
29)'
关闭时是否提示保存(true保存;
false不保存)
=False
30)设置拆分窗口,及固定行位置
31)设置打印时固定打印内容
$1:
$1"
32)设置打印标题
33)设置显示方式(分页方式显示)
34)设置显示比例
35)让Excel响应DDE请求
用VB操作EXCEL示例代码
PrivateSubCommand3_Click()
OnErrorGoToerr1
DimiAsLong
DimjAsLong
DimobjExlAs'
声明对象变量
=11'
改变鼠标样式
SetobjExl=New'
初始化对象变量
=1
将新建的工作薄数量设为1
增加一个工作薄
book1"
修改工作薄名称
)‘增加第二个工作薄在第一个之后
book2"
)‘增加第三个工作薄在第二个之后
book3"
).Select
选中工作薄<
book1>
Fori=1To50'
循环写入数据
Forj=1To5
Ifi=1Then
@"
设置格式为文本
(i,j)="
E"
&
i&
j
Else
(i,j)=i&
EndIf
Next
).Select'
选中第一行
设为粗体
设置字体大小
自动调整列宽
拆分第一行
拆分列
固定拆分"
设置打印固定行
打印标题"
打印时间:
_
Format(Now,"
yyyy年mm月dd日hh:
MM:
ss"
设置显示方式
设置显示大小
给工作表加密码
=True,
_
Contents:
=True
使EXCEL可见
EXCEL的显示方式为最大化
工作薄显示方式为最大化
=3
将默认新工作薄数量改回3个
SetobjExl=Nothing'
清除对象
=0'
修改鼠标
ExitSub
err1:
=False
关闭时不提示保存
=True'
关闭时提示保存
SetobjExl=Nothing
=0
EndSub
调用Excel制作任意表格
在VB中制作报表一般来讲有三种方法:
1、直接使用中自带的DataReport来做,这种方法有很大的局限性,对于比较规则的报表,但对于比较复杂的报表,比如说一张报表,上部分是人员的工资,下部分是人员的各日的考勤,使用这种方法就无能为力。
2、使用直接的打印方法,即,这种方法直接向打印机打印,就象过去使用Foxpro似的,需要进行打印机定位,并且在Windows下,不同的字符数字所占的宽度也
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 操作 Excel
![提示](https://static.bdocx.com/images/bang_tan.gif)