i = Range("CustomerName").Row

'Читаем данные из XLS файла
Dim connStr, objConn, getNames
connStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & inputFile & ";Extended Properties=""Excel 12.0 xml;HDR=No;IMEX=2;"";"

Set objConn = CreateObject("ADODB.Connection")
'Open Connection
objConn.open connStr

'Define recordset and SQL query
'тут мы через SQL запрос вытаскиваем данные из ИМЕННЫХ ячеек экселевского файла. Всё это в массив
Set rs = objConn.execute("SELECT * FROM JobNamber,CustomerName,CutTools")

'присваиваем значения переменным из массива
DO WHILE NOT rs.EOF
JobNamber = rs.Fields(0)
CustomerName = rs.Fields(1)
CutTools = rs.Fields(2)
rs.MoveNext
Loop


'Close connection XLS and release objects
objConn.Close
Set rs = Nothing
Set objConn = Nothing

Set rsRow = objConn.execute("SELECT * FROM CustomerName")

Dim s As String
s = "C:\Program Files\Common Files\System\ado\msado15.dll"
ThisWorkbook.VBProject.References.AddFromFile s
    Dim oConn As Object
    Set oConn = New ADODB.Connection
    
    
    oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=pprint;" & _
        "UID=root;" & _
        "PASSWORD=;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;"
 'Ïîëó÷åíèå äàííûõ èç áàçû äàííûõ
        Dim cmd As ADODB.Command 
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 
    Set rec = New ADODB.Recordset
    Set cmd.ActiveConnection = oConn 
    cmd.CommandText = "SELECT * FROM tools  WHERE IDCUT= '" & mstr & "'" 
    cmd.CommandType = adCmdText
    cmd.Execute
    rec.Open cmd

    With rec

        
    Distorsia = Replace(.Fields("HDist").Value, ",", ".")
    Zub = .Fields("zub").Value
        DPrint = Replace(.Fields("HPrint").Value, ",", ".")
    Polimer = Replace(.Fields("HPolimer").Value, ",", ".")

        'äëÿ ïîëèìåðà 1.7
        Polimer17 = Replace(.Fields("Hpolimer_17").Value, ",", ".")
        Distorsia17 = Replace(.Fields("Hdist_17").Value, ",", ".")
    Vsheet = Replace(.Fields("Vsheet").Value, ",", ".")

        HCountItem = .Fields("HCountItem").Value
    VCountItem = .Fields("VCountItem").Value

    End With

Dim s As String
s = "C:\Program Files\Common Files\System\ado\msado15.dll"
ThisWorkbook.VBProject.References.AddFromFile s

 'Получение данных из базы данных
   Dim cmd As ADODB.Command  'переменная в которой будет запрос
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
    Set rec = New ADODB.Recordset
    Dim test As String
    Set cmd.ActiveConnection = oConn 'указываем соединение из примера выше
    cmd.CommandText = "SELECT * FROM tools  WHERE IDCUT= 'A1014'" 'собственно, запрос
    cmd.CommandType = adCmdText
    cmd.Execute
    rec.Open cmd

    With rec
    test = .Fields("HPrint").Value
    test1 = .Fields("Vsheet").Value
    End With

' Собственно, попробовать подключиться к БД:
    Dim oConn As Object
    Set oConn = New ADODB.Connection
    
    oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=pp_cut;" & _
        "UID=root;" & _
        "PASSWORD=;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;"
 'Получение данных из базы данных
    Dim cmd As ADODB.Command  'переменная в которой будет запрос
    Set cmd = New ADODB.Command
    
    Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
    Set rec = New ADODB.Recordset
    Dim test As String
    Set cmd.ActiveConnection = oConn 'указываем соединение
    cmd.CommandText = "SELECT HDist FROM tools  WHERE IDCUT= 'A1014'" 'собственно, запрос
    cmd.CommandType = adCmdText
        
    Set rec.ActiveConnection = oConn
    rec.Open cmd
    
    oConn.Close

Sub SQLQuery_1()
Dim varConn As String
Dim varSQL As String   
    Range("A1").CurrentRegion.ClearContents
   
    varConn = "ODBC;DBQ=\\Server-esko\ae_base\BD_CutTools.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
   
    varSQL = "SELECT HCountItem FROM cut_tools WHERE cut_name='A141'"
   
         With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Cells(1, 1))
         .FieldNames = False
             .CommandText = varSQL
             .Name = "Query-39008"
             .Refresh BackgroundQuery:=False  
         End With
End Sub

Sub SQLQuery_1()
Dim varConn As String
Dim varSQL As String
  
    Range("A1").CurrentRegion.ClearContents
  
    varConn = "ODBC;DBQ=\\Server-esko\ae_base\BD_CutTools.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
  
    varSQL = "SELECT HCountItem FROM cut_tools WHERE cut_name='A141'"
  
         With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Cells(1, 1))
             .CommandText = varSQL
             .Name = "Query-39008"
             .Refresh BackgroundQuery:=False
         End With
  
End Sub

  i = Range("FirstID").Row 'возвращаем номер строки первой ячейки в таблице дизайнов

  With CreateObject("scripting.dictionary")
    .comparemode = vbTextCompare 'не различать регистр
    Do
      .Item(Cells(i, 2) & vbTab & Cells(i, 3)) = Cells(i, 1)
      i = i + 1
    Loop Until Cells(i, 2) = ""  'пока не будет пустой ячейки с именем файла

    For Each x In .keys
      Set FILE = xml.createElement("File")
      FILE.setAttribute "ID", .Item(x)
      FILE.Text = Split(x, vbTab)(0)                          ' название файла
      FILE.setAttribute "Angle", Split(x, vbTab)(1)            ' угол поворота
      objRoot.appendChild FILE
    Next
  End With