VPF::Помогите организовать обращение к Экселю

Erepb

Дата 2.9.2008, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 26.8.2008

Репутация: нет
Всего: нет

Снова всем привет!
Хочу организовать обращение к файлу Экселя. Если делать с открытием приложения MS Excel в фоновом режиме, то получается довольно долго. (правда сейчас получилось и пока пользуюсь таким методом) В одной книге увидел следующий способ:

Код



Sub GetDataFromWorkbook(SourceFile As String)
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim conString As String
    Dim TargetCell As Range
    
    
    conString = "DRIVER={Microsoft Excel Driver (*.xls)}; ReadOnly=1; DBQ=" & SourceFile
    Set con = New ADODB.Connection
    con.Open conString
    Set rs = con.Execute("[B4:B17]")
    Set TargetCell = Range("N4:N17").Cells(1, 1)
    TargetCell.CopyFromRecordset rs
    rs.Close
    con.Close
    Set TargetCell = Nothing
    Set rs = Nothing
    Set dbConnection = Nothing
    
End Sub

все работает, только вот обратиться так я могу только к первому листу указанного файла =(. Метод Execute , при открытом приложении работает нормально с заданием другого рабочего листа/книги, а при использовании conString = "DRIVER={Microsoft Excel Driver (*.xls)}; ReadOnly=1; DBQ=" & SourceFile у меня получается задать только диапазон на первом рабочем листе.
Если кто сталкивался с такой проблемой, помогите пожалуйста задать в методе Execute ссылку НЕ на первый лист, а на любой другой.

Это сообщение отредактировал(а) Akina - 2.9.2008, 20:54

Akina

Дата 2.9.2008, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

А почему Вы не хотите установить связь с нужным листом и обращаться к нему как к обычной таблице?

M
Akina

Используя тег Код, смотрите, какой именно тег Вы используете.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Erepb

Дата 3.9.2008, 07:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 26.8.2008

Репутация: нет
Всего: нет

такая ссылка должна быть -> '[D:\РАБОТА\Файл.xls]НовыйЛист' ?
Просто, у меня не получалось сделать ссылку на конкретный лист, поэтому и возникла проблема. Можно пример ссылки?

FINANSIST

Дата 19.9.2008, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 1
Всего: 23

Файл//Внешние_данные//Связь_с_таблицами

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »