ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с OLE!
25 сообщений из 39, страница 1 из 2
  1  все
Помогите с OLE!
    #32273444
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Помогите пожалуйста!
У меня проблема: есть Б.Д. с полем OLE (Документ Word), подскажите пожалуйста можно ли как-нибудь перевести все эти данные в тип поля "текстовой" (в ручную это сделать не реально т.к. 1000 записей), мне просто все эти данные надо перенести в другую Б.Д., но уже в нормальном виде. (Посмотрел все темы по OLE в форуме, но что-то ничего не нашел).
Мне было бы лучше перевести данные не программно (т.к. VBA я знаю плохо), а, если это возможно, с помощью RAD инструментов.

Буду признателен за любой совет по данной теме!!! :-)
...
Рейтинг: 0 / 0
23.09.2003, 18:47
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32273453
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Я не знаю, что такое RAD, для меня как раз программно проще. :^) Но если не программно, то тогда Copy & Paste.
...
Рейтинг: 0 / 0
23.09.2003, 18:53
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32273472
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
RAD (rapid application development tool) - инструмент быстрой разработки приложений. А Вы предлагаете 1000 записей Copy & Paste? Я не против программного подхода, я просто не знаю, как работать с VBA.
...
Рейтинг: 0 / 0
23.09.2003, 19:21
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32273667
OMP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OMP
Гость
Если не хочешь переводить данные программно, то воспользуйся этим макросом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim I As Long, Table As String
Table =  "<Название таблицы>" 
DoCmd.OpenTable Table, acNormal, acEdit
For I =  1  To  1000 
  SendKeys  "{TAB}" , True 'перейти на поле OLE (оно у меня в таблице второе поле)
  SendKeys "^~", True ' нажать на клавишу Ctrl+Enter
  SendKeys  "^a" , True ' Выделить весь текст в Word
  SendKeys "^{INSERT}", True ' Скопировать в буфер
  SendKeys  "%{F4}" , True ' Закрыть приложение
  SendKeys "{TAB}", True ' Перейти на следующее поле для вставки (Текст)
  SendKeys  "+{INSERT}" , True ' Вставить из буфера
   DoCmd.GoToRecord acDataTable, Table, acNext ' Переход на следующую запись
   SendKeys  "+{TAB}" , True ' Вернуться на предыдущее поле
   SendKeys "+{TAB}", True ' Вернуться на предыдущее поле
Next I

Будет выполнять долго, ну ты же не хочешь программно!!!
...
Рейтинг: 0 / 0
24.09.2003, 09:28
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275669
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Спасибо большое за пример!
Но уж простите меня бестолкового, у меня теперь такая загвоздка-
во второй строке пишу:
Table = "(user-tabl)"
а комп ругается на эту строчку и пишет:
Compile error:
Invalid outside procedure!!!
P.S. Библиотеки вроде все подключил.

HELP ME PLEASE!!!
...
Рейтинг: 0 / 0
25.09.2003, 15:42
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275683
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
> Invalid outside procedure!!!

Это значит, что этот текст должен быть в процедуре.
...
Рейтинг: 0 / 0
25.09.2003, 15:47
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275711
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Может я что-то не правильно понял, но я запускаю этот макрос из VBA.
...
Рейтинг: 0 / 0
25.09.2003, 15:57
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275729
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Каким образом? Можно полный текст?
...
Рейтинг: 0 / 0
25.09.2003, 16:06
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275747
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Вот:

Dim I As Long, Table As String
Table = "(user-tabl)"
DoCmd.OpenTable Table, acNormal, acEdit
For I = 1 To 1000
SendKeys "{TAB}", True 'перейти на поле OLE (оно у меня в таблице второе поле)
SendKeys "^~", True ' нажать на клавишу Ctrl+Enter
SendKeys "^a", True ' Выделить весь текст в Word
SendKeys "^{INSERT}", True ' Скопировать в буфер
SendKeys "%{F4}", True ' Закрыть приложение
SendKeys "{TAB}", True ' Перейти на следующее поле для вставки (Текст)
SendKeys "+{INSERT}", True ' Вставить из буфера
DoCmd.GoToRecord acDataTable, Table, acNext ' Переход на следующую запись
SendKeys "+{TAB}", True ' Вернуться на предыдущее поле
SendKeys "+{TAB}", True ' Вернуться на предыдущее поле
Next I

Если что, заранее извиняюсь за полное незнание данного вопроса!
...
Рейтинг: 0 / 0
25.09.2003, 16:13
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275755
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Ну так это я уже видел. А как сударь (-рыня) это пытается запустить?
...
Рейтинг: 0 / 0
25.09.2003, 16:15
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275765
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
В VBA - "Run".
...
Рейтинг: 0 / 0
25.09.2003, 16:18
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275769
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Какой Run? Кнопка, что ли?
...
Рейтинг: 0 / 0
25.09.2003, 16:20
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275777
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Ну можно и кнопкой, если это поменяет суть дела!-)
...
Рейтинг: 0 / 0
25.09.2003, 16:24
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275820
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А какой Run, если не кнопка???
...
Рейтинг: 0 / 0
25.09.2003, 16:44
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275850
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
твой код нужно пометить в общий модуль
и обрамить процедурой, после этого можешь запускать без кнопки а через run

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Sub test()

Dim I As Long, Table As String 
Table =  "(user-tabl)"  
DoCmd.OpenTable Table, acNormal, acEdit 
For I =  1  To  1000  
SendKeys  "{TAB}" , True 'перейти на поле OLE (оно у меня в таблице второе поле) 
SendKeys "^~", True ' нажать на клавишу Ctrl+Enter 
SendKeys  "^a" , True ' Выделить весь текст в Word 
SendKeys "^{INSERT}", True ' Скопировать в буфер 
SendKeys  "%{F4}" , True ' Закрыть приложение 
SendKeys "{TAB}", True ' Перейти на следующее поле для вставки (Текст) 
SendKeys  "+{INSERT}" , True ' Вставить из буфера 
DoCmd.GoToRecord acDataTable, Table, acNext ' Переход на следующую запись 
SendKeys  "+{TAB}" , True ' Вернуться на предыдущее поле 
SendKeys "+{TAB}", True ' Вернуться на предыдущее поле 
Next I

end sub
...
Рейтинг: 0 / 0
25.09.2003, 17:03
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275859
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Это я уже говорил в 15:47.
...
Рейтинг: 0 / 0
25.09.2003, 17:10
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275861
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
P.S. А что это все-таки за волшебный Run?
...
Рейтинг: 0 / 0
25.09.2003, 17:11
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275874
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
Alt+F11 , F5
...
Рейтинг: 0 / 0
25.09.2003, 17:23
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32275881
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А что значит "без кнопки а через run"? По-моему, кнопка и F5 работают совершенно одинаково.
...
Рейтинг: 0 / 0
25.09.2003, 17:29
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32276044
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Ннннда и почему я такой бестолковый, сам себе удивляюсь.
Но я не понял:
А что значит "пометить в общий модуль" "и обрамить процедурой"?
А просто из VBA его запустить нельзя что ли?
...
Рейтинг: 0 / 0
25.09.2003, 19:36
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32276050
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
"Поместить в общий модуль"

Нажать Ф11, перейти во вкладку "Модули", нажать
"Создать".

"Обрамить процедурой"

В созданном модуле написать
Public Function aaa()
Нажать Enter.
Автоматом добавится строка
End Sub
Промеж этих строчек вставить твой код.
Сохранить модуль под любым именем.
Закрыть окно редактора ВБА.

"Запустить процедуру":
Нажать Ф11.
Перейти на вкладку "Макросы"
Нажать на кнопку "Создать макрос"
Добавить команду "Выполнить программу" (или "запуск программы")
В нижней половине окна макроса написать имя функции - aaa()
Закрыть и сохранить макрос.
Запустить его.
...
Рейтинг: 0 / 0
25.09.2003, 19:49
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32276054
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
"поме с тить в общий модуль" - поместить в модуль, который виден на странице "Модули" (а не модуль формы или отчета).

"обрамить процедурой" - поместить до и после две строки:

Код: plaintext
1.
2.
Sub ...()

End Sub


> А просто из VBA его запустить нельзя что ли?

Такой возможности в VBA нет. Код вне процедуры - это ошибка (см. пример в 15:42).
...
Рейтинг: 0 / 0
25.09.2003, 19:52
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32276055
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Вот я балда!
Все сделал, а создать макрос не догадался!!! Спасибо. :-)))
...
Рейтинг: 0 / 0
25.09.2003, 19:52
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32276058
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 Geo:

Я абпаздал. Но "Запустить процедуру" можно и без макроса, а просто написав ее имя в Debug Window. Про использование макросов см. соответствующую дискуссию на этом форуме. :^)
...
Рейтинг: 0 / 0
25.09.2003, 19:54
| Ответить | Цитировать | Написать  
Помогите с OLE!
    #32276062
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
>>Без кнопки через Run

Может так:
Application.Run "aaa"
...
Рейтинг: 0 / 0
25.09.2003, 19:58
| Ответить | Цитировать | Написать  
25 сообщений из 39, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с OLE!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32273472&tid=1679163]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 212ms
total:  312ms
созд. / загр.: 312ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]