bvg (Автор тем)

Microsoft Excel 2010 и COM PORT, Microsoft Excel 2010 и COM PORT

Пользователь

Сообщений: 6 Регистрация: 01.09.2017

06.09.2017 07:27:56

Есть желание отправлять смс из Ms Excel (в день в среднем 30 смс не рекламного характера, информация о заказе), в наличии имеется 3g модем и нашел статью

Цитата

Через GSM модем отправляю смс. В текстовом режиме все нормально, но там латынь!!!

Visual BasicВыделить код

1 2 3	comm.Output = "AT+CMGF=1" & vbCrLf comm.Output = "AT+CMGS=" & Chr(34) & "+79502159320" & Chr(34) & vbCrLf ' ГГ®Г¬ГҐГ° ГІГҐГ«ГҐГґГ®ГГ* (ГЄГ®Г¬Гі) comm.Output = "ALARM:" & Time & Chr(26) & vbCrLf ' ГІГҐГЄГ±ГІ Г±Г®Г®ГЎГ№ГҐГ*ГЁГї

Хочется на русском. для этого перевожу в режим PDU:

Visual BasicВыделить код

1 2 3	comm.Output = "AT+CMGF=0" & vbCrLf comm.Output = "AT+CMGS=31" & Chr(34) & vbCrLf comm.Output = "07919730071111f101000b919705129523f0000812041a0420041004210410041204270418041A" & Chr(26) & vbCrLf

Ничего не отсылается???!!! Может в коде что-то не то???
Пробовал в HyperTerminal все отсылается:
AT+CMGF=0
AT+CMGS=31
> 07919730071111f101000b919705129523f0000812041a0420041004210410041204270418041A

В данном способе исользуется библиотека mscomm32.ocx, но в 10 офисе ее видимо уже убрали. http://www.pencomdesign.com/support/relay_software/vba_software_example.htm

Вопрос: как можно осуществить отправку смс через Excel? Буду благодарен любой помощи
Пробовал готовые решения, а именно сервис https://go.intistele.com/external/client/support/ Все у них устраивает, вот только что нужно брать с каждого клиента смс об использовании их данных,

Перейти

Перевести текст в формат времени

bvgcsm Пользователь Сообщений: 6 Регистрация: 01.09.2017	# 01.09.2017 19:00:59 Помогите перевести текст в дату формата hh:mm Например, есть у меня 2 ячейки в текстовом формате ( 23:00 и 00:15) . Мне их нужно прибавить и получить 23:15. Желательно на VB Заранее спасибо Изменено: bvgcsm - 01.09.2017 19:07:11
	Перейти