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

Question

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

检查文件夹是否存在 C:\Users\\My Documents\ 解压文件\
文件夹不存在则创建
将文件保存到此文件夹中，文件名中包含当前日期和时间（Now），扩展名为 .xlsx。

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

我已经找到了这个，但需要知道如何将我的上述标准放入此代码中：

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

我对 VBA 的了解还不够，无法创建一个不存在的文件夹（如果您可以使用 VBA 做到这一点）。我看过但找不到任何有用的东西。在这里寻求一些指导。谢谢

Answer 1

试一试：

Sub dural()
   Dim folder As String, myFileName As String
   folder = "C:\TestFolder\Extract Files"

   On Error Resume Next
      MkDir folder
   On Error GoTo 0

   myFileName = folder & "\" & "Extract - " & Format(Now, "mm-dd-yyyy hh mm") & ".xlsx"
   ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook
End Sub

更改文件夹名称后......如果收到警告，请单击 是 按钮

如果文件夹不存在，宏将创建该文件夹。

Answer 2

试试这个代码：

    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

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

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

Create a folder in My Documents and save a workbook to that folder

excel

vba

excel-2007

windows-7