Добавить содержимое ячейки в VBA Query

Question

Я хотел бы обновить свой код, включив в него содержимое ячейки S3. Прямо сейчас ячейка имеет значение «Test, Testing, Tested», и соответствующая часть запроса выглядит так:

SELECT * FROM dbo.Total WHERE ID = " & TextBox1.Text & " And Source IN (What do I put in here?)

Ваша помощь очень ценится

Answer 1

Вам нужно будет проанализировать, обрезать, экранировать и заключить в кавычки каждое из 3 значений в ячейке, чтобы получить:

SELECT * FROM dbo.Total WHERE ID = 'bob''s' And Source IN ('Test','Testing','Tested')

Использование

Dim someSQL As String
someSQL = "SELECT * FROM dbo.Total WHERE ID = '" & escape(TextBox1.Text) & "' And Source IN (" & splitCell("s3") & ")"

Function splitCell(addr As String) As String
  Dim v() As String
  Dim i As Long
  v = Split(Range(addr).Value, ",")
  For i = 0 To UBound(v)
      v(i) = "'" & escape(trim$(v(i))) & "'"
  Next
  splitCell = Join(v, ",")
  If (Len(splitCell) = 0) Then splitCell = "''"
End Function

Function escape(sIn As String) As String
  //you should use a prepared statement instead
  escape = Replace$(sIn, "'", "''")
End Function

Answer 2

Как насчет этого?

Dim someSQL As String
someSQL = "SELECT * FROM dbo.Total WHERE ID = " & TextBox1.Text & _
          " And Source IN (" & Sheet1.Cells(3, 19) & ")"

При необходимости замените соответствующее имя листа на «Лист1».