|
|
|
таблица 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&fpage=200&tid=2179674]: |
0ms |
get settings: |
5ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
49ms |
get topic data: |
5ms |
get forum data: |
1ms |
get page messages: |
21ms |
get tp. blocked users: |
1ms |
| others: | 227ms |
| total: | 325ms |

| 0 / 0 |
