Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, кто сможет!!! / 25 сообщений из 85, страница 1 из 4
  1  все
14.07.2003, 23:36
    #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:44
    #32207742
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Должно получиться что-то такое:

Set какаятоизпеременных = Forms!MyForm!MyControl.Object
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 23:45
    #32207743
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Спасибо! Сейчас попробую...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2003, 23:50
    #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
| Ответить | Цитировать | Написать  
15.07.2003, 00:04
    #32207748
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
А если описать переменную как Excel.Worksheet?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:07
    #32207751
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
XL.Worksheets(1).Select: Method or data member not found :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:13
    #32207757
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Так естественно. Как у воркшита может быть воркшит? Это все надо переделать (если только мы на правильном пути, в чем я пока не уверен).

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

Вопрос, как ее описать. В крайнем случае можно попробовать As Object, но потом все равно надо понять, что это за объект и как к нему обращаться дальше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:28
    #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:29
    #32207768
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Set XL = Forms!Ôîðìà1!ex.Object: Type mismatch
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:30
    #32207769
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Моя думай, что это не есть возможный подход.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:31
    #32207770
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Type mismatch - это при каком варианте описания?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:33
    #32207771
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
ИДЕЯ!!! По-моему, нам сейчас ничего не решить. Утро вечера мудренее. Утром в форум придут умные люди и сразу скажут всё, что о нас думают.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:33
    #32207772
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
:)
Может тогда использовать что-нибудь вроде CreateObject(Excel.Application) для формы? Или ето нельзя?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:34
    #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:35
    #32207776
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Все-таки предлагаю Dim XL As Object. Я пошел спать. Спокойной ночи мне...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 00:36
    #32207777
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Спасибо! good night
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 07:28
    #32207810
вадя
вадя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Саныч ты ивриту также учишь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 09:46
    #32207892
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Как идея, не как решение:
Сохранить в файл принудительно
Открыть файл, заменить что надо
Выйти с сохранением
Обновить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.07.2003, 09:47
    #32207893
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, кто сможет!!!
Чего???? :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, кто сможет!!! / 25 сообщений из 85, страница 1 из 4
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 288ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1680516]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 186ms
total:  288ms
x
x
Закрыть


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