如何在VBA上将日期插入返回文本字符串答案

【问题标题】：How to insert date into return Text string on VBA如何在VBA上将日期插入返回文本字符串
【发布时间】：2019-12-20 07:42:44
【问题描述】：

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

我添加了 LDate 变量，然后尝试将日期添加到返回值 Text 的语法。

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

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

【问题讨论】：

看来您可能需要 ("" & LDate) 的 & 两边。你为什么要为你的 windows 索引使用项目代码？
嗨 Mooseman，非常感谢您的反馈，但我并不完全理解。你认为我需要在哪里添加 & 符号？索引的项目代码只是每个人输入他们的项目代码 XX000 格式的文本框，然后提取当天该项目代码的所有数据。任何有关您的 cmets 的其他详细信息将不胜感激！

标签： excel vba date inputbox

【解决方案1】：

我采纳了 Mooseman 的想法，并尝试了更多。这行得通！

将此行改为：

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

感谢您的帮助和寻求帮助的平台！ :)

【讨论】：