Trasformare un foglio Excel in query SQL

Buonasera, è da tanto che non scrivo........

stasera mi sono imbattuto in un foglio excel con soli 70000 record ma molto "sporco", al punto da invalidare il tool Excel To Mysql ( credo si chiami così)


in soldoni ho scritto uno script vba, configurabile, per creare, partendo dal "benedetto" foglio o sheet excel , tutte le query di insert necessare per caricarlo sul "beneamato" DBMS, in questo caso Mysql.





Buon Lavoro :)



PS1: in alto le variabili da configurare,.... i nomi spero siano intuitivi.
PS2: per utilizzarlo, abilitare il tab sviluppo e inserire un pulsante activex,... in posizione 1,1... alla fine dello script capirete perchè
PS3: anche gli interi vengono wrappati dagli apicetti..... miglioratelo :)

ciao


Private Sub CommandButton1_Click()
 
    Dim NOME_TABELLA As String
    NOME_TABELLA = "codifica"
    Dim COLONNAFINALE As Integer
    COLONNAFINALE = 10
    Dim PRIMARIGACONDATI As Long
    PRIMARIGACONDATI = 4
    Dim RIGA_INTESTAZIONI As Integer
    RIGA_INTESTAZIONI = 3
 
    Dim c As Long
    Dim intestazione As String
 
    intestazione = "insert into " & NOME_TABELLA & " ("
    c = 1
 
 
 
 
    While (Cells(RIGA_INTESTAZIONI, c) <> "")
     
        If (intestazione <> "insert into codifica (") And (c < (COLONNAFINALE + 1)) Then
            intestazione = intestazione & ","
        End If
        intestazione = intestazione & CStr(Cells(RIGA_INTESTAZIONI, c))
        c = c + 1
    Wend
    intestazione = intestazione & ") values ("
 
    Dim storei As String
    storei = intestazione
    Dim a As String
    a = "'"
    Dim b As String
    b = ","
 
 
 
    c = PRIMARIGACONDATI
 
    While (Cells(c, 1) <> "")
     
        Dim k As Integer
        k = 1
        Dim query As String
        query = storei
        While (k < (COLONNAFINALE + 1))
         
            If (query <> storei) Then
                query = query & b
            End If
         
            If (Cells(1, k) = "date") Then
                If (Cells(c, k) <> "") Then
                    query = query & a
                    query = query & Mid(Cells(c, k), 7, 4) & "-" & Mid(Cells(c, k), 4, 2) & "-" & Mid(Cells(c, k), 1, 2)
                    query = query & a
                   
                Else
                    query = query & "null"
                End If
           
            Else
                If (Cells(c, k) <> "") Then
                    query = query & a
                    query = query & Replace(CStr(Cells(c, k)), "'", "''")
                    query = query & a
                   
                Else
                    query = query & a & a
                End If
           
           
            End If
         
         
         
         
           
         
             
           
                 
               
            k = k + 1
        Wend
        query = query & ");"
     
        Cells(c, (COLONNAFINALE + 1)) = query
        DoEvents
     
        c = c + 1
     
        'posizione contatore
        Cells(1, 2) = c
    Wend
 
    MsgBox "fine"
 
 
 
End Sub