Public Sub RefreshData()
'Created using add-in ActiveTables
Dim strConnection As String
Dim strSQL As String
strConnection = IIf(Val(Application.Version) < 12, "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES;IMEX=3';", "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES;IMEX=3';")
strSQL = "SELECT DISTINCT Фрукт FROM [Лист1$]"
With ThisWorkbook.ActiveSheet
With .QueryTables.Add(strConnection, .Range("b1"), strSQL)
.Refresh False
.Delete
End With
End With
End Sub
Надстройка собирает данные из разных книг и листов, но собирает данные она в одну итоговую таблицу или Сводную таблицу, кроме того структура исходных данных должна быть одинакова, хотя и могут допускаться определенные различия.
Если Вы знаете SQL возможно лучше воспользоваться другой моей надстройкой "Активные таблицы"
Надстройка находится в разработке поэтому справка пока в разработке, но будет обязательно, конечно есть и ошибки. До Вас люди обращались, чтобы я увеличил функционал , что можно видеть по развитию версий. По функционалу: Что может быть проще: 1.Выбрал книги, Выбрал листы, Выбрал области - все данные собрал, если надо обработал их тут же. На вкладку Итоги можете вообще не заходить.
О смысле жизни. Как показывает нам развитие смартфонов и 1С ERP 2.0 (догрызая SAP R3), будущее за универсальными решениями, требующее квалификации и обучения. Кладовщик не способный освоить ввод данных в 1С будет уволен. Экономист с помощью моей надстройки сделав свою работу за час, вместо дня, получит премию. Каждый решает для себя сам какой ему курить самовар.