title: Functions to convert SQL into VBA strings
body: <p>I construct hundreds of SQL Queries in an excel sheet and each one is placed in a cell of 1 column. What I am looking to do is run each of these SQL statements from excel. </p>
  
  <p>Just wondering if anyone knows a way to convert all my SQL into VBA Strings to that I can loop through all rows to run each query.</p>
  
  <p>I found this which is what I want to do but is there a way I can alter the code so it can read off excel cells rather than a Form?</p>
  
  <p><a href="http://allenbrowne.com/ser-71.html" rel="nofollow">http://allenbrowne.com/ser-71.html</a></p>
  
  <p>Thanks</p>
  
  <p>EDIT: Here is a sample SQL that I am trying to convert</p>
  
  <pre><code>SELECT 
  TT.TEST_TABLE_ID,
  TT.TEST_TABLE_NO,
  TT.MEMBERSHIP_NUMBER,
  TT.TEST_TABLE_TYPE,
  from TEST_TABLE TT
  </code></pre>
  
  <p>I think because each Select is in its own line it causes problems when it converts.</p>
  
  <p>EDIT #2: Here is my code that executes SQL</p>
  
  <pre><code>Sub GetData()
  Dim Conn As New ADODB.Connection
  Dim RS As New ADODB.Recordset
  Dim cmd As New ADODB.Command
  Dim sqlText As String
  Dim Row As Long
  Dim Findex As Long
  Dim Data As Worksheet
  Dim X As Long
      Set Data = Sheets("Results")
      Data.Select
      Cells.ClearContents
      Conn.Open "PROVIDER=ORAOLEDB.ORACLE;DATA SOURCE=ORCL;USER ID=user;PASSWORD=password"
      cmd.ActiveConnection = Conn
      cmd.CommandType = adCmdText
      'sqlText = How to reference Valid SQL cells
      cmd.CommandText = sqlText
      Set RS = cmd.Execute
      For X = 1 To RS.Fields.Count
          Data.Cells(1, X) = RS.Fields(X - 1).Name
      Next
  
      If RS.RecordCount &lt; Rows.Count Then
          Data.Range("A2").CopyFromRecordset RS
      Else
          Do While Not RS.EOF
             Row = Row + 1
             For Findex = 0 To RS.Fields.Count - 1
               If Row &gt;= Rows.Count - 50 Then
                  Exit For
               End If
               Data.Cells(Row + 1, Findex + 1) = RS.Fields(Findex).Value
             Next Findex
             RS.MoveNext
          Loop
      End If
      Cells.EntireColumn.AutoFit
  End Sub
  </code></pre>
  
  <p>in the SQL text part I want to be able to reference my column of SQL statements that I have. I thought I needed to convert it but you guys are right that if referencing it I can Just use your code Brad. </p>
  
  <p>I tried to incorporate your code brad where my  'sqlText = How to reference Valid SQL cells is but had no success</p>