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

'右键点击所在表格的下面的标签 选择 查看代码  粘贴以下代码
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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/jvf2xxrxjy7r72y72y.html