Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 新闻动态
  • Excel资源
  • 关于我们

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中交流网 联系方式

QQ:18449932 


网  址:www.excel-cn.com  

当前位置:网站首页 > Excel教程
Excel教程

Excel VBA动态创建工作簿

在Excel中,有时我们需要动态创建一个工作簿,然后把数据填入新建的工作簿中。

这样我们就可以在一个Excel中,把数据直接复制到另一个Excel中

这里我们先说一下如何用VBA代码创建一个工作簿,同时建立一个名为“测试”的工作表,简单录入数据


详细源码:

Sub 创建一个工作簿()
'
    Dim wb As Workbook, sht As Worksheet 
    '定义一个workbook对象和一个worksheet对象
    Set wb = Workbooks.Add  '新建一个工作簿
    
    Set sht = wb.Worksheets(1)  'sht 指向wb中的worksheet(1)
    
    With sht
        .Name = "测试"          '修改第一张工作表sheet1的标签名称
        .Range("A1:D1") = Array("A", "B", "C", "D")
                                ' 为sht 写入head
    End With
    wb.SaveAs ThisWorkbook.Path & "\测试.xlsx" '保存新建表sht到工作簿"测试"
    ActiveWorkbook.Close                       '关闭新建的工作簿
  
End Sub


效果图

e1.jpg


参考自:li_volleyball(博客园)



点击次数:  更新时间:2017-09-21 16:52:22  【打印此页】  【关闭】
上一条:Excel 统计相同颜色的单元格及合计  下一条:Excel对数据更改后自动标记更换颜色
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2024 粤ICP备10043721号

QQ:18449932

免费Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表、Excel VBA

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn