powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, кто сможет!!!
25 сообщений из 85, страница 3 из 4
Помогите, кто сможет!!!
    #32209116
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дак че делать то а? :))
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209117
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
судя по названию Excel.sheet.8 там Worcksheet :)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209120
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну и делай тогда в Dimе объявление переменной как ВоркЩит...
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209121
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Типа я не совсем пень :))

Me.ex.SetFocus
Dim rst As New ADODB.Recordset
Dim XL As Excel.Worksheet
Set XL = Forms!Ôîðìà1!ex.Object 'здесь Type mismatch

rst.Open "cash", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

XL.Range("A5").CopyFromRecordset rst
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209122
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ôîðìà1 = Форма1 :)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209123
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну дык и делай
Код: plaintext
1.
Dim xlShit As Excel.WorkSheet
Set xlShit = Forms!Форма!Контрол.Object

и работай с ним как с Worksheet'ом
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209124
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не... Слюшай сюда... Объяляй в Диме обычный контрол, затем присваивай этому переменной ссылку на контрол с Екселевским активиксом, а затем делай так:
Переменная.ВоркЩит.БлаБлаБля = ///

//чё лезу? забыл када с екселем последний раз работал...
Сорри...
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209125
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сорри, но контрол это что?
если это Excel.sheet.8, то "ex" это его name
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209126
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
во блин :) Екселевский активикс? :)
сорри я в VBA только неделю разбираюсь...
если можешь, то сделай примерный вид кода pls...
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209127
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это кому?
Кста, Всеволод В... Ну нажми в ВБА редакторе Ф2, набери там Ексель (по англицки) и посмори какие у него свойства и методы... Через них доберись до воркщит... Самому лениво (извини... не доконца трезв и спать уже хочется...)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209128
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ok ok Спасибо за участие!!!
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209130
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Значит, так. Когда сажаешь контрол на форму, он называется Microsoft Excel Worksheet. Однако если описать его как Object и взять от него typename, то он возвращает "workbook", и это и есть истина. Соответственно, если нужен Worksheet, то писать надо так:

Dim o As Excel.Worksheet
Set o = Me!OLEUnbound3.Object.Worksheets(1)
o.Cells(2, 3) = o.Cells(2, 3) + 1

У меня это работает, значения селлов он запоминает. Правда, на экране он мне их почему-то не показывает, но мне с этим разбираться лениво, у автора топика с этом вроде все в порядке.
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209133
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посморел... делай:

Dim a As Spreadsheet
Set a = Ссылка на контрол

нажимай "а" и "точка" и увидешь все то, чё оно может делать... удачев...
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209134
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а у меня называется Спридщит... Хотя сущность - щит - так и осталась
Саныч, пошел я переодеваться ;)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209135
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Нуф, мы с тобой друг друга поняли. :^)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209138
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Володь, ага... Поняли... (дальше отмаз): А вот понял ли нас Всеволод В? :)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209139
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у меня: класс OLE: Microsoft Excel
класс: Excel.sheet.8
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209141
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Работает вот что:

Me.ex.SetFocus
Dim rst As New ADODB.Recordset
Dim XL As OWC10.Spreadsheet
Set XL = Forms!Ôîðìà1!ex.Object

rst.Open "cash", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

XL.Range("1:15000").CopyFromRecordset rst

Но это не совсем то, что нужно - там ущербные возможности автофильтра...
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209142
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Ваня, все нас поняли. И это пилёха.

Всеволод, поступай как я написал. Оно работает.
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209143
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
единственное чего я не понял: что такое
Set o = Me!OLEUnbound3.Object.Worksheets(1) :)

что-то тяжелое :)
это и есть мой Excel.sheet.8 ????
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209144
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати, что такое пилёха? :)
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209145
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
:^) Куда девался мой воздушный шарик и откуда взялась эта тряпочка... Да, это оно. Просто OLEUnbound3 - это у меня так контрол назвался.
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209146
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"Не удается найти поле OLEUnbound3, указанное в выражении"
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209147
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Пилёха - это плохо. Если его надлежащим образом произнести.
...
Рейтинг: 0 / 0
Помогите, кто сможет!!!
    #32209148
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Володь, в етой жизни много плёхого случается... У мя сени на машине тормоз отказал ну напрочь! Педалька провалилась так и там и осталась... Хорошо что еще во время маневров случилось - ручником тормозил... А за флейм... За флейм нас простят надеюсь... Ну а и не простят? Будут думать плохо... что не приятно... не приятно, но не смертельно... надеюсь...
Всем ночи...
//пшел спать
...
Рейтинг: 0 / 0
25 сообщений из 85, страница 3 из 4
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите, кто сможет!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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