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

Question

我正在尝试在我的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查看包含当前日期的名为“日期”的单元格，对字符串进行格式设置，使其包含“ appointmentArrivalTime”和当前日期，在这种情况下为“ CWDate”，然后如下添加引号。

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

目前，我的代码仅给我以下内容：

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

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

谢谢。

Answer 1

这对我有用：

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

我的消息框输出：

希望有帮助！