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

用VB操作excel方法汇总

Private Sub Command3_Click()

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"

第 1 页 共 47 页

("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 '自动调整列宽

第 2 页 共 47 页

设置格式为文本