有时在工作中需要批量创建指定名称的文件夹,如果数量较多,例如要创建几十、甚至几百个文件夹,用手动的方法很难完成。批量创建文件夹的工具有很多,如果一时手头没有这类工具,可以在Excel中用VBA来完成,方法如下:
1.新建一个工作簿,在A列中输入要创建的文件夹名称,在B1单元格中输入文件夹所在的有效路径,如“d:新建文件夹”。
2.按Alt F11,打开VBA编辑器。在右侧的代码窗口中输入下列代码:
如何利用VBA批量转换Excel工作簿为PDF
Excel2010和Excel2007可以将Excel工作簿另存为PDF格式文件,但手工的方法每次只能转换一个工作簿,要转换多个工作簿就显得有些繁琐。如果没有批量转换软件,在Excel2010和Excel2007中,利用VBA代
Sub BatchCreatFolders()
Dim rCel As Range
For Each rCel In ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns(1).Cells
On Error Resume Next
'B1单元格为新建文件夹所在的路径
MkDir Range("B1").Text & "" & rCel.Text
Next
End Sub
3.运行上述代码,即可批量创建指定名称的文件夹。
单击此处下载xls格式的示例文件。
如何利用VBA禁用Excel中的F1键
如果在使用Excel过程中习惯使用F2键切换到单元格编辑状态,有时可能会不小心错按了F1键而弹出Excel帮助窗口,特别是对于键盘较小的笔记本这种情况就更容易出现。如果是Excel2007/2010,Excel帮