Question

我有一张备忘单，用于在逗号分隔列表中输入订单列表。我被要求复制它，但我没有简单地从列表中返回值，而是被要求将它们放在引号中以供同事进行SQL查询。所以列表如下：一个乙 C 应该以＆＃34; A＆＃34;，＆＃34; B＆＃34;，＆＃34; C＆＃34;返回。以下是我创建CSV列表的代码。

Function csvRange(myRange As Range)
Dim csvRangeOutput
Dim entry As Variant
For Each entry In myRange
    If Not IsEmpty(entry.Value) Then
        csvRangeOutput = csvRangeOutput & entry.Value & ","
    End If
Next
csvRange = Left(csvRangeOutput, Len(csvRangeOutput) - 1)
End Function

我对VBA完全不熟悉，但我尝试使用代码来自己解决问题。添加更多引号，使用波形符号不起作用。这基本上耗尽了我的工具包。谢谢你的帮助。

Answer 1

您可以使用chr（34）作为双引号。或者你可以做一个双引号（＆＃34;＆＃34;），当在VBA字符串中完成时，它被解释为一个双引号：

csvRangeOutput = csvRangeOutput & chr(34) & entry.Value & chr(34) & ","

或

csvRangeOutput = csvRangeOutput & """" & entry.Value & """" & ","

Answer 2

...试

If Not IsEmpty(entry.Value) Then
    csvRangeOutput = csvRangeOutput & """" & entry.Value & """" & ","
End If

带有SQL查询的引号的分隔列表

2 个答案: