文档介绍：用VB操作excel方法汇总
Private mand3_Click()
   
    Dim i As Long
    Dim j As Long
    Dim objExl As    '声明对象变量
    = 11            '改变鼠标样式
    Set objExl = New     '初始化对象变量
    = 1  '将新建的工作薄数量设为1
              '增加一个工作薄
    ().Name = "book1"  '修改工作薄名称
    , ("book1") '增加第二个工作薄在第一个之后
    ().Name = "book2"
    , ("book2") '增加第三个工作薄在第二个之后
    ().Name = "book3"
    ("book1").Select     '选中工作薄<book1>
    For i = 1 To 50                   '循环写入数据
        For j = 1 To 5
            If i = 1 Then
                = "@"  '设置格式为文本
                (i, j) = " E " & i & j
            Else
                (i, j) = i & j
            End If
        Next
    Next
    ("1:1").Select         '选中第一行
    = True   '设为粗体
    = 24     '设置字体大小
      '自动调整列宽
    = 1  '拆分第一行
    = 0   '拆分列
    = True   '固定拆分
    = "$1:$1"  '设置打印固定行
    = ""    '打印标题
    = "打印时间: " & _
                                               Format(Now, "yyyy年mm月dd日 hh:MM:ss")
    = xlPageBreakPreview    '设置显示方式
    = 100                 '设置显示大小
    '给工作表加密码
    "123", DrawingObjects:=True, _
                               Contents:=True, Scenarios:=True
    = False
    = True