VBA Import Data from Excel - Main sub

import-vba-main.vba

Public Sub autoImport()

    ' First delete existing data
    Dim strSQL As String
    strSQL = "DELETE FROM myTableName" ' Could potentially TRUNCATE instead
    Call RunSQL(strDbConn, strSQL)
    
    
    ' Import the new data
    Call ImportData("tabWithData") ' Be sure to pass in the name of your worksheet, or get it dynamically
        
        
    ' Indicate when the data was updated; I'm using a "utility" table
    Dim theDate As String
    theDate = InputBox("Enter date that the data for", "Data as of", Format(Now, "m/d/yyyy"))
    strSQL = "UPDATE Utility SET value = '" & ReplaceSingleQuote(theDate) & "' WHERE description IN ('Last Updated,'Last Updated')"
    Call RunSQL(strDbConn, strSQL)
        
    Range("A1").Select
    
    MsgBox "Data has been imported"
 
End Sub