Question

如何点击Excel某一个单元格，然后按照表格内容用VBA在当前文件夹下创建文件夹

如图，我点击 “1、中国“，VBA程序在excel 当前路径下创建名称为“1、中国“的文件夹，若已创建则自动打开文件夹；然后我再点击“1、北京”，VBA程序在“1、中国“文件夹里面创建名称为“1、北京”的文件夹，依次类推。

Answer 1

'右键点击所在表格的下面的标签 选择 查看代码  粘贴以下代码
Public filepath As String'全局变量filepath
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set wjj = CreateObject("scripting.filesystemobject")
If ActiveCell.Column() = 1 Then'判断鼠标是否选择A列单元格
    If ActiveCell.Value <> "" Then'如果选中的单元格不为空
        filepath = ThisWorkbook.Path & "\" & ActiveCell.Value'设置文件夹目录为当前excel路径
        If Dir(filepath, vbDirectory) <> "" Then'判断文件夹是否存在
            filepath = ThisWorkbook.Path & "\" & ActiveCell.Value & "\"   
        Else
            MkDir filepath '新建文件夹
        End If
    End If
End 
If ActiveCell.Column() = 2 And filepath <> "" Then '判断鼠标是否选择B列单元格 且 filepath是否设置A列文件夹
        If ActiveCell.Value <> "" Then
            x = filepath & ActiveCell.Value
            If Dir(x, vbDirectory) <> "" Then Else MkDir x
        End If
End If
End Sub