SQLクエリーの引用符付き区切りリスト

Question

私はコンマ区切りリストで注文のリストをめくるために私が使用するチートシートを持っています。私はそれを複製するように求められましたが、単にリストから値を返すのではなく、SQL照会の同僚を引用符で囲むように求めました。したがって、次のようなリスト： A B C "A"、 "B"、 "C"として返されます。以下は、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

試してみてください...

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

Answer 2

chr（34）を二重引用符として使用できます。別の方法としては、VBA文字列で行われたときに、単一の二重引用符として解釈され、二重、二重引用符（「」）を行うことができます。

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

または

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