Office Templates Не работает Вставка
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Office Templates Не работает Вставка
Кто знает почему тут все работает, кроме Paste()? Я уже и так и всяк пробовал. Нажимаешь Ctrl+V - все ОК.
SETCLIPBOARD('Test') ! Copy text into the windows clipboard
MSExcel1.Select('C1') ! Select cell
MSExcel1.Paste() ! Copy the windows clipboard contents into the selected cell
За ранее благодарен за ответы
SETCLIPBOARD('Test') ! Copy text into the windows clipboard
MSExcel1.Select('C1') ! Select cell
MSExcel1.Paste() ! Copy the windows clipboard contents into the selected cell
За ранее благодарен за ответы
С уважением Густаво Адольфо Ромеро Матуте
-
- ✯ Ветеран ✯
- Сообщения: 1014
- Зарегистрирован: 08 Июль 2005, 6:48
- Откуда: Россия
- Поблагодарили: 1 раз
Office Templates Не работает Вставка
привет. стесняюсь, но спрошу - ось/версия клаши/какие именно темплейты - версия/пример вашего проблемного кода - желательно не обрывок/доку по Office Templates смотрели?
ps - ответа пока не увидел, поэтому, если речь шла про Office Templates v2.0 от SoftMasters Team и не работает paste, то можно поступить так - читаем в доке FAQ по Excel - "Can I use any function available in Microsoft Excel inside my Clarion application? Yes. Just call any of the ExecFunction methods, followed by a call to one of the Read methods to retrieve the results."
и применяем как-то так:
ps - ответа пока не увидел, поэтому, если речь шла про Office Templates v2.0 от SoftMasters Team и не работает paste, то можно поступить так - читаем в доке FAQ по Excel - "Can I use any function available in Microsoft Excel inside my Clarion application? Yes. Just call any of the ExecFunction methods, followed by a call to one of the Read methods to retrieve the results."
и применяем как-то так:
Код: Выделить всё
!вставка - типа Paste
SETCLIPBOARD('Test') ! Copy text into the windows clipboard
MSExcel1.Select('C1') ! Select cell
MSExcel1.ExecFunction(CLIPBOARD()) ! Copy the windows clipboard contents into the selected cell
!SETCLIPBOARD('')
- RaFaeL
- ✯ Ветеран ✯
- Сообщения: 1376
- Зарегистрирован: 24 Март 2009, 17:59
- Откуда: НН
- Благодарил (а): 7 раз
- Поблагодарили: 1 раз
- Контактная информация:
Office Templates Не работает Вставка
Начиная с версии 2007 в офисе несколько своих клипбордов, вы включите запись макроса и посмотрите, что там на вставку делается, скорее всего нужен какой-то другой код VBA, отличный от того, что в шаблоне
Office Templates Не работает Вставка
Код с Хелпа Office Templates, это их пример использование. Клара 6.3 Офис 2003, Винда ХП, Office Templates v2.1. SETCLIPBOARD('Test') работает на ура, после выполнение нажимаю Ctrl+V и появляется Test.
С уважением Густаво Адольфо Ромеро Матуте
-
- ✯ Ветеран ✯
- Сообщения: 1014
- Зарегистрирован: 08 Июль 2005, 6:48
- Откуда: Россия
- Поблагодарили: 1 раз
Office Templates Не работает Вставка
спасибо, понятно. приведенный мной выше "MSExcel1.ExecFunction(CLIPBOARD())" сработал?
поищите в abexcel.clw 'paste', у меня так:
Код: Выделить всё
...
!==============================================================================
MSExcelClass.ExecFunction PROCEDURE(STRING Contents)
CODE
SETCLIPBOARD(Contents)
SELF.SendCommand('ActiveSheet.Paste')
SETCLIPBOARD('')
...
Последний раз редактировалось Ал 01 Октябрь 2017, 13:06, всего редактировалось 2 раза.
Office Templates Не работает Вставка
Ал, Спасибо!! Этот метод сработал. Буду и дальше копать ))))
С уважением Густаво Адольфо Ромеро Матуте
Office Templates Не работает Вставка
Точ в точ так и у меняАл писал(а): ↑01 Октябрь 2017, 12:45спасибо, понятно. приведенный мной выше "MSExcel1.ExecFunction(CLIPBOARD())" сработал?
поищите в abexcel.clw 'paste', у меня так:Код: Выделить всё
... !============================================================================== MSExcelClass.ExecFunction PROCEDURE(STRING Contents) CODE SETCLIPBOARD(Contents) SELF.SendCommand('ActiveSheet.Paste') SETCLIPBOARD('') ...
С уважением Густаво Адольфо Ромеро Матуте
-
- ✯ Ветеран ✯
- Сообщения: 1014
- Зарегистрирован: 08 Июль 2005, 6:48
- Откуда: Россия
- Поблагодарили: 1 раз
Office Templates Не работает Вставка
, при этом самом в ...inc/clw этого paste для excel нет?, а для office есть? я имею ввиду в виде отдельной процедуры для .Paste()
-
- ✯ Ветеран ✯
- Сообщения: 1014
- Зарегистрирован: 08 Июль 2005, 6:48
- Откуда: Россия
- Поблагодарили: 1 раз
Office Templates Не работает Вставка
т.е. я намекаю на то, что для того чтоб "взлетело" как у них в примере
Код: Выделить всё
Кто знает почему тут все работает, кроме Paste()?
SETCLIPBOARD('Test') ! Copy text into the windows clipboard
MSExcel1.Select('C1') ! Select cell
MSExcel1.Paste() ! Copy the windows clipboard contents into the selected cell
Код: Выделить всё
Paste PROCEDURE(),VIRTUAL
Код: Выделить всё
!==============================================================================
MSExcelClass.Paste PROCEDURE()
CODE
SELF.Select('ActiveCell.Value')
SELF.SendCommand('ActiveSheet.Paste')
!SETCLIPBOARD('') !тут по "вкусу", если надо оставлять в клипборде, то не чистим, если надо очищать - надо очистить
Office Templates Не работает Вставка
Еще 1 вопрос, если можно. Как получить код цвета ячейки экселя? Всю голову сломал, искал в инете решение, не получается (
С уважением Густаво Адольфо Ромеро Матуте
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Office Templates Не работает Вставка
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Экспорт в Microsoft Excel (много)
2 - 0 Спасибо! Я пользовался .Interior.ColorIndex без ActiveCell, вот и ошибка!!!!!!
С уважением Густаво Адольфо Ромеро Матуте
- Admin
- Администратор
- Сообщения: 3959
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Office Templates Не работает Вставка
Я так понял пост ошибочно не в ту тему кинули? Перенес.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса