在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

效果图

参考自：li_volleyball（博客园）