[CDR X5-X8] Нужна помощь в создании кода для кнопки макроса

[elshad66]

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

 

[lev]

Private Sub CommandButtonImportgcode_Click()
  gc = "c:\cdr2mill\cdr2mill.txt"
  Open gc For Input As #1
  Do While Not EOF(1)
    Line Input #1, s
    ss = ss & s
  Loop
  Close #1
  TextCode = ss
End Sub

 

[elshad66]

Спасибо за то что отозвались, какую то ошибку выдает

 

[elshad66]

LEV.. Вот здесь второй макрос вроде работает но копирует в экзель может его как то отредактировать?

Объединить 2 макроса в 1 - VBA - Киберфорум

Объединить 2 макроса в 1 VBA Решение и ответ на вопрос 1660739

www.cyberforum.ru

 

[lev]

Извините, я не хочу "смотреть кино", не хочу ползать на другие форумы, я из этой темы устраняюсь. Может кто другой поможет.

 

[_MBK_]

Напишите словами или скриншот приложите что не так с тем макросом?

 

[elshad66]

вставил код который предложил lev . клик на кнопку выдал ошибку , видео ошибки в архиве ошибка.rar

 

[elshad66]

вот скрин

 

[elshad66]

cdr2mill на диске С и имя заглавными буквами написаны , также вписал в код ,результат тот же

 

[_MBK_]

А текст ошибки то какой?
Возможно, у вас стоит установка предупреждений на всех необъявленных символах, а в этом коде переменная gc не объявлена
Попробуйте поставить в начале процедуры DIM gc

 

[dastin]

результат тот же

можно ваш макрос с изменениями - целиком - в виде gms - упакованный в zip или rar - сюда выложить - чтобы был предметный разговор?
А также в какой версии CorelDRAW предполагается его использовать?

 

[_MBK_]

целиком - в виде gms

Нененене лучше в bas текст

 

[splxgf]

напишите полностью что за ошибка, код приведен нормальный, может переменная gc где-то используется, или
TextCode.Text = ss
или строгий синтаксис включен, дальше уже дорабатывайте по месту.

 

[elshad66]

вот взял здесь

Corel Draw подключаем к китайскому граверу GRBL - cnc-club.ru

www.cnc-club.ru

 

[elshad66]

этот макрос прекрасно работает ,я еще добавил нужные кнопочки

 

[dastin]

я еще добавил нужные кнопочки

причём только вы знаете какие ... и как предлагаете разбираться?

 

[splxgf]

никто не будет бегать по левым форумам и устанавливать в корел хз что.
Выложите полный код или разберитесь сами, там делов на пару сек.

 

[_MBK_]

Ставлю на

строгий синтаксис включен

проверьте Option Explicit
И если да то

Попробуйте поставить в начале процедуры DIM gc

 

[elshad66]

поставил Dim gc , не сработало

 

[splxgf]

dim s
dim ss
еще