12 / 7 / 0
Регистрация: 16.09.2014
Сообщений: 248
|
||||||
1 | ||||||
Координаты и размеры объектов в Clipboard01.02.2020, 17:51. Просмотров 1338. Ответов 6
Метки нет Все метки)
(
Привет всем!
Как можно макросом "вытащить" и "запихнуть" в Clipboard: 1) Круги: координаты центров и соответствующие радиусы/диаметры, 2) Прямоугольники/квадраты: координаты центров и размеры, или координаты вершин цель - передать эту инфу в существующий Excel-макрос Заранее благодарен! Добавлено через 4 часа 10 минут Вот, посидел час-два, накропал такое:
Может кто укажет на ошибки и/или корявость?
0
|
|
01.02.2020, 17:51 | |
Координаты и размеры окна Размеры и координаты modeless диалога Ошибка при работе с Clipboard: "Сannot open clipboard. Отказано в доступе." |
|
180 / 179 / 30
Регистрация: 11.10.2016
Сообщений: 570
|
|
04.02.2020, 17:10 | 2 |
проще напрямую в ячейки записать нужную инфу, а Эксель-макросом ее оттуда считать
0
|
12 / 7 / 0
Регистрация: 16.09.2014
Сообщений: 248
|
|
14.02.2020, 11:25 [ТС] | 3 |
shark я очень извиняюсь - уехал в деревню, а когда вернулся - тема уже выветрилась из моей головы, поскольку тот макрос, что я написал работал для меня и я уже не заглядывал на форум.
вы писали"напрямую в ячейки записать" - буду благодарен за пример записи в уже открытую книгу/лист, а то что-то я уже часа полтора не могу разобраться.
0
|
180 / 179 / 30
Регистрация: 11.10.2016
Сообщений: 570
|
|
15.02.2020, 12:16 | 4 |
![]() Решение
в общих чертах код должен быть таким:
Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open("c:\book1.xls") 'открываем книгу Set oSheet = oBook.Worksheets(1) 'первый лист oSheet.Range("A1").Value = "Любые данные" 'адрес ячейки A1 все три вышеприведенные переменные должны быть объектного типа
1
|
12 / 7 / 0
Регистрация: 16.09.2014
Сообщений: 248
|
|
15.02.2020, 20:54 [ТС] | 5 |
shark спасибо! Но не будете ли вы так добры написать аналогичный пример для уже открытой книги? Понимаю что такие элементарные моменты положено знать самому, но туплю моментами сильно и искать нормально не получилось - несколько часов искал по фразам типа "запись в Excel из стороннего приложения" и тому подобные фразы, но не смог прояснить себе вопрос. Можно даже не пример, а правильно построенную поисковую фразу, по которой в поиске выйдет информация по теме. Заранее благодарен.
0
|
180 / 179 / 30
Регистрация: 11.10.2016
Сообщений: 570
|
|
18.02.2020, 22:16 | 6 |
для уже открытой книги вам нужно всего лишь обратиться к нужному листу
Set oSheet = oBook.Worksheets("Лист1") Вообще, могу посоветовать запустить Excel, там открыть тот же VBA и, как и в Кореловском VBA, можно по F2 посмотреть нужные функции. Та даже встроенный хелп есть с примерами. Я на Экселе не часто программирую, в основном больше по Корелу. Если у вас есть код, который в каком-то месте не работает, то могу подсказать что и как
1
|
12 / 7 / 0
Регистрация: 16.09.2014
Сообщений: 248
|
|
25.02.2020, 08:06 [ТС] | 7 |
Спасибо большое, shark!
0
|
25.02.2020, 08:06 | |
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Как определить видимые размеры/координаты окна Самопроизвольно меняются размеры связанных объектов Как получить точные размеры объектов? Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |