ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, кто сможет!!!
25 сообщений из 85, страница 1 из 4
  1  все
Помогите, кто сможет!!!
    #32207740
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Что подправить в коде для того, чтобы данные копировались не в сторонний документ EXCEL, а во встроенный в форму объект EXCEL???
Помогите, чем сможете!!!

Dim rst As DAO.Recordset
Dim XL As New Excel.Application
Dim x As Integer
Set rst = CurrentDb.OpenRecordset("table")

XL.Workbooks.Open "c:\1.xls" 'наверное это не нужно
XL.Worksheets(1).Select
rst.MoveFirst
x = 5

While Not rst.EOF

XL.Range("A" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field1").Value
XL.Range("B" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field2").Value
XL.Range("C" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field3").Value
XL.Range("D" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("ÄField4").Value
XL.Range("E" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field5").Value
XL.Range("F" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field6").Value
XL.Range("G" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field7").Value
XL.Range("H" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Field8").Value

x = x + 1
rst.MoveNext
...
Рейтинг: 0 / 0
14.07.2003, 23:36
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207742
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Должно получиться что-то такое:

Set какаятоизпеременных = Forms!MyForm!MyControl.Object
...
Рейтинг: 0 / 0
14.07.2003, 23:44
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207743
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Спасибо! Сейчас попробую...
...
Рейтинг: 0 / 0
14.07.2003, 23:45
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207745
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Хм....
Сделал так:
Set XL = Forms!Форма1!ex.Object

Ошибка: Object doesn't support this property or method

Выделяет эту строку:
XL.Range("A" & CStr(x) & "").Select
...
Рейтинг: 0 / 0
14.07.2003, 23:50
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207748
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А если описать переменную как Excel.Worksheet?
...
Рейтинг: 0 / 0
15.07.2003, 00:04
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207751
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
XL.Worksheets(1).Select: Method or data member not found :(
...
Рейтинг: 0 / 0
15.07.2003, 00:07
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207757
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Так естественно. Как у воркшита может быть воркшит? Это все надо переделать (если только мы на правильном пути, в чем я пока не уверен).

Set XL = ...Worksheets(1)
XL.Select
...
Рейтинг: 0 / 0
15.07.2003, 00:13
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207758
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Даже не надо Set.
...
Рейтинг: 0 / 0
15.07.2003, 00:14
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207760
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Видимо надо так:
Dim XL As New Excel.OLEObject
Но все равно проблема
XL.Worksheets(1).Select: ActiveX component can't create object
...
Рейтинг: 0 / 0
15.07.2003, 00:18
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207762
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Если New, то он не будет привязан к нужному контролу на форме.
...
Рейтинг: 0 / 0
15.07.2003, 00:20
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207764
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Точно
И наконец :):
Object variable or With block variable not set
....
set XL = ???
...
Рейтинг: 0 / 0
15.07.2003, 00:22
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207766
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Set XL = Forms!Форма1!ex.Object - это правильно.

Вопрос, как ее описать. В крайнем случае можно попробовать As Object, но потом все равно надо понять, что это за объект и как к нему обращаться дальше.
...
Рейтинг: 0 / 0
15.07.2003, 00:25
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207767
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
А может возможно создать SQL запрос на основе:
x = 5

While Not rst.EOF

XL.Range("A" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ðåô ¹").Value
XL.Range("B" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Íàèìåíîâàíèå").Value
XL.Range("C" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("ÔÈÎ").Value
XL.Range("D" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Äàòà").Value
XL.Range("E" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Âàëþòà").Value
XL.Range("F" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ïðèõîä").Value
XL.Range("G" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ðàñõîä").Value
XL.Range("H" & CStr(x) & "").Select
XL.ActiveCell.Formula = rst.Fields("Ýêâèâàëåíò").Value

x = x + 1
rst.MoveNext

Wend

И поставить его как источник данных для объекта?!
...
Рейтинг: 0 / 0
15.07.2003, 00:28
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207768
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Set XL = Forms!Ôîðìà1!ex.Object: Type mismatch
...
Рейтинг: 0 / 0
15.07.2003, 00:29
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207769
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Моя думай, что это не есть возможный подход.
...
Рейтинг: 0 / 0
15.07.2003, 00:30
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207770
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Type mismatch - это при каком варианте описания?
...
Рейтинг: 0 / 0
15.07.2003, 00:31
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207771
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
ИДЕЯ!!! По-моему, нам сейчас ничего не решить. Утро вечера мудренее. Утром в форум придут умные люди и сразу скажут всё, что о нас думают.
...
Рейтинг: 0 / 0
15.07.2003, 00:33
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207772
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
:)
Может тогда использовать что-нибудь вроде CreateObject(Excel.Application) для формы? Или ето нельзя?
...
Рейтинг: 0 / 0
15.07.2003, 00:33
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207774
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
CreateObject - это тот же эффект, что и со New.
...
Рейтинг: 0 / 0
15.07.2003, 00:34
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207775
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Dim rst As DAO.Recordset
Dim XL As Excel.OLEObject
Dim x As Integer
Set rst = CurrentDb.OpenRecordset("cash")
Set XL = Forms!Форма1!ex.Object ' Type mismatch

XL.Worksheets(1).Select
rst.MoveFirst
x = 5
...
Рейтинг: 0 / 0
15.07.2003, 00:34
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207776
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Все-таки предлагаю Dim XL As Object. Я пошел спать. Спокойной ночи мне...
...
Рейтинг: 0 / 0
15.07.2003, 00:35
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207777
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Спасибо! good night
...
Рейтинг: 0 / 0
15.07.2003, 00:36
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207810
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
Саныч ты ивриту также учишь?
...
Рейтинг: 0 / 0
15.07.2003, 07:28
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207892
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Как идея, не как решение:
Сохранить в файл принудительно
Открыть файл, заменить что надо
Выйти с сохранением
Обновить
...
Рейтинг: 0 / 0
15.07.2003, 09:46
| Ответить | Цитировать | Написать  
Помогите, кто сможет!!!
    #32207893
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Чего???? :))
...
Рейтинг: 0 / 0
15.07.2003, 09:47
| Ответить | Цитировать | Написать  
25 сообщений из 85, страница 1 из 4
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, кто сможет!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32207893&tid=1680516]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 195ms
total:  351ms
созд. / загр.: 351ms
x
x
Закрыть


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