Sub Параметры_подкючений()

'Dim oSh As Worksheet

'Dim oPt As PivotTable

'Dim oPf As PivotField

Dim lngRow As Long: lngRow = 2

Dim oCon As WorkbookConnection

iValYear = 2018

Cells.Clear

On Error Resume Next

For Each oCon In ThisWorkbook.Connections 'цикл по gjlrk.xtybzv

Debug.Print lngRow - 1 & " - " & oCon.Name

Cells(lngRow, 1).Value = lngRow - 1

Cells(lngRow, 2).Value = oCon.Name

Cells(lngRow, 3).Value = oCon.ODBCConnection.Connection

Cells(lngRow, 4).Value = oCon.ODBCConnection.CommandText

lngRow = lngRow + 1

Next 'oSh

End Sub

' - : ODBCConnection : : ODBCConnection/ODBCConnection

' : CommandText : "SELECT `Pv_д_г_м$`.Год, `Pv_д_г_м$`.Месяц, `Pv_д_г_м$`.Неделя, `Pv_д_г_м$`.Day, `Pv_д_г_м$`.ТОЧКА, `Pv_д_г_м$`.Группы_деф, `Pv_д_г_м$`.`Nbre veh non STR(defauts)`, `Pv_д_г_м$`.

' : Connection : "ODBC;DBQ=\\Rudh000271\share_\Отчеты\Data_str\5Pv_д_г_м.xlsx;DefaultDir=\\Rudh000271\share_\Отчеты\Data_str;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Driver