Public Sub СинхронизацияТаблицSql(ИмяТаблицы$, Optional Параметры$)
'ПРОЦЕДУРА СИНХРОНИЗИРУЕТ таблицы локальной MySql базы локального сервера с удаленной базой на хостинге
 'ИмяТаблицы = Может содержать имя одной таблицы или любого кол-ва таблиц, разделенных "|"
 'Путь для сохранения/загрузки txt-файла должен быть в "двуслешевом" формате "E:\\LocalServer\\tmp\\"
  Dim МассивТаблиц, Путь$
  
 'Проверки и инициализация переменных
  If ИмяТаблицы = "" Then MsgBox "Укажите имена таблиц Sql к синхронизации!", vbCritical, "Ошибка 'СинхронизацияТаблицSql'": Exit Sub
  МассивТаблиц = Split(ИмяТаблицы, "|")   'Загружаем имена таблиц в массив
  
 'СОХРАНЯЕМ ТАБЛИЦЫ ЛОКАЛЬНОЙ БАЗЫ
  Call MySqlConnect(1)                                    'Подключение к локальному серверу MySQL
  For I = 0 To UBound(МассивТаблиц)                       'Перебираем все таблицы локальной базы
      Путь = [ПутьСинхроMySql] & МассивТаблиц(I) & ".txt" 'Определяем полный путь к файлу с данными
      If Dir(Путь) <> "" Then Kill Путь
      Conn.Execute "SELECT * INTO OUTFILE '" & Путь & "' FROM " & МассивТаблиц(I)
  Next I: Set Conn = Nothing
  
 'ЗАГРУЖАЕМ ТАБЛИЦЫ В УДАЛЕННУЮ БАЗУ
  Call MySqlConnect(2)                                    'Подключение к удаленному серверу MySQL
  For I = 0 To UBound(МассивТаблиц)                       'Перебираем все таблицы удаленной базы
      Путь = [ПутьСинхроMySql] & МассивТаблиц(I) & ".txt" 'Определяем полный путь к файлу с данными
      If Dir(Путь) <> "" Then
         Conn.Execute "DELETE FROM " & МассивТаблиц(I)    'Очищаем таблицу от старых записей
         Conn.Execute "LOAD DATA LOCAL INFILE '" & Путь & "' INTO TABLE " & МассивТаблиц(I)
      End If
  Next I: Set Conn = Nothing
End Sub