Excel через com порт


Download Article


Download Article

This tutorial explains how to establish a bidirectional real-time communication between Microsoft Excel and your RS232 COM Port devices like a Scale, Proximity reader, Barcode reader, temperature sensor, Caliper, Micrometer, Gage. This solution uses the software «Bill Redirect» with the «Excel Plugin» to easily connect your peripheral and receive and send the data. The communication between Microsoft Excel and your device is made via a direct DDE link. An Excel Macro can be called after each data received from your device to validate the data received. This solution explains how you can send a command via VBA to your device and totally control your device. No programming or additional hardware required!

  1. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 1

    1

  2. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 2

    2

    Download and install the Excel plugin. This is at http://www.billproduction.com plugin_DDE.zip. This plugin software is used to establish the communication with Microsoft Excel via DDE

  3. Advertisement

  1. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 3

    1

    Start the software: Bill Redirect. The default password to edit the configuration is: www.billproduction.com.

  2. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 4

    2

    Disable all section except the Serial Port and Plugin.

    • In section «Serial Port» set the switch to: On.
    • In section «Plugin» set the switch to: On.
  3. Advertisement

  1. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 5

    1

    Click on: Serial Port Configuration.

  2. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 6

    2

    Enter the Serial Port Number where your device is connected.

    • If the background color is green, it means that the serial port works and the port is open.

      • Select the Bauds, Parity and Databits configured in your device.
  3. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 7

    3

    Click on button: Save Configuration

    • If you use a RS-232 to USB converter to connect your device on the computer, it is important to use a converter with FTDI chipset for a good stability !
  4. Advertisement

  1. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 8

    1

    Start: Microsoft Excel
    . This solution is compatible with all Excel version and language !

  2. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 9

    2

    Create a in Excel a: new blank document.

  3. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 10

    3

    Make sure that the sheet name is: Sheet1.

  4. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 11

    4

    Save your Excel document to: C:BillProduction.CFGMyFile.xlsx.

  5. Advertisement

  1. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 12

    1

    Start the Excel Plugin
    .
    The default password to edit the configuration is: www.billproduction.com.

    • Important: The TCP Connection Status must indicate: Connect. If it is not to Connect then make sure that Bill Redirect Software is open.
    • In trial mode you must restart the software Bill Redirect after each 15 minutes to continue your test.»
  2. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 13

    2

    In the Excel Plugin click on the folder icon and select your Excel File created at step before.

    • If all is okay, the DDE Connection Status indicate: Connect.
    • At this point the communication is establish with your Device via Excel. The data received from your device is sent in Excel.
  3. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 14

    3

    Test your communication with Excel. Use the button: Test DDE. To see what your device sends or receive, use the section Debugger in Bill Redirect.

  4. Advertisement

  1. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 15

    1

    Consider example #1:’ Call an Excel Macro after each data received:

    • Simply enter your macro name in the field «Run macro:«
    • To test the call of your macro use the button at right.
  2. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 16

    2

    Consider example #2:’ Send a command to your device via VBA:

  3. Image titled Read RS232 to Excel Macro VBA Data Acquisition Step 17

    3

    To send data command from Excel to your device use this VBA Excel source code:

    • ChannelNumber = DDEInitiate(«BPEXCEL», «BPEXCEL»)
    • DDEExecute ChannelNumber, «{TX_SERIAL[Hello Word !{ASCII:13}]}»
    • DDETerminate ChannelNumber
    • Replace the command Hello Word !{ASCII:13} by the command you want.
    • Supplemental documentation.
    • Excel Plugin full manual with all explanation: http://www.billproduction.com
    • /Bill_DDE_over_Ethernet.pdf.
    • Bill Redirect Software full manual with all command:
      http://www.billproduction.com
    • /Bill_Redirect_Manual.pdf.
  4. Advertisement

Ask a Question

200 characters left

Include your email address to get a message when this question is answered.

Submit

Advertisement

Thanks for submitting a tip for review!

References

About This Article

Thanks to all authors for creating a page that has been read 31,754 times.

Is this article up to date?

Знаток

 

Регистрация: 13.07.2007

Сообщений: 652

Репутация: 117



Здравствуйте,уважаемые форумчане.
Мне необходимо передать в таблицу 255 строк(Начало конец строки, разделители и 5 параметров) из своего устройства.
Пользовался
Advanced Serial Data Logger ( платный) и настроить его непросто,тем кто не в теме. Деньги небольшие и последнее является определяющим.
Последнее меня тревожит более всего, заказчик очень своеобразен.
Куплю ему, а потом и вопли с выносом мозга.
Вопрос кто виноват понятно, что делать?
Задач у меня немеряно и советы по изучению в лучшем случае к сведению.
Работа свалилась внезапно вне расписания.
Цифру вопроса можно как-то озвучить, чтобы принять решение.


Оценка

Banned

 

Регистрация: 21.04.2012

Адрес: южнее Дуная

Сообщений: 4,318

Репутация: 416



Цитата:

Сообщение от Sergey57

…. Деньги небольшие и последнее является определяющим… заказчик очень своеобразен….Куплю ему, а потом и вопли с выносом мозга……Вопрос кто виноват понятно, что делать? Задач у меня немеряно ….чтобы принять решение.

Нуууу, раз дело такое, то отправьте Вашего мосью Клиента в Ямальскую тундру….. А если Вам задачка по душе, то займитесь ею как хобби, имхо… А если Ваш заказчик аппетитная Дамма, то озвучте ее телефон !!!!… Созвонимся, обсъдим на тощак !!!…..

ПП: что за массив данних нужно передать?…


Оценка

Приглашаем всех желающих принять участие в вебинаре, посвященном LED-драйверам. На мероприятии мы рассмотрим существующую и новую продукцию из линейки поставок Компэл для интерьерного, архитектурно-декоративного, наружного и промышленного освещения, а также специальные драйверы с повышенной выходной мощностью для освещения площадей, стадионов и теплиц. Будут представлены LED-драйверы производителей MEAN WELL, MOSO, Snappy, а также драйверы для аварийного освещения (ISSATA). Рассмотрим их особенности и преимущества; узнаем, какая новая продукция появилась у MEAN WELL за прошедший год, и чего нам ждать в будущем.

Новичок

 

Регистрация: 01.08.2012

Сообщений: 6

Репутация: 10



Отправить сообщение для xmailer с помощью Skype™

Цитата:

Сообщение от Sergey57

Пользовался
Advanced Serial Data Logger ( платный) и настроить его непросто,тем кто не в теме. Деньги небольшие и последнее является определяющим.

1. напишите как Вам нужно работать с com портом: в порт что-то валится от железки; нужно захватывать данные; нужно работать одновременно с несколькими com
2. формат того что валится: простые данные или может у Вас там modbus
—— резюме ———
3. могу написать десктопное win приложение или сервис по логированию данных от железки. Взамен мне нужны консультации по STM32, точнее по таймерам. Если у Вас есть опыт работы с STM32, давайте попробуем.


Оценка

Знаток

 

Аватар для dimmich

 

Регистрация: 12.11.2010

Адрес: Владимир

Сообщений: 229

Репутация: 101



Помню давно тоже интересовался подобной задачей. Только необходимость отпала, так и не реализовал. И помню что гугль вполне может помочь в Вашем вопросе.


Оценка

Новичок

 

Регистрация: 04.11.2008

Сообщений: 438

Репутация: 37



Самым простым путем, ИМХО, который я уже реализовывал не один раз, будет запись всех принимаемых данных в текстовом формате ( с небольшой ообработкой) в файл VB-скрипта. По окончанию приема всех данных этот файл запускается на выполнение через wscript.exe и вуа-ля, таблица готова. Примеры подобных скриптов можно без труда нарыть в Интернете или могу скинуть образец. Если надо — пишите


Оценка

Знаток

 

Регистрация: 13.07.2007

Сообщений: 652

Репутация: 117



Спасибо за исчерпывающие ответы xmailer и AkaU.
Вот опять всплыла тема, серию заказали.

В прошлый раз это всё сам точил и фрезеровал на своём ЧПУ , а в этот раз напечатаю на 3д принтере.
Так исторически сложилось , что дальше выдачи в компьютер я не лезу.
Нет времени и задач. Под STM32 нет задач. С моими задачами справляются 18 и 33 пики, если нужно ещё что-то круче, то ПЛК с панелью оператора.

Будет регулярная строка :начало строки, № по порядку(3р),№ строки (3р),
Угол 1 (4р),Угол 2 (4р),Дальность (4р), конец строки.
Виртуальный СОМ-порт.
Берегу ваше время Посему Цифру вопроса можно как-то озвучить, чтобы принять решение.


Оценка

Новичок

 

Регистрация: 01.08.2012

Сообщений: 6

Репутация: 10



Отправить сообщение для xmailer с помощью Skype™

Цитата:

Сообщение от Sergey57

Будет регулярная строка :начало строки, № по порядку(3р),№ строки (3р),
Угол 1 (4р),Угол 2 (4р),Дальность (4р), конец строки.
Виртуальный СОМ-порт.

Написал приложение по логированию данных по указанному формату из com порта в указанный excel файл. Для эмуляции поступление данных в com порт по формату написали нехитрый arduino скетч:

Код:

int npp = 1;   
int nstr = 10;
char buffer[18];

void setup() {
  Serial.begin(9600); 
}

void loop() {
   /*№ по порядку(3р),№ строки (3р), Угол 1 (4р),Угол 2 (4р),Дальность (4р)*/

   sprintf(buffer,"%3d%3d%4d%4d%4d",npp,nstr,random(0,360),random(0,360),random(0,9999));
   Serial.println(buffer);
   delay(5000); 

   if(npp > 32000){
      npp=1;
   }
   if(nstr > 32000){
      nstr=10;
   }
   nstr++;
   npp++;
}

Приложение можно скачать здесь
Настройка параметров

Журнал


Оценка

Новичок

 

Регистрация: 01.08.2012

Сообщений: 6

Репутация: 10



Отправить сообщение для xmailer с помощью Skype™

Sergey57 если приложение Вам подойдет, может правки какие, найдите пож-та для меня время.


Оценка

Знаток

 

Регистрация: 13.07.2007

Сообщений: 652

Репутация: 117



Спасибо за заботу и разъяснения.
Но вот кроме всех приколов сегодня целый день пытаюсь
подковать блоху. Занимаюсь механикой.
Разработал в содружестве с товарищами систему.
Радиоканалы и первичные датчики моя сфера ответсвенности.
Там ещё лазеры,СинхроДонесения и очень мудрённый обмен по радиоканалу. И для полного счастья пневматика.

Цитата:

Будет регулярная строка :начало строки, № по порядку(3р),№ строки (3р),
Угол 1 (4р),Угол 2 (4р),Дальность (4р), конец строки.
Виртуальный СОМ-порт.
Берегу ваше время Посему Цифру вопроса можно как-то озвучить, чтобы принять решение заранее .Сроки у меня будут очень жёсткие.
Начало работ и финансирования 20 октября.

И напоследок , чтобы прояснить ситуацию.

Нанимают киллера взорвать квартиру.
Называют город,Улицу,дом….
Он _А сколько за работу?
— Миллион баксов.
Он-Номер квартиры не нужен.


Оценка

Новичок

 

Регистрация: 01.08.2012

Сообщений: 6

Репутация: 10



Отправить сообщение для xmailer с помощью Skype™

Цитата:

Сообщение от Sergey57

Занимаюсь механикой.
Разработал в содружестве с товарищами систему.
Радиоканалы и первичные датчики моя сфера ответсвенности.
Там ещё лазеры,СинхроДонесения и очень мудрённый обмен по радиоканалу. И для полного счастья пневматика.

Данную программу я сделал быстро, поскольку работаю прикладным программистом, если нужно отдам исходники. У меня период перехода с avr на smt32, и свой живой проект. Насколько я понял — Вы профессионально занимаетесь микроэлектроникой, возможно Вы могли бы ответить на несколько конкретных вопросов и не особо важно на какой архитектуре. В данном случае — деньги меня не интересуют, нужен спец по микроэлектронике. Мой скайп gserg51 или свой скажите


Оценка

Что это за АСУ такая, которая в качестве источника данных использует Excel-таблицу? :-) Она точна Автоматическая Система Управления? Или может это все-же утилита, выполняющая анализ и постобработку данных? 

В любом случае «простых» вариантов 2:

1) передавать с девайса на ПК CSV — файл. Выполнить это можно практически любым терминалом, включив логгирование в файл. CSV — Comma Separated Values, обычный текстовый файл, где каждая строка представляет собой что-то такое «xxxx4n». Запятые, а на деле практически любой специальный символ, не встречающийся в xn, разделяет отдельные значения, образуя эдакие «колонки». Полученный текстовый файл запросто импортируется в Excel (как именно — зависит от версии), а уже оттуда экспортируется в «фирменный» формат;

2) курим VBA, он-же Visual Basic for Applicatoins, и встраиваем чтение последовательного порта прямо в Excel-файл. И будет там буквально кнопка, скажем, «Пуск», которая будет читать результаты из порта и сразу раскидывать по ячейкам;

Ну а варианты «по-круче» зависят от времени, квалификации и ресурсов. :-)


Изменено 11 октября, 2019 пользователем El-Shang

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

Воплощаю в жизнь следующую задачу:  
Необходимо создать макрос, управления реле, через com порт (два элемента управления – кнопка ВКЛ, кнопка ВЫКЛ).    

  Алгоритм в сом порт:  
1. Устанавка  DTR в «HIGH» – включено (ножка 4)  
2. Устанавливаем DTR в «LOW» – выключено (ножка 4)  

  Прошу помощи с кодом программы …

 

subtlety

Пользователь

Сообщений: 375
Регистрация: 01.01.1970

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

Перевожу в RGB, а CMYK пока через программку специальную (времени не хватает до ума довести). А так успешно у же на протяжении недели смешиваю красочки!!!!  
Проблемка есть… Минимальный доза краски у меня  — капля из шприца, чем более точное соотношение, соответственно больше нужно краски в объеме…А это не экономично.. Сейчас работаю над дозированием в объеме меньшей капли… (думаю собрать, что-то по типу дюзы стрйного принтера только большего размера Буду эксперементировать….эксперементировать…

 

subtlety

Пользователь

Сообщений: 375
Регистрация: 01.01.1970

Т.е. моим решением не пользуетесь.  
А почему, если не секрет? Неправильно раскладывает или что?  

  «два элемента управления – кнопка ВКЛ, кнопка ВЫКЛ»  
А почему не переключатель (радиокнопка)?

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

1.Большое спасибо за предоставленную помощь!!!!  
Просто когда через ексель перевожу — есть некоторая «кривизна» по отношению с программкой…. (остаил на чуть, чуть попозже — все равно буду выстраивать всю цепочку автоматизации!)  

  2. Можно и переключатель (нет в принципе ни какой разницы)… Просто с кнопками уже имел дело в VB. а переключатель надо осваивать… Но все же дело не в том дело с COM портом как написать макрос…

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

А вот это из нужной «оперы»:  
На два вывода  СОМ порта — DTR и RTS можно вывести (+12В) или (-12В), и тем самым зажечь светодиод, включить реле или какой-то другой исполнительный механизм. Например, для вывода RTS, это команды:    

  MSComm1.RTSEnable = False   (3)   выводит на 7 ножку +12Вольт.  

  MSComm1.RTSEnable = True    (4)   выводит на 7 ножку  -12Вольт.

 

subtlety

Пользователь

Сообщений: 375
Регистрация: 01.01.1970

«есть некоторая «кривизна» по отношению с программкой»  

  Так объясните — какая. Я в цветах ничего не соображаю, я же признался уже =)  
«дело с COM портом как написать макрос» Это читали уже?  

http://forum.ru-board.com/topic.cgi?forum=33&topic=10166   
http://www.pcports.ru/articles/ke_usb10.php

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

Значения разняться (по отношению с програмкой) у пурпурного и желтого…. Черный в точку! (думаю, что там в формулке кака я то ошибка — незначительная)Я если честно еще глубоко туда не лез.. Но залезу!  
Рисковать немогу… красочка дорогая.. (но я еще раз повторюсь, что очень благодарен за помощь! Все файлики себе скопировал)

 

subtlety

Пользователь

Сообщений: 375
Регистрация: 01.01.1970

Хмм, дайте что ли ссылку на эту программу, вечером посмотрю, поправлю свою.

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

ссылки нет -есть название программы  
«Peacock Color Picker»

 

artclon1

Пользователь

Сообщений: 23
Регистрация: 01.01.1970

ActiveX элемент MSComm — необходим ясно!  

  Настроить — более менее ясно (кромеVal(TextBox1.Value)  

  Private Sub CommandButton1_Click()  
‘Настраиваем порт  
   KeUSB.CommPort = Val(TextBox1.Value)  
   KeUSB.Settings = «9600,N,8,1»  
   KeUSB.Handshaking = comNone  
   KeUSB.InputLen = 0  
   KeUSB.InBufferSize = 40  
   KeUSB.OutBufferSize = 40  
   KeUSB.RThreshold = 0  
‘Открываем порт  
   KeUSB.PortOpen = True  
End Sub  

  Осталось записать в порт  
DTR в «HIGH»    
DTR в «LOW»    

  А как…

 

subtlety

Пользователь

Сообщений: 375
Регистрация: 01.01.1970

Этого достаточно, вечером посмотрю.

 

Guest

Гость

#13

06.04.2012 14:10:35

может создать две кнопки, на одну  
KeUSB.Output =»HIGH»  
на другую  
KeUSB.Output =»Down»   

http://www.activexperts.com/serial-port-component/howto/vba/  
http://www.pencomdesign.com/support/relay_software/vba_software_example.htm  
http://www.tek-tips.com/viewthread.cfm?qid=560230

Понравилась статья? Поделить с друзьями:
  • Excel чем редактировать на iphone
  • Excel чем используется диапазон
  • Excel чем заменить много если
  • Excel чекбокс да или нет
  • Excel чек лист скачать бесплатно