| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1259 人关注过本帖
标题:VB创建EXCLE表。添加sheet添加数据 保存EXCEL
取消只看楼主 加入收藏
zhuyongxing
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:234
专家分:482
注 册:2009-8-5
结帖率:91.43%
收藏
已结贴  问题点数:20 回复次数:0 
VB创建EXCLE表。添加sheet添加数据 保存EXCEL
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add
xlApp.Sheets(1).Name = "报名学费收入"
Set xlSheet = xlBook.Worksheets("报名学费收入")
      xlSheet.Cells.EntireColumn.AutoFit     '自动调整列宽
    l="C:\1.xls"
     xlApp.ActiveWorkbook.SaveAs l, True
     xlApp.Visible = False
     xlBook.Close (True) '关闭工作簿
     xlApp.Quit '结束EXCEL对象
      Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing '释放xlApp对象
    MsgBox "导出成功", vbInformation, "提示"
在一个工作薄里可以如何添加一个工作薄
搜索更多相关主题的帖子: EXCEL 
2011-05-08 18:22
快速回复:VB创建EXCLE表。添加sheet添加数据 保存EXCEL
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016523 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved