Автоматизировать операции "вкл-выкл"

[proavg]

Есть задумка, которую не могу воплатить своими силами, подскажите решение.
Задача стоит следующая, имеется файл данных в строке 7 ячеек, в конце строки добавил кнопки управления ВКЛ и ВЫКЛ.
Надо при нажатии кнопки, например ВКЛ, взять данные из ячеек, подставить в шаблон команды и запустить все это через telnet.

Возможно ли такое соорудить средствами excel?

[EducatedFool]

Возможно ли такое соорудить средствами excel?

Да, конечно.

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

Не обязательно просто запускать встроенный в Windows Telnet-клиент (с ним, как с консольным приложением, сложно работать программно)

Я обычно всю задачу выполняю средствами VBA - Excel устанавливает соединение с нужным устройством через Telnet, обменивается с ним информацией, и на лист Excel выводится полученная (и уже обработанная) информация от устройства.

Как работать с TELNET из VBA - написано в статье Работа из VBA Excel с оборудованием через Telnet

Код выглядит примерно так:

Function GetRPN_forDECTnumber(ByRef Номер As PhoneInfo, ByVal checktime As Integer)
    If Not Connect_Alcatel Then Exit Function

    Dim sh As Worksheet, ra As Range: Set sh = PrepareSheet_for_GetRPN_forDECTnumber(Номер)
    If sh Is Nothing Then Disconnect_Alcatel: Exit Function
    t = Timer: Flag_StopGettingInfoFromALCATEL = False

    On Error Resume Next
    Set ExecAnswers = New Collection: EQ.Commands.ClearItems
    EQ.Commands.AddCommand "termstat d " & Номер.PhoneNumber, "Your choice [1-5, q for quit]:", "Error", 5000
    If Not EQ.Commands.ExecuteAll(Conn, ExecAnswers) = EQ.Commands.Items.count Then _
       MsgBox "Error GetRPN_forDECTnumber": Disconnect_Alcatel: Exit Function

    While Timer < t + checktime And Not Flag_StopGettingInfoFromALCATEL
        Set ExecAnswers = New Collection: EQ.Commands.ClearItems
        EQ.Commands.AddCommand "1", "PRESS ANY KEY TO CONTINUE", "Error", 5000
        EQ.Commands.AddCommand "", "Your choice [1-5, q for quit]:", "Error", 5000
        If EQ.Commands.ExecuteAll(Conn, ExecAnswers) = EQ.Commands.Items.count Then beepH0
        res = Get_TERMSTAT_info(ExecAnswers(1)(2), sh)
    Wend

    Set ExecAnswers = New Collection: EQ.Commands.ClearItems
    EQ.Commands.AddCommand "q", EQ.Prompt, "Error", 5000
    If EQ.Commands.ExecuteAll(Conn, ExecAnswers) = EQ.Commands.Items.count Then beepH0

    Set ra = sh.Range("b65000").End(xlUp).Offset(1).Resize(, 4)
    ra.Interior.Color = vbCyan:: SetRangeBorders ra, xlContinuous, xlMedium
    ra.Value = Array("Запрос завершён", "", Format(Now, "HH:MM:SS"), "")
    ra.Font.Bold = True

    Disconnect_Alcatel
End Function

[proavg]

Описание в файле

[EducatedFool]

Описание в файле

Реализовать могу. Но не бесплатно. (работы много)

От вас - один из таких управляемых коммутаторов, подключенный к интернету (с белым адресом), чтобы я мог тестировать код на используемом Вами железе.
(разное оборудование имеет разные задержки, и особенности общения через Telnet)