Excel 如何从文件名中删除时间戳？

嗨，我正在写一个脚本来重命名生成的文件并将其移动到一个文件夹中。生成文件的文件名末尾附加了时间戳

例如：Apache34-22-09.bak Tomcat44-26-06.bak

我想从文件名中删除时间戳，如下所示

例如：Apache.bak Tomcat.bak

---

请帮帮我。提前感谢。

您可以使用以下代码段：

左（文件名）（Len（文件名）-12）和“.bak”

---

应该是这样的，试试看。

您可以使用以下代码段：

左（文件名）（Len（文件名）-12）和“.bak”

应该是这样的，试试看

对于以下文件中的每个文件，sName=Left（fil.Name，（Len（fil.Name）-8））fil.Name=sName Next–2分钟前的Arunpandiarajen

这也适用于像

.xlsx

这样的扩展。下面的代码没有硬编码扩展

Sub Sample()
    Dim fileName As String
    Dim Fname As String
    Dim NewFname  as String

    fileName = "Apache34-22-09.bak"

    '~~> Get File name without the extension
    Fname = Left(fileName, (InStrRev(fileName, ".", -1, vbTextCompare) - 1))

    '~~> Create the new file name
    NewFname = Left(Fname, Len(Fname) - 8) & Replace(fileName, Fname, "")

    Debug.Print NewFname
End Sub

对于以下文件中的每个文件，sName=Left（fil.Name，（Len（fil.Name）-8））fil.Name=sName Next–2分钟前的Arunpandiarajen

这也适用于像

.xlsx

这样的扩展。下面的代码没有硬编码扩展

Sub Sample()
    Dim fileName As String
    Dim Fname As String
    Dim NewFname  as String

    fileName = "Apache34-22-09.bak"

    '~~> Get File name without the extension
    Fname = Left(fileName, (InStrRev(fileName, ".", -1, vbTextCompare) - 1))

    '~~> Create the new file name
    NewFname = Left(Fname, Len(Fname) - 8) & Replace(fileName, Fname, "")

    Debug.Print NewFname
End Sub

---

---

我想删除文件名中的时间戳，如下所示。

那么是什么阻止了你？@SiddharthRout，以Apache34-22-09.bak为例。我想从文件名中删除'34-22-09'。请告诉我们您尝试了什么？询问代码的问题必须表明对正在解决的问题的最低理解。包括尝试的解决方案、为什么它们不起作用以及预期的结果。另请参见：@SiddharthRout这是我尝试过的。

我想从文件名中删除时间戳，如下所示。

那么，是什么阻止了你？@SiddharthRout，以Apache34-22-09.bak为例。我想从文件名中删除'34-22-09'。请告诉我们您尝试了什么？询问代码的问题必须表明对正在解决的问题的最低理解。包括尝试的解决方案、为什么它们不起作用以及预期的结果。另请参见：@SiddharthRout这是我尝试过的。基本上，它从字符串左侧返回指定数量的字符，直到日期开始。然后，您可以使用此返回的字符串值重命名文件。发布前是否对其进行了测试？：）当然，不，我只是尝试给出一种方法来实现这一点，但我确信它是正确的。

但我确信它是正确的。

您可能想再次检查它：）基本上，它从字符串左侧返回指定数量的字符，直到日期开始。然后，您可以使用此返回的字符串值重命名该文件。过帐前是否对其进行了测试？：）当然，没有，我只是试着给出一种方法来解决这个问题，但我确信它是正确的。

但我确信它是正确的。

你可能想再检查一遍：）@Arunpandiyarajen:我在34分钟前就准备好了：）如果你能自己努力解决它，我当时会回答的。作为你将来的参考，在你的问题中总是包括你尝试了什么以及你被困在哪里：）当然，悉达思。我会那样做的。事实上，我对vbscript非常陌生。我几乎达到了我的要求。我一个人陷在这个时间戳里了。我会把我的全部代码和要求寄给你。请提供您的邮件id。@Arunpandiyarajen:对不起，我不会在电子邮件上帮助别人，如果我帮助别人，那么我会向他们收取：D如果你被卡住，只需在stackoverflow中用您尝试过的代码在这里发布一个问题，并指出您被卡住的部分，肯定有人会帮助您：）@SiddharthRout如果文件名是动态的，并且仍然保留日期，该怎么办。如何删除它？假设它可以在文件名的开头或结尾包含数据？例如ddmmyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy。txt@arunpandiyarajhen：我在34分钟前就准备好了代码：）如果你愿意自己努力解决它，我会在那时回答它。作为你将来的参考，在你的问题中总是包括你尝试了什么以及你被困在哪里：）当然，悉达思。我会那样做的。事实上，我对vbscript非常陌生。我几乎达到了我的要求。我一个人陷在这个时间戳里了。我会把我的全部代码和要求寄给你。请提供您的邮件id。@Arunpandiyarajen:对不起，我不会在电子邮件上帮助别人，如果我帮助别人，那么我会向他们收取：D如果你被卡住，只需在stackoverflow中用您尝试过的代码在这里发布一个问题，并指出您被卡住的部分，肯定有人会帮助您：）@SiddharthRout如果文件名是动态的，并且仍然保留日期，该怎么办。如何删除它？假设它可以在文件名的开头或结尾包含数据？例如ddmmyyyyyFileName.txt文件名ddmmyyyyy.txt