ник: snipe
связать или стянуть инфу?
если стянуть то можно через рекордсет
Set objConnection = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";" & _
"Extended Properties=""Excel 12.0;HDR=Yes"";"
|
& ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & - это полный путь к файлу( писано для Excel)
HDR=Yes это с именами столбцов