在字符串的特定区域内添加引号答案

【问题标题】：Add Quotation Marks Within Specific Region of a String在字符串的特定区域内添加引号
【发布时间】：2018-08-25 10:30:04
【问题描述】：

我正在尝试在我的 VBA 代码中格式化一个字符串，该字符串将在所述字符串的特定区域内添加引号，在这种情况下只是日期，因此另一个代码块可以循环数据或执行 vlookup与关键字匹配的特定字符串。下面我举个例子。

变量字符串：约会到达时间：“2018-08-26 01:00:00.000000” 关键字/字符串：“2018-08-24 01:00:00.000000”

日期会根据当前日期不断变化，所以上面只是一个例子。

示例代码：

Dim Main As Worksheet
    Set Main = Worksheets("Main")
Dim ISA_List As Worksheet
    Set ISA_List = Worksheets("ISA_List")
Dim ISA_Results As Worksheet
    Set ISA_Results = Worksheets("ISA_Results")
Dim Oculus_Raw As Worksheet
    Set Oculus_Raw = Worksheets("Oculus_Raw")
Dim ContainWord As String
Dim CWDate As String

CWDate = Worksheets("Main").Range("Date")

ContainWord = "appointmentArrivalTime:" & Format(CWDate, "YYYY-MM-DD")

我需要 VBA/Excel 查看包含当前日期的名为“Date”的单元格，格式化字符串，使其包含“appointmentArrivalTime”和当前日期，在本例中为“CWDate”，然后如下加引号。

appointmentArrivalTime:"2018-08-24"

目前我的代码只给了我以下内容：

“约会到达时间：2018-08-24”

希望我的要求是有道理的。任何帮助表示赞赏。

谢谢。

【问题讨论】：

标签： vba excel

【解决方案1】：

这对我有用：

MsgBox "appointmentArrivalTime:" & Chr(34) & Format(CDate(CWDate), "YYYY-MM-DD") & Chr(34)

我的消息框输出：

希望对你有帮助！

【讨论】：

我的帖子可能有点模棱两可，如果是，我很抱歉，但我不需要消息框；我需要一个可变字符串。但是，减去消息框，如果我将它设置为另一个变量，它的其余部分就可以工作。所以谢谢你！
@JosephBay 我知道你不需要消息框；我使用消息框对其进行了测试，因为在我看来，这是最快的方式来解决字符串问题并立即获得答案。
啊，好吧。如果我冒犯了，请道歉。我不打算这样做。
你没有；冒犯我几乎是不可能的。