Вопрос по excel-odbc - Сообщение 918300 - VBA

kuzminki · 26.08.2009, 17:41

Всем привет!!!

Люди, у меня возникла маленькая проблемка, с корой я столкнулся, и не знаю, как бороться, как ее решить. Как я понял, данная проблема не имеет отношения к объекту QueryTables и имеет какое-то отношение к системе безопасности Excel, но, при этом, камнем преткновения становится именно объект QueryTables. Система: ХР, Excel 2003. Следите за моей мыслью:

Условимся, что в некоторой книге под названием WB_1.xls есть макрос SUB_1(), который использует для своей работы объект QueryTables. Вот его примерный код:

Sub SUB_1()

Dim Select_exp As String

Connection_BD = "ODBC;DSN=...;UID=...;PWD=..."

' ... - информация конфиденциальна

Select_exp = "select ... from ... where ... order ..."

With ActiveSheet.QueryTables.Add(Connection:=Connection _BD, Destination:=Range(Cells(col, 1), Cells(col, 1)))

.CommandText = Select_exp

.Name = "TR_range"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlOverwriteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = False

.RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh BackgroundQuery:=False

End With

End Sub

Теперь рассмотрим ситуацию:

Мы открываем книгу WB_1.xls и нажимаем Alt+F8. В появившемся окне мы выбираем наш макрос и нажимаем кнопку Run. При сценарии таких действий со стороны пользователя (т.е. меня), макрос успешно (молча) выполняется и извлекает данные из БД.

Но как только мы попытаемся повторить выполнение макроса SUB_1()(выполнение изъятия данных из БД), так сразу же Excel выводит окно списка ODBC соединений с просьбой выбрать необходимое ODBC-соединение.

Вопрос : Как сделать так, чтобы во второй ситуации Excel молча выполнял макрос SUB_1() также, как это происходит в первой ситуации??

Почему в первой ситуации Excel замечательно, прямо-таки, работает, а во второй и в следующих ситуациях просит вмешаться пользователя??

Если можно, выскажите хотя бы свое мнение по этому поводу... Заранее благодарен всем, кто отзовется.

Похожие темы
Тема	Автор
Можно ли убрать рамку выделенной ячейки не снимая фокуса с ячейки ? VBA Всем, привет ! Стандартно, текущая ячейка Excel выделена инверсной рамкой. Можно ли убрать эту рамку не снимая фокуса с ячейки ?	Fil
Закрытие книги в Excel 2007 VBA Есть книга "шаблон" содержащая набор макросов и несколько листов. При открытии этой с помощью макросов создается новая Книга, оттуда удаляются все листы и копируются листы "шаблона". Выполняется функция Worksheet_Calculate() После чего необходимо "шаблон" закрыть, а Новый документ оставить открытым. Пробовал Workbook1.Close SaveChanges:=True вроде бы все срабатывает. Окно закрывается, но...	Damirkin
VBA Генерация таблицы изображений Word Доброго времени суток! Задача состоит в следующем: вставляем n-ное количество изображений в вордовский документ (я так думаю, ручками), а затем помещаем их в 2х колоночную таблицу при помощи макроса. Как такое можно реализовать, подскажите плиз! Хотя бы в общих чертах.	hack
VBA Удаление исходного кода макроса из тела файла WORD с сохранением работоспособности Есть необходимость закрыть исходные тексты макросов в шаблоне от доступа. Парольная защита не подходит т.к. в сети есть сайты на которых за $20 быстро ломают пароль не занимаясь перебором. Возникла идея удалить исходные тексты из файла WORD не пользуясь редактором VBA, т.е. внешними программами, может даже текстовым редактором, с сохранением откомпилированного кода, который и должен выполняться...	AUB2000
как правильно записать формулу для цикла do VBA Есть формула: ActiveCell.FormulaR1C1 = _ "=наличие_файла(""file://\file\44-я \file\44-я 26.10-01.11""&RC)" Как записать RC чтобы формула писалась в нужной ячейке, т.е. работает do loop с переменной а. куда в RC и как нужно добавить переменную а???	uvexx
VBA Корректное закрытие ОКНА Excel Добрый день! Подскажите, пожалуйста, каким образом можно решить следующую задачу. Я написал скрипт (макрос), который выполняется в момент открытия книги, после чего книга тут же закрывается. Однако если вызывать метод ThisWorkbook.Close, то закрывается именно сама книга скрипта, но не окно Excel, в котором эта книга была открыта. Если же применять метод Application.Quit, то...	voam
VBA в таблице в нужном столбце найти строку по значению и удалить ее помогите в таблице в нужном столбце найти строку по значению и удалить ее	rovi221
VBA как из Access открыть файл, используя диалоговое окно "Открыть файл" В БД Access надо открыть файл Excel. Причем файл для открытия должен выбрать сам пользователь.	Elenko

26.08.2009, 17:41
kuzminki Новичок Регистрация: 17.11.2005 Сообщений: 2	Вопрос по excel-odbc Всем привет!!! Люди, у меня возникла маленькая проблемка, с корой я столкнулся, и не знаю, как бороться, как ее решить. Как я понял, данная проблема не имеет отношения к объекту QueryTables и имеет какое-то отношение к системе безопасности Excel, но, при этом, камнем преткновения становится именно объект QueryTables. Система: ХР, Excel 2003. Следите за моей мыслью: Условимся, что в некоторой книге под названием WB_1.xls есть макрос SUB_1(), который использует для своей работы объект QueryTables. Вот его примерный код: Sub SUB_1() Dim Select_exp As String Connection_BD = "ODBC;DSN=...;UID=...;PWD=..." ' ... - информация конфиденциальна Select_exp = "select ... from ... where ... order ..." With ActiveSheet.QueryTables.Add(Connection:=Connection _BD, Destination:=Range(Cells(col, 1), Cells(col, 1))) .CommandText = Select_exp .Name = "TR_range" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With End Sub Теперь рассмотрим ситуацию: Мы открываем книгу WB_1.xls и нажимаем Alt+F8. В появившемся окне мы выбираем наш макрос и нажимаем кнопку Run. При сценарии таких действий со стороны пользователя (т.е. меня), макрос успешно (молча) выполняется и извлекает данные из БД. Но как только мы попытаемся повторить выполнение макроса SUB_1()(выполнение изъятия данных из БД), так сразу же Excel выводит окно списка ODBC соединений с просьбой выбрать необходимое ODBC-соединение. Вопрос : Как сделать так, чтобы во второй ситуации Excel молча выполнял макрос SUB_1() также, как это происходит в первой ситуации?? Почему в первой ситуации Excel замечательно, прямо-таки, работает, а во второй и в следующих ситуациях просит вмешаться пользователя?? Если можно, выскажите хотя бы свое мнение по этому поводу... Заранее благодарен всем, кто отзовется.

Ads