экспорт из excel в mysql

Ответ от Голова Робота[гуру]
phpMyAdmin - это веб-приложение для работы с MySQL. Обмен данными у тебя с MySQL, а не с phpMyAdmin.
Sub ExportTest2()
Dim R As Integer
Dim Val As Variant
Dim Params As Variant
Dim Conn As ADODB.Connection
Dim cmd As ADODB.Command
Set Conn = New ADODB.Connection
Conn.Open "Data Source='MariaDB Test MySQL/ANSI';" ' Имя ODBC-источника данных
' Разрядность источника должна соответствовать разрядности Excel
If Conn.State = adStateOpen Then
'MsgBox "Подключено"
Else
MsgBox "Нет связи, проверьте подключение"
Exit Sub
End If
Conn.BeginTrans
Set cmd = New ADODB.Command
cmd.ActiveConnection = Conn
cmd.CommandType = adCmdText
cmd.CommandText = "INSERT INTO test1 (name, v1) VALUE (?, ?)"
cmd.Prepared = True
Params = Array(0, 0) ' Массив для параметров запроса
R = 2 ' Начальный номер строки
Do
Val = ActiveSheet.Cells(R, 5) ' Будем выводить данные из 5 и 6 столбца
If Val = "" Then ' Выводим данные, пока они есть.
Exit Do ' Конец цикла, если пустая ячейка
End If
Params(0) = Val
Params(1) = ActiveSheet.Cells(R, 6)
R = R + 1
cmd.Execute, Params
' или так, без использования массива Params: cmd.Execute, Array(Val, ActiveSheet.Cells(R, 6))
Loop
Conn.CommitTrans
Conn.Close
End Sub
Голова Робота
(10748)
Вам нужны минимальные знания SQL. БД можно указать в запросе, но я не указываю, поскольку БД выбрана в настройках ODBC подключения. Там же указаны имя пользователя и пароль.
> Почему будем выводить данные из 5 и 6 столбца?
Просто так случилось, что я разместил данные в этих столбцах начиная со второй строки.
Можно перечислить 11 столбцов, можно сделать цикл копирования данных из Excel в массив. Может есть другие способы - я совсем не специалист по VBA.