Поиск
Автор: jfd. Доброго всем времени суток,
хотел бы снова полохматить тему COM-порта и 64-битного экселя.
Встроенная библиотека mscomm32.ocx в 64 не работает, как все знают.
Есть некий ее аналог NETComm.ocx (http://www.hardandsoftware.net/NETCommOCX.htm) для 64битных систем.
Может кто с ней сталкивался и работал?
Изменен: 05.01.2017
Читать сообщение на форуме или сайте.Автор: jfd. Доброй ночи,
можно ли получить получить список отрытых СОМ портов и название устройства в нем?
Например HUAWEI Mobile Connect - 3G PC UI Interface
Цель: после запуска макроса мониторить СОМ-порты, когда нужное устройство окажется подключенным перейти к дальнейшим действиям
Для работы с портами использую MSCommLib, с ней есть проблемы (не работает на 64-битном офисе), если подскажите альтернативу, буду признателен
Заранее благодарен за ответы
Изменен: 10.02.2016
Читать сообщение на форуме или сайте.Автор: molodoi59. Public COM As New MSComm
Sub Startdt_Click()
Dim i As Integer
COM.Settings = "9600"
COM.CommPort = "4"
COM.InputLen = 0
If COM.PortOpen = True Then COM.PortOpen = False
COM.PortOpen = Not COM.PortOpen
Application.Wait (Now + TimeValue("0:00:03"))
COM.Output = Cells(10, 2) (не работает так)
End Sub
Все что удалось собрать, только вот COM.Output как заставить отправлять ...
Изменен: 23.06.2019
Читать сообщение на форуме или сайте. ... (limit of areas that Excel can copy)
Накопал макрос по растаскиванию ... в новые листы. Но ограничение портит всю малину. Видимый диапазон намного ... in the filter range.
'You can also add the sheet name ... on a cell value you can use this, use "" ... (limit of areas that Excel can copy)
CCount = 0
On Error ...
Изменен: 27.11.2012
Читать сообщение на форуме или сайте.Автор: jfd. Добрый день уважаемые
помогите плиз, посоветуйте чтонибудь
проблема - в названии темы
Win 8.1 Prof x 64 Office 2013 x64
библиотеку зарегистрировал успешно и в system32 и sysWOW64, regsvr32 запускал из той папки в которой лежал mscomm32.ocx
В References найдена и отмечена галкой. Location - SysWOW64
И так пробовал CreateObject("MSCommLib.MSComm")
И не работает.
ПС. Понятно что это не самоцель. Надо получить доступ к СОМ порту, но с inpout.dll даже ...
Изменен: 15.12.2015
Читать сообщение на форуме или сайте.Автор: AlexeyS. Здравствуйте господа!
Есть задача, связать измерительный прибор с ПК через интерфейс RS232(COM), чтобы как минимум организовать переброс данных в Excel для дальнейшей обработки, а как максимум еще и управлять прибором. Откуда-то скачал MSCOMM32.OCX, добавил в элементы управления, но при попытке добавить элемент на форму выскакивает "Субъект не имеет доверия для..." Вопрос как победить данную проблему? И есть ли альтернативы? Excel 2007 ОС Windows XP.
Изменен: 22.06.2015
Читать сообщение на форуме или сайте. ... - непосредственно имени принтера и имени порта: sMyPrinterName= "Имя_принтера (Ne##:)& ... EMF 1.003» применяется имя порта, равное свойству «PortName» - в ... на следующие странички:
stackoverflow.com и dailydoseofexcel.com
Из первой ссылки было ... ссылки получена идея взять номер порта из реестра. Там же предлагается ... = arr
End Sub
'Получаем номер порта для указанного принтера
Function PortNameFromReg ... Then
'Выделяем из значения имя порта
arrSplt = Split(sPortName, ",& ...
Изменен: 03.02.2016
Читать сообщение на форуме или сайте. ...
sock.connect(("www.cmegroup.com", 80)) #HTTP protocol
ip ... = socket.gethostbyname('www.cmegroup.com')
print(ip)
sock.sendall(b ... ; (мой компьютер) подключиться к 1433 порту для отправки серверу запроса и ... том, что я не настроила порт 1433 ? - хотя вроде открыла его ... получается, потому что 1433-порт - это порт для прослушивания MS SQL Server ...
Изменен: 14.11.2019
Читать сообщение на форуме или сайте. ... ;
End Function
sub xxx
Dim Con, Rec, Table As Object
Set ... ("ADODB.Connection")
Con.CursorLocation = 3
Con.Open (StringConnect)
Query = " ... .datemove asc"
Set Table = Con.Execute(Query)
'Table ... = i + 1
Loop
Con.Close
end sub
Переадресацию портов нужно сделать в ...
Изменен: 22.11.2020
Читать сообщение на форуме или сайте. ... . Прошу совета у специалистов. Есть портал, необходимо на нем авторизоваться и ... Const URL_Login = "http://aaa.com/" ' страница входа
Public Const ... URL_LoginOK = "http://aaa.com/Supplier" ' сюда попадем, если ... Const URL_main = "http://aaa.com/Supplier" ' а эта страница ... ;markup" по адресу aaa.com/Supplier
With ActiveSheet.QueryTables.Add ... := _
"URL;http://aaa.com/Supplier", Destination:=Range(" ...
Изменен: 14.10.2013
Читать сообщение на форуме или сайте. ... какую переменную записывает данные с порта
пытался в строчке
If InStr ... , но она само запускается
пишет (can't execute code in break ... " должно присвоиться значение из порта, но присваиваться s="" ... на .input показывает данные из порта.
Это так должно быть?
Можете ...
чтобы понять как данные из порта присвоить переменным и записать в ...
Изменен: 15.02.2011
Читать сообщение на форуме или сайте. ... ("ADODB.Recordset")
Set cnn = CreateObject("ADODB.Connection" ... ) as t4 FROM " & db
cnn.Open "Provider=Microsoft.ACE ... .OLEDB.12.0;Data Source=\\***.com\sites\operating\logistic\HQ\ORD ... ;HDR=YES"";"
cnn подключается к открытой книге Excel ... , чтобы пользователь открыл файл с портала, исполнил пару запросов и сохранил ...
Изменен: 10.03.2015
Читать сообщение на форуме или сайте.