Question

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

检查文件夹是否存在C：\ Users \\ My Documents \ 提取文件 \
如果该文件夹不存在，则创建该文件夹
将文件保存到此文件夹中，当前日期和时间（现在）位于文件名中，扩展名为.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

试试这段代码：

using(JsConfig.With(new Config { ... }) {
    ... operations with overridden JsConfig settings
}

我们无法在文件名中使用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

Answer 2

尝试一下：

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

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

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

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

2 个答案: