VBA——批量新建以某一字段为标题的EXCEL文件/文件夹/工作簿

问题一：批量生成以某一字段为标题的EXCEL文件

例如：以第一行各学科为名，批量生成制定的EXCEL文件，文件里面不需要填任何东西

演示效果如下：

代码如下

Sub 批量生成XLSX文件()Dim wb As Workbook                                      '定义wb为workbook对象Dim ws As Worksheet                                     '定义wb为worksheet对象Dim i                                                   '定义i为控制行列的变量i = 1t = Timer                                               '记录当前时间Set W = Worksheets("Sheet12")                           '读取源文件While Cells(1, i) <> ""                                 '第一行非空    Set wb = Workbooks.Add                              '新建workbook对象    wb.SaveAs "G:\网课\测试\" & W.Cells(1, i) & ".xlsx"  '以某一列字段为具体的文件名    wb.Close                                            '关闭文件    i = i + 1                                           '遍历下一个字段WendMsgBox Timer - t                                        '测试运行时间End Sub

问题二：批量新建以某一字段为标题的文件夹

例如：要批量生成名称为课程名称这一字段下的文件夹

演示效果如下：

Sub 输出txt()Dim s As String, i As Longt = TimerOpen "G:\测试\test.txt" For Output As #1      '表示输出i = 1While Cells(i, 3) <> ""                       '判断是否到末尾    Print #1, "MD " & Cells(i, 3)             '在每个字段前加入 "MD "能启用bat文件                                              'print表示写入到txt    i = i + 1WendClose #1                                     	'记得关闭Name "G:\测试\test.txt" As "G:\测试\转换.bat" 												'将文件重命名MsgBox Timer - tEnd Sub

问题三：批量新建以某一字段为标题的工作簿

例如：要求以科目字段作为工作簿的标题

这个过程我还没想好如何用VBA代码实现，所以用的是普通操作，但是因为和前面两个的工作要求类似，所以还是放在这里写了。
演示效果

总结：利用VBA代码可以极大的提高工作效率，还有很多操作值得摸索。另外，要想提高，除了知识点的掌握，还得进一步思考如何利用已有语法灵活地完成工作。