2024年5月1日发(作者：)
用VB操作Excel(VB6.0)(整理)
全面控制Excel:
首先创建Excel对象，使用ComObj:
Dim ExcelID as ation
Set ExcelID as new ation
1)显示当前窗口：
e:=True;
2)更改Excel标题栏：
n:='应用程序调用MicrosoftExcel';
3)添加新工作簿：
;
4)打开已存在的工作簿：
('C:');
5)设置第2个工作表为活动工作表：
eets[2].Activate;
或eets['Sheet2'].Activate;
6)给单元格赋值：
[1,4].Value:='第一行第四列';
7)设置指定列的宽度（单位：字符个数），以第一列为例：
s[1].ColumnsWidth:=5;
8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
[2].RowHeight:=1/0.035;//1厘米
9)在第8行之前插入分页符：
eets[1].Rows[8].PageBreak:=1;
10)在第8列之前删除分页符：
s[4].PageBreak:=0;
11)指定边框线宽度：
['B3:D4'].Borders[2].Weight:=3;
1-左 2-右 3-顶4-底 5-斜() 6-斜(/)
12)清除第一行第四列单元格公式：
[1,4].ClearContents;
13)设置第一行字体属性：
[1].:='隶书';
[1]. :=clBlue;
[1]. :=True;
[1].ine:=True;
14)进行页面设置：
a.页眉：
Header:='报表演示';
b.页脚：
Footer:='第&P页';
c.页眉到顶端边距2cm：
Margin:=2/0.035;
d.页脚到底端边距3cm：
Margin:=3/0.035;
e.顶边距2cm：
gin:=2/0.035;
f.底边距2cm：
Margin:=2/0.035;
g.左边距2cm：
rgin:=2/0.035;
h.右边距2cm：
argin:=2/0.035;
i.页面水平居中：
Horizontally:=2/0.035;
j.页面垂直居中：
Vertically:=2/0.035;
k.打印单元格网线：
发布者：admin，转转请注明出处：http://www.yc00.com/web/1714546067a2467175.html
评论列表（0条）