| Вопрос: Отключить файл данных после запроса Excel | Добавлено: 18.06.08 15:50 |
Автор вопроса:  djek
|
|
Добрый день.
в Excel есть запрос : Range("E1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "ODBC;DSN=arm;DefaultDir=C:\ARM;DriverId=277;FIL=dBase IV;MaxBufferSize=2048;PageTimeout=5;" _ , Destination:=Range("E1")) .CommandText = Array( _ "SELECT SNEK.NEKS, SNEK.SHME, SNEK.PODR, SNEK.TABN, SNEK.PRB0, SNEK.SHVG, SNEK.SHPR, SNEK.OBRS, SNEK.NISP, SNEK.DKOR, SNEK.PRRS, SNEK.HD1200, SNEK.B75121, SNEK.B7519, SNEK.KEXP FROM SNEK SNEK ORDER BY SNEK.NEKS" _ ) нужно, чтобы данные остались на листе, а соединение с файлом dbase пропало, потом на это же место выводить данные другого запроса, как отключить соединение, оставив данные на листе ? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Holsten Вопросов: 5 Ответов: 100 |
Профиль | | #1 | Добавлено: 19.06.08 22:56 |
|
Sub qwerty() Dim ws As Worksheet Dim qt As QueryTable Set ws = ActiveSheet Dim cnnstr As String cnnstr = "ODBC  SN=..."
Set qt = ws.QueryTables.Add(cnnstr, Range("E1"  )
qt.CommandText = "SELECT ..." qt.Refresh qt.Delete ' может вот так? !!! End Sub |
||
|
Номер ответа: 2 Автор ответа: djek Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 20.06.08 14:01 |
| Пишет, что "данная операция не допускается во время фонового обновления данных" ;-( | ||
|
Номер ответа: 3 Автор ответа: HolstenВопросов: 5 Ответов: 100 |
Профиль | | #3 | Добавлено: 20.06.08 17:47 |
| qt.BackgroundQuery=False ? | ||
|
Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 21.06.08 14:55 |
| Set qt = Nothing | ||
|
Номер ответа: 5 Автор ответа: MetronomВопросов: 3 Ответов: 9 |
Профиль | | #5 | Добавлено: 27.06.08 10:23 |
| Ну и как, получилось ? У меня нет. | ||
Страница: 1 |