在VBA

Question

这可能听起来很简单，但我找不到出路。 我试图创建一个或多或少动态的json，我需要将对象的内容转换为双引号之间的字符串。像这样的东西： """ + object + """得出以下结果"object"，预期结果为"content of object"。

这是我的代码，可能会更清楚，关于它的内容。

Dim jsTest As String
jsTest = """ + CStr(Msg.Subject) + """ + """ + CStr(Msg.Body) + """

Msg.Subject和Msg.Body是来自电子邮件的对象。我可以这样做（用单引号）：

Dim smry, descrp, jsTest As String
smry = """summary"""
descrp = """description"""
jsTest = "{" + smry + ":" + "'" + CStr(Msg.Subject) + "'" + "," + descrp + ":" + "'" + CStr(Msg.Body) + "'" + "}"

然后我将对象的内容作为带有单引号的String，我不能像我这样把它放在我的JSON中：

{"summary": 'Release 18.20 Produktion', "description": 'Guten Tag Sie erhalten diese Terminanfrage'}

如何获得结果（注意双引号）：

{"summary": "Release 18.20 Produktion", "description": "Guten Tag Sie erhalten diese Terminanfrage"}

Answer 1

如果你替换它：

jsTest = "{" + smry + ":" + "'" + CStr(Msg.Subject) + "'"

与

jsTest = "{" + smry + ":" + """" + CStr(Msg.Subject) + """"

依此类推，你会得到你的报价。