Excel 如何在VBA上的返回文本字符串中插入日期

我们每天对一组文件使用格式化程序。文件命名约定过去是“XX000”。现在，这些文件的名称如下：“XX000-yyy-MM-DD”。我希望能够在VBA代码中添加一个日期函数，这样用户仍然可以在输入框中输入基本的XX000名称，并且当前日期将通过宏添加到文件名中（格式正确）。这将节省用户每天通过此格式化程序运行的20多个文件的日期输入时间。（这是非常多余的！）

我添加了LDate变量，然后使用语法尝试将日期添加到返回值文本中

Sub Quick_Format()
'
' Quick_Format Macro
'

Dim LDate As String

LDate = Format(Date, "yyyy-mm-dd")

'

    Text = InputBox("Enter Item Code")

Range("A1") = Text

    Windows(("" & Text) & "-")("" & LDate)("" & ".xls").Activate
    Sheets("Home").Select

---

这不会发生的！我得到一个错误，当我单击debug时，上面的Windows行是红色的。我知道我犯了一个语法错误，但我所有纠正它的尝试都失败了。

我接受了Mooseman的想法，并对它进行了更多的尝试。这成功了

将此行更改为：

Windows("" & Text & "-" & "" & LDate & ".xls").Activate

---

感谢您的帮助和寻求帮助的平台！：）

我接受了穆塞曼的想法，并对它进行了更多的研究。这成功了

将此行更改为：

Windows("" & Text & "-" & "" & LDate & ".xls").Activate

---

感谢您的帮助和寻求帮助的平台！：）

似乎您可能需要（“&LDate”）两侧的一个。为什么要在windows索引中使用项目代码？嗨，Mooseman，我非常感谢您的反馈，但我不完全理解。您认为我需要在哪里添加&标志？索引的项目代码只是一个文本框，每个人在其中输入他们的项目代码XX000格式，然后提取当天该项目代码的所有数据。如有任何关于您评论的其他详细信息，我们将不胜感激！似乎您可能需要（“&LDate”）两侧的一个。为什么要在windows索引中使用项目代码？嗨，Mooseman，我非常感谢您的反馈，但我不完全理解。您认为我需要在哪里添加&标志？索引的项目代码只是一个文本框，每个人在其中输入他们的项目代码XX000格式，然后提取当天该项目代码的所有数据。如有任何关于您评论的其他详细信息，我们将不胜感激！