如题所述
在Excel中，我们如何根据当前工作薄的所有工作表的名称，自动建立与工作表名称相同的文件夹？
要解决这个问题，必须得使用VBA来完成，请遵循如下方法，可解除您的困扰。
b
一、理论知识指导 通过Excel的VBA建立文件夹，代码很简单，方法如下： Dim result As String Dim SheetName As String result = Dir("F:\123\1", vbDirectory) '通过DIR函数，获取文件夹信息 If result = "" Then '判断文件夹是否存在 MkDir ("F:\123\1") '如何文件夹不存在，就创建文件夹 Else MsgBox "该文件夹已经存在！" '如果文件夹存在，就不用再创建了。 End If 以上代码，使用到MkDir函数，用来建立文件夹，下面我们对该函数作个简单介绍。 二、MkDir函数的介绍 MkDir(Path)：该函数只有一个参数Path，是必须填写的参数；代表文件夹所在的路径或位置。 注意：Path 可能包含驱动器。如果未指定驱动器，则 MkDir 在当前驱动器上创建新的目录。 三、实例 通过上述代码的说明，下面，我们稍微对代码进行改良，就可以得到本例的效果了，即根据工作表名称自动建立对应的文件夹。 首先，在excel中使用控件工具箱，拖出一个按钮，如下图！
然后，鼠标直接双击那按钮，即可进入按钮的代码编写模式，如下图！
上述的代码中，被选中部分就是我们所要输入的代码，没有选中的第一行和最后一行，是固定格式，不用修改。 上述代码提到的“F:\123\“指的是根目录，我们所根据工作表名称，自动创建文件夹，就保存在这个文件夹里面了。 好了，都做好了，就退出Excel并保存，然后重新打开这个XLS文件，最后，双击那按钮，就可以得到结果了，如下图！
要解决这个问题，必须得使用VBA来完成，请遵循如下方法，可解除您的困扰。
b
一、理论知识指导 通过Excel的VBA建立文件夹，代码很简单，方法如下： Dim result As String Dim SheetName As String result = Dir("F:\123\1", vbDirectory) '通过DIR函数，获取文件夹信息 If result = "" Then '判断文件夹是否存在 MkDir ("F:\123\1") '如何文件夹不存在，就创建文件夹 Else MsgBox "该文件夹已经存在！" '如果文件夹存在，就不用再创建了。 End If 以上代码，使用到MkDir函数，用来建立文件夹，下面我们对该函数作个简单介绍。 二、MkDir函数的介绍 MkDir(Path)：该函数只有一个参数Path，是必须填写的参数；代表文件夹所在的路径或位置。 注意：Path 可能包含驱动器。如果未指定驱动器，则 MkDir 在当前驱动器上创建新的目录。 三、实例 通过上述代码的说明，下面，我们稍微对代码进行改良，就可以得到本例的效果了，即根据工作表名称自动建立对应的文件夹。 首先，在excel中使用控件工具箱，拖出一个按钮，如下图！
然后，鼠标直接双击那按钮，即可进入按钮的代码编写模式，如下图！
上述的代码中，被选中部分就是我们所要输入的代码，没有选中的第一行和最后一行，是固定格式，不用修改。 上述代码提到的“F:\123\“指的是根目录，我们所根据工作表名称，自动创建文件夹，就保存在这个文件夹里面了。 好了，都做好了，就退出Excel并保存，然后重新打开这个XLS文件，最后，双击那按钮，就可以得到结果了，如下图！
温馨提示：答案为网友推荐，仅供参考
