Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
[ Закрыто ] Подключение к Базе данных Oracle из Excel с помощью VBA
 
#1
29.09.2014 18:59:10
Добрый день!
Вся надежда на вас! К сожалению, познания в VBA очень скудны. Без вашей помощи не обойтись. Мне необходимо осуществить следующее: необходимо написать макрос в Excel. Цель такая: нужно, чтобы нажимая кнопку сотрудник любого филиала получал выгрузку из базы данных одного программного обеспечения Oracle. При этом нужно, чтобы макрос подключил пользователя к базе. Через excel осуществила подключение через Microsoft Query. Драйвер указала как "Microsoft ODBC for Oracle" (правильно ли именно его использовать?), пользователь (допустим) Crent, Пароль Bercut, Сервер Chief. Соединение прошло успешно. Далее нужно, чтобы выгружалась определенная таблица этой базы данных (например) xclient_class. Но как это прописать в VBA так, чтобы я могла это все это могла реализовать без ручной настойки непонятно. Просмотрела много литературы, но постоянно какие-то ошибки. Пожалуйста, помогите!!! Буду осень признательна за помощь.
 
 
 
#2
29.09.2014 19:28:57
Почему Вы выбрали такой громоздкий путь?
Это - из серии "Слон и Моська".   :D  
У Вас соединение прошло успешно, а что будет в филиалах?
Не завидую Вашим филиальным операционистам.   ;)  
ПО на платформе Oracle не может быть примитивным: в нем не может отсутствовать цивилизованный экспорт в EXCEL.
Изучите шаблоны экспорта Вашего ПО во все форматы, которые в нем предусмотрены.
Полагаю, Вы обнаружите не только формат EXCEL.
Научить операционистов, "денно и нощно сидящих в ПО", шаблонному экспорту в файл из ПО в нужный каталог в нужном формате - элементарно.
Ну, а далее: старт Вашего макросного файла.
Макрос сам "найдет" экспортный файл из ПО, и выполнит то, что будет заложено в алгоритм макроса.
 
 
 
#3
29.09.2014 19:31:10
Цитата
Мотя пишет: ПО на платформе Oracle не может быть примитивным
всякое в жизни бывает.   ;)
F1 творит чудеса
 
 
 
#4
29.09.2014 19:39:34
"Серьезные" организации кустарные поделки, как правило, не покупают.   :)
 
 
 
#5
29.09.2014 19:58:26
Целых два небесспорных допущения ))
Ну, будем надеяться  
F1 творит чудеса
 
 
 
#6
29.09.2014 20:01:58
Смысл данной работы в том, чтобы начальники в филиалах имели возможность в любую минуту выгрузить нужную информацию, не прибегая к написанию скриптов для выгрузки данных из базы (база программного обеспечения, используемого в организации). С экспортом в эксель из БД проблем нет. Но нужно, чтобы данные подгружались именно после нажатия определенной кнопки в Excel (кнопок будет несколько и к каждой будет привязан скрипт на выгрузку определенной информации). Хочу в дальнейшем настроить фильтр, чтобы выгружался только нужный филиал. Смысл еще в том, чтобы максимально автоматизировать работу сотрудников, чтобы им не пришлось ручками ни соединяться к БД, ни устанавливать как вариант developer для выгрузки данных, чтобы выгружать нужную им информацию в Excel. Помогите, пожалуйста, с реализацией задуманного. Какой код VBA можно было бы использовать для подключения к базе? Заранее большое спасибо!
Изменено: hipersa - 29.09.2014 20:03:49
 
 
 
#7
29.09.2014 20:02:12
Код
Sub ImpOracle()
Set cn = CreateObject("ADODB.Connection")
       cn.Open "Provider=MSDAORA.1;Data Source=Chief;Password=Bercut;User ID=Crent"
'========================================================================================
sSql = "select * from xclient_class"
Set Rs = GetRs(sSql, cn)
sheets(1).[a1].copyfromrecordset rs
Rs.Close
Set Rs = Nothing
end sub
Function GetRs(sstr, cn)
Set rstdata = CreateObject("ADODB.Recordset")
    rstdata.Open sstr, cn
    Set GetRs = rstdata
Set rstdata = Nothing
End Function
 
 
 
#8
29.09.2014 20:08:28
Цитата
Мотя пишет: "Серьезные" организации кустарные поделки, как правило, не покупают.
"Некустарные", как правило не отвечают запросам конечных пользователей  :) , либо отвечают, за "очень серьезные" деньги.
 
 
 
#9
29.09.2014 20:26:48
Цитата
hipersa пишет: Но нужно, чтобы данные подгружались именно после нажатия определенной кнопки в Excel (кнопок будет несколько и к каждой будет привязан скрипт на выгрузку определенной информации).
Одна из 2-х ситуаций:
1. ПО - "кривое", то бишь, кустарное.
2. Начальники ничего слаще морковки, EXCEL, не признают!
Цитата
hipersa пишет: Хочу в дальнейшем настроить фильтр, чтобы выгружался только нужный филиал.
Неужели ПО не определяет права пользователя?!   :D  
Цитата
B.Key пишет: "Некустарные", как правило не отвечают запросам конечных пользователей , либо отвечают, за "очень серьезные" деньги.
Общеизвестно, СКУПОЙ ПЛАТИТ ДВАЖДЫ!
 
 
 
#10
29.09.2014 20:28:42
B.Key, большое вам спасибо за код, за вашу помощь и за потраченное время! Очень вам благодарна. Все работает!!!  :)
 
 
 
#11
29.09.2014 20:41:57
Вы не правы.
Стоимость нормочаса oracle спеца, в крутой конторе, стоит 200$, стоимость нормочаса крутого спеца excel 20$.
Срок исполнения данной задачи "oracle спеца в крутой конторе" 1 день ТЗ, 2-5 дней подписание документов, 2-7(возможно и меньше) дней выполнение.
Срок исполнения данной  задачи  "крутого спеца excel" максимум 1 час.
Зачем платить больше, если второй сделает лучше.
--------
Скрытый текст
Изменено: B.Key - 29.09.2014 20:49:30
 
 
 
#12
29.09.2014 21:02:21
Цитата
B.Key пишет:
Стоимость нормочаса oracle спеца, в крутой конторе, стоит 200$, стоимость нормочаса крутого спеца excel 20$.
Любопытно, однако.
Общеизвестно: лучше иметь дело с качественным ПО, чем с разного рода "крутыми" спецами.  :D
В "серьезных" организациях ни с какими  "крутыми спецами" никогда не будут иметь дела.
 
 
 
#13
29.09.2014 21:15:51
Я не буду вступать с Вами в полемику, скажу лишь одно:
-В хороших организациях сотрудники умеют считать деньги.
-В "серьезных" организациях сотрудники умеют бездумно тратить деньги, даже не понимая сколько это стоит на самом деле.
---------
Что говорить, "совок" привык так жить.
 
 
 
#14
29.09.2014 21:18:12
Цитата
hipersa пишет: Все работает!!!
Пользуйтесь на здоровье и экономьте Ваши средства  :)
 
 
 
#15
29.09.2014 21:21:50
Цитата
B.Key пишет: Я не буду вступать с Вами в полемику...
Почти, цитаты "от министра финансов", когда он затягивает песню "Разговор в пользу бедных".   :D
 
 
 
#16
30.09.2014 02:34:25
Хватит флудерства.
Тему закрыл.  
 
 
 
Страницы: 1
Наверх