Question

我已经设置了一张要复制1页的工作表，然后使用该数据创建一个新工作簿并将其另存为新文件名。

我保存文件的代码是 -

    NewName = "HotterPGPalletDespatch - REF " & Format$(Date, "MMDDYYYY") _
     & "-" & Format(CStr(Now),     "hhmm") & ""

       ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\New\" & NewName, FileFormat _
        :=51, CreateBackup:=False

我想在Word Ref之后取日期/时间并将其插入Cell G2。

我怎么能这样做？（我不希望它再次获取当前日期/时间，因为这可能会改变所以我需要它来从文件路径中获取特定的数字。

Answer 1

假设工作簿已以适当的名称格式保存，请在G2中使用此公式。

=TRIM(LEFT(SUBSTITUTE(MID(CELL("filename"), FIND("REF ",CELL("filename"))+4, 99), ".", REPT(" ", 99)), 99))

获取文件名的一部分并插入Cell

1 个答案: