1、打开Excel表格后，点击【开发工具】、【visual basic】调出VBE编辑器。（也可以使用【Alt+F11】组合键调出VBE编辑器）
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块代码窗口里边输入以下VBA程序代码。
Sub MakeFolder()
Dim i1, str1, path1
On Error Resume Next '忽略可能出现的错误
Application.DisplayAlerts = False '忽略警告提示
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1
path1 = "D:\学生信息\" '文件夹路径
If Dir(path1, 16) = Empty Then '如果文件夹不存在，则
MkDir (path1) '新建文件夹
End If
For i1 = 2 To 1000 '从第二行到1000行
If mysheet1.Cells(i1, 2) <> "" And mysheet1.Cells(i1, 3) <> "" Then
'如果单元格都不为空白，则
str1 = path1 & mysheet1.Cells(i1, 2) & "+" & mysheet1.Cells(i1, 3)
'新建文件夹名称拼接
If Dir(str1, 16) = Empty Then '如果文件夹不存在，则
MkDir (str1) '新建文件夹
End If
End If
Next
Application.DisplayAlerts = True '恢复警告提示
End Sub
4、检查无误后，在VBE编辑器的功能区里面点击“运行”图标运行程序。（也可以按下【F5】键运行程序）
5、电脑上面将会看到批量生成的文件夹。
