|
|
|
таблица General не импортируется из Access в Excel
|
|||
|---|---|---|---|
|
#18+
Добрый вечер! Не могу понять как обойти следующую загвоздку: Пишу макрос в 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.03.2009, 16:40:33 |
|
||
|
таблица General не импортируется из Access в Excel
|
|||
|---|---|---|---|
|
#18+
Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.03.2009, 16:57:54 |
|
||
|
|

start [/forum/topic.php?fid=61&msg=35888945&tid=2179674]: |
0ms |
get settings: |
6ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
210ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
50ms |
get tp. blocked users: |
1ms |
| others: | 225ms |
| total: | 531ms |

| 0 / 0 |
