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

hdzgx 2019-11-09

展开全文

问题一：批量生成以某一字段为标题的EXCEL文件
在这里插入图片描述
例如：以第一行各学科为名，批量生成制定的EXCEL文件，文件里面不需要填任何东西

演示效果如下：
在这里插入图片描述

代码如下

Sub 批量生成XLSX文件()
Dim wb As Workbook                                      '定义wb为workbook对象
Dim ws As Worksheet                                     '定义wb为worksheet对象
Dim i                                                   '定义i为控制行列的变量
i = 1
t = 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                                           '遍历下一个字段

Wend

MsgBox Timer - t                                        '测试运行时间

End Sub

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

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

在这里插入图片描述

演示效果如下：

在这里插入图片描述

Sub 输出txt()
Dim s As String, i As Long
t = Timer
Open "G:\测试\test.txt" For Output As #1      '表示输出
i = 1

While Cells(i, 3) <> ""                       '判断是否到末尾
    Print #1, "MD " & Cells(i, 3)             '在每个字段前加入 "MD "能启用bat文件
                                              'print表示写入到txt
    i = i + 1
Wend

Close #1                                     	'记得关闭

Name "G:\测试\test.txt" As "G:\测试\转换.bat" 
												'将文件重命名

MsgBox Timer - t

End Sub

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

例如：要求以科目字段作为工作簿的标题
在这里插入图片描述
这个过程我还没想好如何用VBA代码实现，所以用的是普通操作，但是因为和前面两个的工作要求类似，所以还是放在这里写了。
演示效果

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