2024年4月27日发(作者：)

.

用VB操作Excel的办法

[日期：

来源： 作者：

2008-11-23]

Private Sub Command3_Click()

On Error GoTo err1

Dim i As Long

Dim j As Long

Dim objExl As ation '声明对象变量

ointer = 11 '改变鼠标样式

Set objExl = New ation '初始化对象变量

InNewWorkbook = 1 '将新建的工作薄数量设为1

'增加一个工作薄

().Name = "book1" '修改工作薄名

称

, ("book1") '增加第二个工作薄在第一

个之后

().Name = "book2"

, ("book2") '增加第三个工作薄在第二

个之后

().Name = "book3"

("book1").Select '选中工作薄

小]

[字体：大 中

页脚

.

For i = 1 To 50 '循环写入

数据

For j = 1 To 5

If i = 1 Then

FormatLocal = "@

" '设置格式为文本

(i, j) = " E " & i & j

Else

(i, j) = i & j

End If

Next

Next

("1:1").Select '选中第一行

= True '设为粗体

= 24 '设置字体大小

t '自动调整列宽

ow = 1 '拆分第一行

olumn = 0 '拆分列

Panes = True '固定拆分

itleRows = "$1:$1" '设置打印固

定行

itleColumns = "" '打印标题

页脚