如何点击Excel某一个单元格，然后按照表格内容用VBA在当前文件夹下创建文件夹
如图，我点击“1、中国“，VBA程序在excel当前路径下创建名称为“1、中国“的文件夹，若已创建则自动打开文件夹；然后我再点击“1、北京”，VBA程序在“1、中国“文件...
如图，我点击 “1、中国“，VBA程序在excel 当前路径下创建名称为“1、中国“的文件夹，若已创建则自动打开文件夹；然后我再点击“1、北京”，VBA程序在“1、中国“文件夹里面创建名称为“1、北京”的文件夹，依次类推。
展开
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
