опрос порта по расписанию

[Joslen_bomon]

Есть код:

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Private Sub CommandButton1_Click()



[a1] = (Inp(&H378))

End Sub

т.е. по щелчку, в ячейку а1 заноситься значение ПИНов LPT порта.

Необходимо, что бы значения туда заносились не по щелчку а автоматически раз в 5 секунд. как это сделать ?

Как сделать так, что бы код заноса в ячейку активировался при открытии книги, а не при запуска кода в VBA ?

[EducatedFool]

В модуль ЭтаКнига

Private Sub Workbook_Open()
    Main
End Sub

В стандартный модуль:

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Sub Main()
    t = Timer
    Do
        While Timer - t < 0.2: DoEvents: Wend ' интервал 0,2 секунды
        [a1] = Inp(&H378)
        ' Debug.Print Now
        t = Timer
    Loop
End Sub

Пример файла: http://excelvba.ru/XL_Files/Sample__...__23-06-40.zip


(добавлено)
Чтобы в ячейке отображались значения отдельных битов, используйте такой вариант кода:

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Sub Main()
    t = Timer
    Do
        While Timer - t < 0.2: DoEvents: Wend ' интервал 0,2 секунды
        [a1] = Long2BinString(Inp(&H378)):        t = Timer
    Loop
End Sub

Function Long2BinString(ByVal a As Long) As String ' число A в двоичном формате
    n = 2: If a < 2 ^ 8 Then n = 1 Else If a > 2 ^ 16 - 1 Then n = 4
    While a > 0: Long2BinString = a Mod 2 & Long2BinString: a = a \ 2: Wend
    Long2BinString = String(8 * n - Len(Long2BinString), "0") & Long2BinString
End Function

В это случае в ячейку вместо числа 255 попадёт строка 11111111, вместо числа 146 - строка 10010010
Пример файла: http://excelvba.ru/XL_Files/Sample__...__23-15-07.zip

[Teslenko_EA]

Здравствуйте Joslen_bomon.
ещё один вариант:

Sub Main()
    Sheets(1).[a1] = Inp(&H378)
    Application.OnTime Now + TimeSerial(0, 0, 5), "Main"
End Sub

запускать также из модуля Книги.
Евгений.