Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Общие вопросы по программированию, компьютерный форум
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2021, 02:20   #1
elshad66
Новичок
Джуниор
 
Регистрация: 24.05.2021
Сообщений: 1
По умолчанию Нужна помощь в создании кода для кнопки макроса

Доброе время суток,всем крепкого здоровья и всех благ. Нужна помощь в создании кода для кнопки макроса.
Собрал внуку чпу рисовалку, по бороздив просторы интернета нашел 2 макроса для corel.
Первый макрос генерирует УП(управляющяя программа) ,и выкидывает в C:\CDR2Mill\CDR2Mill.txt.
Второй макрос отправляет УП на рисовалку.
Каждый раз приходиться копировать содержимое CDR2Mill.txt и вставлять в окно отправщика удаляя предыдущий УП.
Хотелось бы, как то сократить телодвижения с copy/paste.Много форумов по макросам перелопатил,но так и не нашел,
есть копирование тхт в экзель, ворд итд , а мне нужно копирование в окошко макроса.Большое спасибо тому кто поможет в написании кода
Для наглядного представления приложил видео

http://moemesto.ru/elshad66/file/151...y/macro%20.rar


эта ссылка почему-то не открывается с сайта, если скопировать адрес ссылки и открыть в новом окне ,то открывается

Последний раз редактировалось elshad66; 28.05.2021 в 16:05. Причина: не открываеться ссылка
elshad66 вне форума Ответить с цитированием
Старый 28.05.2021, 23:07   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Если создали кнопку, ну так и допилить туда что-то подобное
Код:

Dim Total As String
Dim FilePath As String
Dim strLine As String
FilePath = ' Путь к файлу txt
Open FilePath For Input As #1
While EOF(1) = False
    'read the next line of data in the text file
    Line Input #1, strLine
    Total = Total & vbNewLine & strLine
Wend
Close #1

TextBox_Куда_Надо_Вывести_Текст = Total
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь в создании прошивки для IP камер nikon2001 Общие вопросы по программированию, компьютерный форум 1 09.12.2017 23:27
Срочно нужна помощь в создании программы для диплома. если программа не утопична. то нужен программист! проблемныйстудент Фриланс 2 11.04.2015 20:46
Помощь в создании макроса. II4eJI Microsoft Office Excel 4 11.01.2015 17:52
Нужна помощь в создании кнопки на Панеле инструментов SeeWhoIam Помощь студентам 0 03.12.2009 19:32