Excel VBA动态创建工作簿

在Excel中，有时我们需要动态创建一个工作簿，然后把数据填入新建的工作簿中。这样我们就可以在一个Excel中，把数据直接复制到另一个Excel中这里我们先说一下如何用VBA代码创建一个工作簿，同时建立一个名为“测试”的工作表，简单录入数据
详细源码：Sub创建一个工作簿()
'
DimwbAsWorkbook,shtAsWorksheet
'定义一个workbook对象和一个worksheet对象
Setwb=Workbooks.Add '新建一个工作簿
Setsht=wb.Worksheets(1) 'sht指向wb中的worksheet（1）
Withsht
.Name="测试" '修改第一张工作表sheet1的标签名称
.Range("A1:D1")=Array("A","B","C","D")
'为sht写入head
EndWith
wb.SaveAsThisWorkbook.Path&"\测试.xlsx" '保存新建表sht到工作簿"测试"
ActiveWorkbook.Close '关闭新建的工作簿
EndSub
效果图
1505984192318133.jpg (10.48 KB, 下载次数: 0, 售价: 1 金钱)

2022-4-22 09:45 上传

点击文件名下载附件
1505984192318133.jpg

参考自：li_volleyball（博客园）