Question

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

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

我的问题是我找不到创建此文件夹C：\ Stationery Orders \的方法，如果该文件夹不存在，并且还在用户的桌面上粘贴了一个快捷方式。这甚至可能吗？任何想法？

亲切的问候

Answer 1

在执行SaveAs之前先检查一下。像，

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

然后执行SaveAs

Answer 2

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

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

VBA搜索文件夹或创建它

2 个答案: