Использую VBA скрипт в Excel для вставки в ячейку таблицы Excel данных по SQL запросу из БД Access (файл mdb).
Вот сам скрипт. Он работает:
Проблема в том, что в Excel вставляется помимо результата SQL запроса, еще и название столбца(ов) Access. Как сделать что бы не вставлялись названия столбцов?
Вот сам скрипт. Он работает:
Код |
---|
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 |