Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Oleksandr Гость
|
Добавлено: Пт Фев 22, 2013 5:51 pm Заголовок сообщения: Как отправить значение переменной в буфер? |
|
|
Я один способ нашел, но какой-то он очень левый. Может есть какие-то получше варианты?
Код: |
Dim book1
Set book1 = app.CreateBook(,False)
book1.Sheet1.cell (1, 1).Value = "Hello!"
book1.Copy
Set book1 = Nothing
|
|
|
Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005 Сообщения: 434 Откуда: Donetsk
|
Добавлено: Пт Фев 22, 2013 6:14 pm Заголовок сообщения: Re: Как отправить значение переменной в буфер? |
|
|
Oleksandr писал(а): | Я один способ нашел, но какой-то он очень левый. |
Почему - левый? Очень даже - правый!
range.copy - вроде работает
А - зачем? |
|
Вернуться к началу |
|
|
Oleksandr Гость
|
Добавлено: Пт Фев 22, 2013 6:28 pm Заголовок сообщения: |
|
|
AllexL писал(а): |
А - зачем? |
Зачем это нужно?
Сделал свой диалог для запуска отчетов. С дополнительным уровнем папок в дереве. Чтоб можно было рассортировать. И решил добавить полезную фичу - копирование названия отчета из дерева в буфер по правой кнопке.
AllexL писал(а): |
Почему - левый? Очень даже - правый!
|
Создавать объект ShtBook для одного копирования? Я представлял себе более простой способ. Функция может какая-то. Ну работает и ладно. Учитывая что это не критично по времени выполнения. |
|
Вернуться к началу |
|
|
Oleksandr Гость
|
Добавлено: Сб Фев 23, 2013 6:41 am Заголовок сообщения: Re: Как отправить значение переменной в буфер? |
|
|
AllexL писал(а): |
range.copy - вроде работает
|
range - это что, название ShtBook?
Еще вопрос, почему в справке объект называется DlgTreeView, а в Акценте DlgTree? |
|
Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005 Сообщения: 434 Откуда: Donetsk
|
Добавлено: Пн Фев 25, 2013 10:44 am Заголовок сообщения: |
|
|
Oleksandr писал(а): | AllexL писал(а): |
А - зачем? |
Зачем это нужно?
Сделал свой диалог для запуска отчетов. С дополнительным уровнем папок в дереве. Чтоб можно было рассортировать. И решил добавить полезную фичу - копирование названия отчета из дерева в буфер по правой кнопке.
|
Запуск отчета
Код: |
if dlg.DoModal = vbOK then
' запуск отчета
call app.createBook("MyReport.ash",true,"The best caption I've ever seen")
End if
|
в отчете
Код: |
sub shtBook_onLoad
If Not IsEmpty( shtBook.startParam ) Then
sheet1.Cell( TitleRow, 1).Value = shtBook.startParam
End If
end sub
|
|
|
Вернуться к началу |
|
|
Oleksandr Гость
|
Добавлено: Пн Фев 25, 2013 11:58 am Заголовок сообщения: |
|
|
Не понял, что это? |
|
Вернуться к началу |
|
|
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Вт Фев 26, 2013 4:39 pm Заголовок сообщения: |
|
|
Oleksandr писал(а): | Не понял, что это? |
Забыли в онлоад копирование в буфер и автоматическое закрытие добавить. Типа автоматизация - выкидывание кода из диалога в отчет |
|
Вернуться к началу |
|
|
|