0

我能够在没有任何错误的情况下运行此代码,但是给出的目标略有不同。

它将根据下面链接中的代码添加到Do Events部分下方。

遍历给定文件夹中的所有excel文件

代码目标:

  • 浏览文件夹中的工作簿文件夹,日期参考当前工作簿的“H2”范围,并将它们保存在与浏览文件相同的文件夹中

现在的情况:

  • 能够保存带有日期的文件,但它会保存在其较早的文件夹中

例如文件存在于

C:\用户\泰勒\桌面\测试

带有日期的新文件将保存在

C:\用户\泰勒\桌面

代码

Dim CellDate As String, fName As String

    fName = Left(ActiveWorkbook.Name, (InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1))



    CellDate = ThisWorkbook.Worksheets("Sheet1").Range("H2")

    CellDate = Format(Date, "YYYYMMDD")


    ActiveWorkbook.SaveAs fName & "-" & CellDate, FileFormat:=xlOpenXMLWorkbookMacroEnabled

感谢帮助(:

4

1 回答 1

1

你有没有尝试过

ActiveWorkbook.SaveAs myPath & fName & "-" & CellDate, FileFormat:=xlOpenXMLWorkbookMacroEnabled

如果您的文件夹选择代码与链接一致,则其值将存储在 myPath.xml 中。

假设“C:\Users\Tyler\Desktop\Test”是选择的文件夹。

笔记:

链接中的相关代码....

'Retrieve Target Folder Path From User
  Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

    With FldrPicker
      .Title = "Select A Target Folder"
      .AllowMultiSelect = False
        If .Show <> -1 Then GoTo NextCode
        myPath = .SelectedItems(1) & "\"
    End With
于 2018-04-13T07:00:47.093 回答