VBA Loop through Excel rows for Database Import

vba-loop-through-excel-rows-for-database-import.vba

Public Function ImportData(sheet As String)
   
    Dim i As Integer
   
    Dim strSQL As String
    Dim totalRows As Long
   
    totalRows = HowManyRows(sheet)
    strInsertHeader = GetInsertHeader()
        
    Dim strIndividualRows As String
    strIndividualRows = ""
   
    For i = 2 To totalRows
   
        strIndividualRows = strIndividualRows & getSQLForSingleRow(sheet, i)
       
       ' add comma at the end no matter what
       ' will remove after if needed
       strIndividualRows = strIndividualRows & ","
       
    Next
   
    strSQL = strInsertHeader & " VALUES " & strIndividualRows
    strSQL = RemoveLastCharacterIfComma(strSQL)
    
    Call RunSQL(strDbConn, strSQL)
        
    Range("A1").Select
    MsgBox "Complete"
 
End Function