主题：[求助]动态路径，按当前单元格值，新建文件夹

Dim dr As String = Tables("表A").Current("路径") & "\" & Tables("表A").Current("界")

If FileSys.DirectoryExists(dr) = False Then '如果文件夹存在,则打开
    FileSys.CreateDirectory(dr)   '如果文件夹不存在,则新建后打开
End If

Dim Proc As New Process '定义一个新的Process
Proc.File = dr
Proc.Start()