|
|
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
дак че делать то а? :)) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:37 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
судя по названию Excel.sheet.8 там Worcksheet :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:38 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
ну и делай тогда в Dimе объявление переменной как ВоркЩит... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:42 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Типа я не совсем пень :)) 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:44 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Ôîðìà1 = Форма1 :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:44 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
ну дык и делай Код: plaintext 1. и работай с ним как с Worksheet'ом ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:45 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
не... Слюшай сюда... Объяляй в Диме обычный контрол, затем присваивай этому переменной ссылку на контрол с Екселевским активиксом, а затем делай так: Переменная.ВоркЩит.БлаБлаБля = /// //чё лезу? забыл када с екселем последний раз работал... Сорри... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:45 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
сорри, но контрол это что? если это Excel.sheet.8, то "ex" это его name ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:47 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
во блин :) Екселевский активикс? :) сорри я в VBA только неделю разбираюсь... если можешь, то сделай примерный вид кода pls... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:50 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
это кому? Кста, Всеволод В... Ну нажми в ВБА редакторе Ф2, набери там Ексель (по англицки) и посмори какие у него свойства и методы... Через них доберись до воркщит... Самому лениво (извини... не доконца трезв и спать уже хочется...) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:56 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
ok ok Спасибо за участие!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 00:57 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Значит, так. Когда сажаешь контрол на форму, он называется 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 У меня это работает, значения селлов он запоминает. Правда, на экране он мне их почему-то не показывает, но мне с этим разбираться лениво, у автора топика с этом вроде все в порядке. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:00 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
посморел... делай: Dim a As Spreadsheet Set a = Ссылка на контрол нажимай "а" и "точка" и увидешь все то, чё оно может делать... удачев... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:08 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
а у меня называется Спридщит... Хотя сущность - щит - так и осталась Саныч, пошел я переодеваться ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:11 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Нуф, мы с тобой друг друга поняли. :^) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:12 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Володь, ага... Поняли... (дальше отмаз): А вот понял ли нас Всеволод В? :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:16 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
у меня: класс OLE: Microsoft Excel класс: Excel.sheet.8 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:18 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Работает вот что: 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 Но это не совсем то, что нужно - там ущербные возможности автофильтра... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:19 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Ваня, все нас поняли. И это пилёха. Всеволод, поступай как я написал. Оно работает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:20 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
единственное чего я не понял: что такое Set o = Me!OLEUnbound3.Object.Worksheets(1) :) что-то тяжелое :) это и есть мой Excel.sheet.8 ???? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:23 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
кстати, что такое пилёха? :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:24 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
:^) Куда девался мой воздушный шарик и откуда взялась эта тряпочка... Да, это оно. Просто OLEUnbound3 - это у меня так контрол назвался. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:24 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
"Не удается найти поле OLEUnbound3, указанное в выражении" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:25 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Пилёха - это плохо. Если его надлежащим образом произнести. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:25 |
|
||
|
Помогите, кто сможет!!!
|
|||
|---|---|---|---|
|
#18+
Володь, в етой жизни много плёхого случается... У мя сени на машине тормоз отказал ну напрочь! Педалька провалилась так и там и осталась... Хорошо что еще во время маневров случилось - ручником тормозил... А за флейм... За флейм нас простят надеюсь... Ну а и не простят? Будут думать плохо... что не приятно... не приятно, но не смертельно... надеюсь... Всем ночи... //пшел спать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.07.2003, 01:25 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32209139&tid=1680516]: |
0ms |
get settings: |
5ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
55ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
58ms |
get tp. blocked users: |
1ms |
| others: | 190ms |
| total: | 333ms |

| 0 / 0 |
