我能够在没有任何错误的情况下运行此代码,但是给出的目标略有不同。
它将根据下面链接中的代码添加到Do Events部分下方。
代码目标:
- 浏览文件夹中的工作簿文件夹,日期参考当前工作簿的“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
感谢帮助(: