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

效果图

参考自：li_volleyball（博客园）