Как взять из Excel данные, начиная с первого столбца, средствами ADO?

[Скрипт]

На Excel-листе первый столбец пустой и ADO берёт данные с первого непустого столбца.
Можно ли указать ADO, чтобы он брал данные с первого столбца, даже если первый столбец пустой?

Зачем это надо? Макросу указывается, с каким столбцом надо работать. Например, указали столбец 2. Но если на Excel-листе первый столбец пустой, то макрос будет работать со столбцом 3.

Используемые коды по взятию данных из Excel-листа:

        myRecordSetSheet.Open Source:="SELECT * FROM [" & arrShNames(i) & "]", _
                            ActiveConnection:=myConnection, _
                            CursorType:=adOpenForwardOnly

Здесь указывается столбец 1, но берётся первый непустой столбец:

        myRecordSetSheet.Open Source:="SELECT F1 FROM [" & arrShNames(i) & "]", _
                            ActiveConnection:=myConnection, _
                            CursorType:=adOpenForwardOnly

[AndVGri]

По видимому вы используете в строке подключения HDR=NO, и первый столбец совсем пустой. Поэтому и не берёт. Видимо особенность драйвера для Excel - всё же Excel не совсем полноценная база данных. Чтобы драйвер воспринимал столбец необходимо иметь где-нибудь в нём какое-нибудь данное.
Например, в А1 бла-бла
Тогда, при HDR=NO, и указании таблицы, допустим, [Лист1$A3:C10000], первый столбец воспринимается как текстовый длинной 255 символов.
Если есть возможность, то первой строке используйте названия столбцов, а в подключении укажите HDR=YES.

[Скрипт]

AndVGri, первый столбец совсем пустой. В программе "Excel" считается нормальным, если какие-то столбцы пустые. Иногда даже делают некоторые столбцы пустыми, чтобы лучше выглядела таблица и было удобно пользоваться таблицей.

Возможности нет использовать в пустом столбце заголовок столбца или записать текст "бла-бла".

Вот такой код я использую и данные берутся с первого непустого столбца:

Sub Procedure_1()
    
    'Полное имя Excel-файла, из которого нужно взять данные
    Const myFullName As String = "C:\Users\User\Desktop\База данных.xlsx;"
        
    'Библиотека "Microsoft ActiveX Data Objects версия Library".
    Dim myConnection As ADODB.Connection
    Dim myRecordSet As ADODB.Recordset
    
    
    'Создание объекта "Connection".
    Set myConnection = CreateObject(Class:="ADODB.Connection")
    
    'Указание полного имени Excel-файла и версии Excel-файла.
    myConnection.ConnectionString = _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myFullName & _
        "Extended Properties=""Excel 12.0 Xml;HDR=Yes"""

    'Открытие Excel-файла.
    myConnection.Open
    
    'Создание объекта "Recordset".
    Set myRecordSet = CreateObject(Class:="ADODB.Recordset")
    
    'Указываем, из какого листа и какие столбцы взять.
    myRecordSet.Open Source:="SELECT * FROM [Лист1$]", _
                        ActiveConnection:=myConnection, _
                        CursorType:=adOpenForwardOnly
    
    'Вывод кол-ва полей (поля в повседневности называются "столбцы")
        'в View - Immediate Window.
    Debug.Print myRecordSet.Fields.Count
    
    'Закрытие Excel-файла
    myConnection.Close
    
End Sub

Такой код:

    'Указываем, из какого листа и какие столбцы взять.
    myRecordSet.Open Source:="SELECT F1 FROM [Лист1$A:C]", _
                        ActiveConnection:=myConnection, _
                        CursorType:=adOpenForwardOnly

тоже не решает задачу, кроме того, появляется ошибка "Отсутствует значение для одного или нескольких требуемых параметров".


Примечание

Для работы кода нужно подключить библиотеку:
Tools - References... - Microsoft ActiveX Data Objects версия Library.

[R Dmitry]

попробуйте сделать нужный диапазон именованным и обращаться к нему

select f1 from data

[Скрипт]

R Dmitry, да, Ваш способ работает, но применить его я не смогу, т.к. не управляю Excel-файлами, которые являются базами данных.

Могу обрабатывать Excel-файлы, которые являются базами данных, только в том виде, в котором они есть.

[R Dmitry]

Ну у баз данных все должно быть одинаково )
-----------
Попробуйте контролировать количество полей, и уже исходя из результата обрабатывайте нужное поле в рекордсете.

[R Dmitry]

Да ... еще вопрос.
Зачем использовать позднее связывание если подключена соответствующая библиотека?

[Скрипт]

Сообщение от R Dmitry

Зачем использовать позднее связывание если подключена соответствующая библиотека?

1. чтобы отключить потом библиотеку и меньше вносить изменения в
   макрос;
2. чтобы в макросе был синтаксис позднего связывания, т.к. позднее связывание может отличаться от раннего и просто так нельзя внести изменения, а нужно искать где-то информацию.

[Скрипт]

Сообщение от R Dmitry

Ну у баз данных все должно быть одинаково )
-----------
Попробуйте контролировать количество полей, и уже исходя из результата обрабатывайте нужное поле в рекордсете.

В Excel может быть много всего в отличие от обычной базы данных, например, в отличие от баз данных программы "Access". Поэтому в Excel базы данных не могут быть всегда одинаковые.

Я не могу никак влиять на Excel-файлы, которые представляют собой базы данных, - их формируют другие люди и я не могу никак влиять на этих людей. Что в этих Excel-файлах, которые представляются собой базы данных, может быть - я не знаю.

[Аватар]

Сообщение от Скрипт

Я не могу никак влиять на Excel-файлы, которые представляют собой базы данных, - их формируют другие люди и я не могу никак влиять на этих людей. Что в этих Excel-файлах, которые представляются собой базы данных, может быть - я не знаю.

Тогда отказаться от SQL