| Вопрос: Библиотеки VBA | Добавлено: 31.05.06 08:50 |
Автор вопроса:  SvetlanaL | ICQ: 229-356-346 |
| Подскажите, где можно подробно прочитать о Microsoft ActiveX Data Objects 2.5 Library? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Незнайка Вопросов: 7 Ответов: 188 |
Профиль | | #1 | Добавлено: 31.05.06 11:48 |
|
http://msdn.microsoft.com/library/
A что Вопрос: Консолидация не решился?
|
||
|
Номер ответа: 2 Автор ответа:  SvetlanaL ICQ: 229-356-346 Вопросов: 8 Ответов: 20 |
Профиль | | #2 | Добавлено: 31.05.06 12:25 |
|
Решился частично. У меня есть несколько книг, на каждой из них порядка семи листов. Обрабатываютя почему-то только два листа в каждой книге, с именами "Увязка" и "Запрос", а с именами типа
0503010, 0503127 - нет. |
||
|
Номер ответа: 3 Автор ответа: SvetlanaLICQ: 229-356-346 Вопросов: 8 Ответов: 20 |
Профиль | | #3 | Добавлено: 31.05.06 12:25 |
|
Решился частично. У меня есть несколько книг, на каждой из них порядка семи листов. Обрабатываютя почему-то только два листа в каждой книге, с именами "Увязка" и "Запрос", а с именами типа
0503010, 0503127 - нет. |
||
|
Номер ответа: 4 Автор ответа:  НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #4 | Добавлено: 31.05.06 14:47 |
|
For Each mFile In mFiles
mConnectionString = "  RIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1BQ=" & mFile.Path
mConnection.Open mConnectionString Set mRecordset = mConnection.OpenSchema(adSchemaTables) Do Until mRecordset.EOF If Len(StrokaKonsolidasia) > 0 Then StrokaKonsolidasia = StrokaKonsolidasia & "," & _ "'" & mFile.ParentFolder & "\[" & mFile.Name & "]" & _ Left$(mRecordset!TABLE_NAME, Len(mRecordset!TABLE_NAME) - 1) & _ "'!R14C4:R32C6" 'указанный в вопросе диапазон Else StrokaKonsolidasia = StrokaKonsolidasia & _ "'" & mFile.ParentFolder & "\[" & mFile.Name & "]" & _ Left$(mRecordset!TABLE_NAME, Len(mRecordset!TABLE_NAME) - 1) & _ "'!R14C4:R32C6" 'указанный в вопросе диапазон End If mRecordset.MoveNext Loop mRecordset.Close mConnection.Close Next mFile Т.е. убери проверку на "SYSTEM TABLE" и счастье будет. Только следи, чтобы на листах не было именнованных диапазонов. Они будут восприниматься как отдельная таблица. |
||
|
Номер ответа: 5 Автор ответа: НезнайкаВопросов: 7 Ответов: 188 |
Профиль | | #5 | Добавлено: 31.05.06 14:47 |
|
For Each mFile In mFiles
mConnectionString = " RIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1BQ=" & mFile.Path
mConnection.Open mConnectionString Set mRecordset = mConnection.OpenSchema(adSchemaTables) Do Until mRecordset.EOF If Len(StrokaKonsolidasia) > 0 Then StrokaKonsolidasia = StrokaKonsolidasia & "," & _ "'" & mFile.ParentFolder & "\[" & mFile.Name & "]" & _ Left$(mRecordset!TABLE_NAME, Len(mRecordset!TABLE_NAME) - 1) & _ "'!R14C4:R32C6" 'указанный в вопросе диапазон Else StrokaKonsolidasia = StrokaKonsolidasia & _ "'" & mFile.ParentFolder & "\[" & mFile.Name & "]" & _ Left$(mRecordset!TABLE_NAME, Len(mRecordset!TABLE_NAME) - 1) & _ "'!R14C4:R32C6" 'указанный в вопросе диапазон End If mRecordset.MoveNext Loop mRecordset.Close mConnection.Close Next mFile Т.е. убери проверку на "SYSTEM TABLE" и счастье будет. Только следи, чтобы на листах не было именнованных диапазонов. Они будут восприниматься как отдельная таблица. |
||
Страница: 1 |