1、打开事先准备好的Excel文件
2、工具栏/开发工具/Visual Basic,打开Microsoft Visual Basic,也可使用快捷键Alt+F11,
3、然后,选择VBAProject/Microsoft Excel 对象/sheet1(sheet1),在右边窗口输入以下程序:
Sub 根据工作表创建目录()
Dim i As Integer, Biao As Worksheet
i = 2
For Each Biao In Worksheets
Cells(i, "A") = Biao.Name
i = i + 1
Next Biao
End Sub
程序已经编制完成!
4、最后,工具栏/开发工具/宏(快捷键Alt+F8),查看宏,选择已编制好的宏“根据工作表创建目录”,执行,就会根据工作表创建对应目录。也可直接在Microsoft Visual Basic中执行,工具栏/运行/运行子过程/用户窗体,或者直接点击菜单栏中类似于三角形的按键。
5、以后不管有成百上千个工作表都可以一键生成了!