Работа с весами фирмы CAS

[myprog]

Доброго времени суток ВСЕМ!!!

На официальном сайте CAS
скачал драйвера и описание
по работе с весами CAS 5010A

Посмотрел примеры программ написанные на c+ и в 1С

Попробовал написать под Excel не вышло.

1) ошибка при регистрации библиотеки:

regsvr32.exe  /i Ci2001A.dll

2) Ошибка при вызове функции VBA (компилируется нормально)

Private Declare Function vbaOpen Lib "Ci2001A.dll" Alias "Open" (ByVal NumberOfCom As Integer)
Private Declare Function vbaClose Lib "Ci2001A.dll" Alias "Close" (ByVal NumberOfCom As Integer)
Private Declare Function vbaUpdate Lib "Ci2001A.dll" Alias "Update" (ByVal NumberOfCom As Integer)


Public Sub My_Sub_Cas_Gross()
Dim com1 As Object
Dim intRowGross As Integer

Set com1 = vbaOpen(1)
vbaUpdate (1)
strMassa = com1.vbaUpdate.Weight
strStab = com1.vbaUpdate.Stab

MsgBox strMassa & strStab 

End Sub

Может кто знает как правильно описать Ci2001A.dll в VBA ????

Заранее спасибо!!!

[raxp]

во-первых, второе у вас не заработает, пока не заработает первое ...а вот зарегить не дает вероятно из-за отсутствия у вас прав на машине и вы не написали, под какой осью вы и на какую ось расчитана данная DLL в мануале.

[doober]

Протокол обмена есть,СОМ порт есть,MSCOMM32.OCX для работы с СОМ портом есть,если нет,подкину

вывод: можно самому в VBA написать процедуры для получения веса

[myprog]

Уважаемый, raxp.
Приношу извинения за невнимательность.

Windows XP
Office 2003
Пользователь - администратор

Пример под 1с работает:

//*******************************************
Процедура Выполнить()
      
     // Подключаем ДЛЛ
     Попытка
             Весы = СоздатьОбъект("Ci2001A.Indic");
     Исключение
          Сообщить("Не удалось подключить DLL!");
          return;
     КонецПопытки;
          Сообщить("Подключение к DLL прошло успешно!"); 
     
     
          
     Весы.NumberOfCom = ComP;     
          
     //Подключение весов
     Попытка
          Весы.Open()     
     Исключение
          Сообщить("Не удалось подключить весы!");
          return;
     КонецПопытки;
          Сообщить("Весы подключены!");
          
     //чтение веса
     Попытка
          Весы.Update()     
     Исключение
          Сообщить("Ошибка чтения данных");
          return;
     КонецПопытки;  
          Сообщить("Вес: " + Весы.Weight);
          Сообщить("Состояние стаб: " + Весы.Stab); 
          
     //отключение весов
     Попытка
          Весы.Close()     
     Исключение  
          Сообщить("Ошибка отключения");
          return;
     КонецПопытки;
          Сообщить("Весы отключены");     
КонецПроцедуры

Но надо в EXcel???
Кто виноват и что делать???

[doober]

Но надо в EXcel???
Кто виноват и что делать???

Тот,кто крикнул из кустов.........


Запустите батник.Потом файл.
Объект создается у меня без ошибок