VBA Import data single row

vba-import-single-row-from-spreadsheet.vba

Public Function getSQLForSingleRow(sheet As String, rowNumber As Long) As String
  
    ' Be sure to update any formatting; ex date or number
    fieldWithText = ReplaceSingleQuote(Worksheets(sheet).Range("A" & rowNumber).FormulaR1C1)
    fieldWithDate = Format(Worksheets(sheet).Range("B" & rowNumber).FormulaR1C1, "mm/dd/yyyy")
    fieldWithNumbers = CDbl(Nz(Worksheets(sheet).Range("C" & rowNumber).FormulaR1C1))
  
    
    Dim strSQL As String
 
    strSQL = " ("
   
    strSQL = strSQL & " '" & fieldWithText & "',"
    strSQL = strSQL & " '" & fieldWithDate & "',"
    strSQL = strSQL & " " & fieldWithNumbers & "" ' no quotes because it's numeric
   
    strSQL = strSQL & " ) "
 
    getSQLForSingleRow = strSQL
 
End Function