获取单元格内容新建文件夹并创建打开连接

Bananamix

求助：现在选择文件名栏只能创建当前文件名，想要通过选择K列单元格新建文件名并自动匹配专业栏（B列）的数值为1级文件夹，最好的话能自动生成K列为链接方式直接打开文件夹，感谢

代码写了一级就文件夹就不会了


    filepath = ThisWorkbook.Path & "\" & ActiveCell.Value & "\"  '
If ActiveCell.Column() = 11 Then
    If ActiveCell.Value <> "" Then
        If Dir(filepath, vbDirectory) <> "" Then '
        filepath = ThisWorkbook.Path & "\" & ss & "\" & ActiveCell.Value & "\" '
         MsgBox "恅璃眒湔婓"
        Else
            MkDir filepath
            MsgBox "陔膘恅璃傖髡"
        End If
      End If
   
    End If

02761752696

将对应的一级文件夹名称写进去就好了呀

Bananamix

02761752696 发表于 2023-1-13 14:33
将对应的一级文件夹名称写进去就好了呀

就是不知道怎麼引用一級單元格的數值，請教一下我現在是想選擇2級文件夾時自動判斷一級是否存在並創建，謝謝

Bananamix

求助大神幫忙完善一下代碼，怎麼添加自動判斷第二列所述專業創建文件夾