bam1
Сообщений: 4
Оценки: 0
Присоединился: 2007-03-22 10:05:45.860000
|
Всем привет. Возникла необходимость в связи с отказом от MS Excel написать утилиту на VBS.
Есть dll(com-объект) для работы с весами через ком-порт, регистрируемая в Windows с помощью команды regsvr32. В ней две вызываемые функции Init(int port) и ReadWeightResult().
Init инициализирует com-port, ReadWeightResult возвращает вес с девайса.
На VBA использование этих методов работает и выглядит так:
Private Sub ClickProject2()
Dim Obj As PVScale.Scale
Set Obj = New PVScale.Scale
Obj.Init 1
Debug.Print Obj.ReadWeightResult
For i = 1 To 950
Debug.Print "" & i & " " & Obj.ReadWeightResult
Next
End Sub
Попытка сделать нечто похожее на VBS результатов не приносит, выдается ошибка: Требуется объект,
Код 800A01A8.
Dim Obj
Set Obj = CreateObject("PVScale.Scale")
Obj.Init 1
msgBox Obj.ReadWeightResult
Объект, похоже создается, о чем свидетельствует следующий код и выводится "Ложь".
Dim Obj
Set Obj = CreateObject("PVScale.Scale")
msgBox Obj is nothing
Если объект создается, то как тогда использовать его методы на VBS?
|
VBS и VBA - 
