Chinaunix首页 | 论坛 | 博客
  • 博客访问: 88024
  • 博文数量: 16
  • 博客积分: 86
  • 博客等级: 民兵
  • 技术积分: 222
  • 用 户 组: 普通用户
  • 注册时间: 2012-11-08 17:46
文章分类

全部博文(16)

文章存档

2014年(1)

2013年(15)

分类: WINDOWS

2013-09-05 14:51:09

Sub Excel_Out_Click()
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
    Dim i, j As Integer
    Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
    'Set xlbook = xlapp.Workbooks.Open(App.Path & "/test.xls") '打开已经存在的test.xls工件簿文件
    Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
    'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
    xlapp.Visible = True '设置EXCEL对象可见(或不可见)
    Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
    xlsheet.Range("A3" & ":" & "A24").Rows.Group
    xlsheet.Cells(7, 2) = 2008   '在第二页的第7行第2列写入2008
    xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close
    Set xlapp = Nothing '释放xlApp对象
End Sub
阅读(2503) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~