|
Связь с внешним миром Modbus, RS232, RS485, Lon и другое. |
|
Опции темы | Поиск в этой теме |
08.02.2011, 11:56 | #1 |
Новичок
Регистрация: Apr 2010
Сообщения: 29
Благодарил(а): 0 раз(а)
Поблагодарили:
0 раз(а) в 0 сообщениях
|
Считывание журнала
Добрый день
Арсений, если не сложно помогите изменить файл Download.xls, чтобы можно было считывать не последние 25 аварий журнала, а с 1 по 9, с 10 по 20, и т.д. В настоящее время с небольшими изменениями использую данный файл для считывания журнала аварий с SMH2010 по GSM. Не успеваю считывать весь журнал, контроллер настроил чтоб через 5 мин.связь рвал, а читает долго. Успеваю максимум 15 аварий снять. Сейчас срочно понадобилось считать без выезда на обект,а никак Файл прилагаю. |
08.02.2011, 14:17 | #2 | |
Сотрудник Segnetics
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 131
Благодарил(а): 15 раз(а)
Поблагодарили:
662 раз(а) в 606 сообщениях
|
Ответ: Считывание журнала
Цитата:
Я уже за несколько лет и забыть успел, как там и что. В таблице есть программа на VBA, в ней есть границы чтения, измените их и будет вам счастье __________________ Программа делает то что написал программист, а не то что он хотел. Добро всегда побеждает зло. Кто победил - тот и добрый. |
|
08.02.2011, 14:37 | #3 |
Новичок
Регистрация: Apr 2010
Сообщения: 29
Благодарил(а): 0 раз(а)
Поблагодарили:
0 раз(а) в 0 сообщениях
|
Ответ: Считывание журнала
Если бы я программировал на VBA, я бы такой вопрос незадавал. К сожалению моя специализация это промэлектроника, электрика, FBD соответственно понимаю, но никак не программирование на языках высокого уровня. Поэтому и просил если можно помочь, ткнуть пальцем туда где нужно что изменить.
|
08.02.2011, 14:43 | #4 |
Senior Member
Регистрация: Jul 2007
Адрес: Калининград
Сообщения: 422
Благодарил(а): 0 раз(а)
Поблагодарили:
1 раз в 1 сообщении
|
Ответ: Считывание журнала
Я хоть и не Арсений, но подсказать могу.
В Excel запускаете VBA через Alt+F11 и делаете двойной клик по кнопке "Последние 25". На экране появится: ----------------------------------- Private Sub CommandButton3_Click() Worksheets("Аварии").Range("H11").Value = 25 Call FillTable End Sub ----------------------------------- Меняете 25 после Value на 10, жмете Ctrl+S для сохранения и радуетесь. |
08.02.2011, 14:56 | #5 | |
Сотрудник Segnetics
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 131
Благодарил(а): 15 раз(а)
Поблагодарили:
662 раз(а) в 606 сообщениях
|
Ответ: Считывание журнала
Цитата:
. __________________ Программа делает то что написал программист, а не то что он хотел. Добро всегда побеждает зло. Кто победил - тот и добрый. |
|
08.02.2011, 15:02 | #6 | |
Сотрудник Segnetics
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 131
Благодарил(а): 15 раз(а)
Поблагодарили:
662 раз(а) в 606 сообщениях
|
Ответ: Считывание журнала
Цитата:
---------- For f = 0 To Worksheets("Аварии").Range("H11").Value - 1 ---------- И заменяйте её на: ---------- For f = 0 To 9 ---------- ---------- For f = 10 To 19 ---------- ---------- For f = 20 To 29 ---------- и т.д. на нужные диапазоны. Считывание инициируйте кнопкой "обновить всё". __________________ Программа делает то что написал программист, а не то что он хотел. Добро всегда побеждает зло. Кто победил - тот и добрый. |
|
08.02.2011, 15:39 | #7 |
Новичок
Регистрация: Apr 2010
Сообщения: 29
Благодарил(а): 0 раз(а)
Поблагодарили:
0 раз(а) в 0 сообщениях
|
Ответ: Считывание журнала
Большое спасибо. Вашими трудами все получилось
|
08.02.2011, 18:42 | #8 | |
Senior Member
Регистрация: Jul 2007
Адрес: Калининград
Сообщения: 422
Благодарил(а): 0 раз(а)
Поблагодарили:
1 раз в 1 сообщении
|
Ответ: Считывание журнала
Цитата:
Ну тогда в процедуре FillTable плясать не от нуля, а от предыдущего значения. То есть строку For f = 0 To Worksheets("Аварии").Range("H11").Value - 1 заменить на For f = Worksheets("Аварии").Cells(9, 8).Value To Worksheets("Аварии").Cells(9, 8).Value + Worksheets("Аварии").Range("H11").Value - 1 |
|
19.10.2011, 11:17 | #9 |
Новичок
Регистрация: Aug 2011
Сообщения: 3
Благодарил(а): 0 раз(а)
Поблагодарили:
0 раз(а) в 0 сообщениях
|
Ответ: Считывание журнала
Доброго дня всем. Подскажите пожалуйста по соединению Excel с Lectusом, а именно соединил lectus modbus OPC/DDE с SMH2010, получаю данные, но при запуске вами ваших excel программок по выводу значений журнал появляется ошибка запуска: excel не может запустить 'SERVOPC.EXE', мож кто сталкивался иподскажет как в excel запустить этот servopc.exe?
|
19.10.2011, 11:19 | #10 | |
Сотрудник Segnetics
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 131
Благодарил(а): 15 раз(а)
Поблагодарили:
662 раз(а) в 606 сообщениях
|
Ответ: Считывание журнала
Цитата:
Либо сервер у вас не открыт, его нужно открывать вручную. . __________________ Программа делает то что написал программист, а не то что он хотел. Добро всегда побеждает зло. Кто победил - тот и добрый. |
|
19.10.2011, 11:23 | #11 |
Новичок
Регистрация: Aug 2011
Сообщения: 3
Благодарил(а): 0 раз(а)
Поблагодарили:
0 раз(а) в 0 сообщениях
|
Ответ: Считывание журнала
Я уже поставил lectus Modbus opc/dde server, и даже наблюдаю значения с контроллера но вот excel ни как не получает данные от сервера, может какая то настройка есть в excele под этот сурвер?
|
19.10.2011, 11:27 | #12 | |
Сотрудник Segnetics
Регистрация: Jan 2006
Адрес: Russia, SPb
Сообщения: 18 131
Благодарил(а): 15 раз(а)
Поблагодарили:
662 раз(а) в 606 сообщениях
|
Ответ: Считывание журнала
Цитата:
. __________________ Программа делает то что написал программист, а не то что он хотел. Добро всегда побеждает зло. Кто победил - тот и добрый. |
|
20.10.2011, 12:10 | #13 |
Новичок
Регистрация: Aug 2011
Сообщения: 3
Благодарил(а): 0 раз(а)
Поблагодарили:
0 раз(а) в 0 сообщениях
|
Ответ: Считывание журнала
Все, спасибо, получилось, теперь могу читать и записывать в SMH2010 средствами MS Excel.
|