Fiz um código para importar os dados da planilha X para o mysql, porém recebo um erro constante que no qual me impossibilita isso.
'Sub' ou 'Function' não definida.
Código: Selecionar todos
Public Sub ImportarDBMysql()
Dim X As Long
Dim W As Worksheet
Dim comando_SQL As String
'W.Select
On Error GoTo ErrHandler
Call Conectar_BD
Set Consulta = New ADODB.Recordset
Set W = Sheets("Relatorio cadastro torre")
X = 1
Do While W.Cells(X, 1) <> ""
With W
For col = 1 To 21
comando_SQL = ""
comando_SQL = "INSERT INTO cad_torre(TORRE_N,PROGRESSIVA,COTA_PC,DEFLEXAO,VERTICE,VAO,TIPO,ALTURA,CORD_X,CORD_Y,EXTENSAO,EXT_PA,EXT_PB,EXT_PC,EXT_PD,TIPO_FUND_MC,TIPO_FUND_A,TIPO_FUND_B,TIPO_FUND_C,TIPO_FUND_D,OBS) " & _
"VALUES ('" & esc(Trim(W.Cells(X, col).Value)) & "')"
Conexao.Execute comando_SQL
Next col
End With
X = X + 1
Loop
MsgBox "Dados inseridos com sucesso " & Trim(Str(X - 2)) & " Dados", _
vbInformation, "Verificação"
ErrHandler:
If Err.Description <> "" And Err.Source <> "" Then
MsgBox Err.Description, vbCritical, Err.Source
End If
End Sub
