VBAsearch文件夹或创build它

下午好，我在电子表格中使用以下代码将文件保存在特定格式的特定文件夹中：

Const csPath As String = "C:\Stationery Orders\" MyName = ActiveWorkbook.Name ActiveWorkbook.SaveAs Filename:=csPath & Sheets("Stationery").Cells(1, 1) & Format(CStr(Now), "ddmmyyyy_hhmm") & " " & MyName & ".xlsm", FileFormat:=52 

我的问题是，我无法find一种方法来创build此文件夹C：\ Stationery Orders \如果该文件夹不存在，并粘贴在用户的桌面上的快捷方式。 这甚至可能吗？ 有任何想法吗？

亲切的问候

Answer 1

在执行SaveAs之前进行检查。 就像是，

 If Dir(csPath, vbDirectory) = "" Then MkDir csPath 

然后执行SaveAs

Answer 2

尝试这个。 它将检查文件夹是否存在，如果不存在则创build它。

 Sub MyCuteSub() Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists("C:\temp\temptemptemp") Then FSO.CreateFolder ("C:\temp\temptemptemp") End If End Sub