在我的文档中创建一个文件夹并将工作簿保存到该文件夹​​中

Question

我创建了一个 Excel 加载项，用于包含导入数据的工作簿。我需要添加将执行以下操作的代码：

• 检查文件夹是否存在 C:\Users\\My Documents\ Extract Files \
• 如果文件夹不存在，则创建该文件夹
• 将文件以当前日期和时间（现在）保存到此文件夹中，文件名以 .xlsx 为扩展名。

示例：C:\Users\jdoe\My Documents\Extract Files\Extract - 01-15-2016 15:15.xlsx

我找到了这个，但需要知道如何将我的上述条件纳入此代码：

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook

如果 VBA 不存在，我对 VBA 的了解不足以创建一个文件夹（如果您可以使用 VBA 执行此操作）。我已经看过了，但找不到任何有用的东西。在这里寻求一些指导。谢谢。

Answer 1

试试这个代码：

    Sub Ex()
If InStr(LCase$(ActiveWorkbook.name), "extract") > 0 Then
    Exit Sub
Else
     Dim MyDir As String, fn As String
     MyDir = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Extract Files" ' change this to valid path
     If Len(Dir(MyDir, vbDirectory)) = 0 Then MkDir MyDir
     fn = MyDir & "\Extract - " & Format(Now, "mm-dd-yyyy hh_mm")
     ActiveWorkbook.SaveAs Filename:=fn, FileFormat:=xlOpenXMLWorkbook
End If
End Sub

我们不能:在文件名中使用