Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / таблица General не импортируется из Access в Excel / 3 сообщений из 3, страница 1 из 1
24.03.2009, 16:40:33
    #35888885
METT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
таблица General не импортируется из Access в Excel
Добрый вечер!

Не могу понять как обойти следующую загвоздку:
Пишу макрос в Excel, который импортирует данные из файлов *.mdb через ADO (файлы генерирует удаленная программа. В базе данных несколько таблиц, одна из них имеет имя "General". Данная таблица не импортируется. Подскажите как можно извлечь таблицу данных.
Заранее спасибо!


Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
DBFullName = "<мой путь к mdb>"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
DBFullName & ";"
Zapros = "SELECT * FROM General"
With rs
.Open Zapros, cn, , , adCmdText
Dim iTemp As Long
'определение последней записи
iTemp = Worksheets("TempValue").Cells(Rows.Count, 1).End(xlUp).Row
'добавление новых данных
Worksheets("TempValue").Cells(iTemp + 1, 1).CopyFromRecordset rs
rs.Close
End With
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
...
Рейтинг: 0 / 0
24.03.2009, 16:57:54
    #35888945
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
таблица General не импортируется из Access в Excel
Код: plaintext
Zapros = "SELECT * FROM [General]"
...
Рейтинг: 0 / 0
24.03.2009, 17:15:42
    #35889023
METT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
таблица General не импортируется из Access в Excel
Konst_One
Спасибо за быструю помощь.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / таблица General не импортируется из Access в Excel / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]