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
