Пингуем из Excel⁠⁠

Задача заполнение договора по таблице в эксель. Штатными средствами ворда сделал это, но нужно немного больше функций, вроде замены уважаемый на уважаемая и автоматическое добавление новых строк в ворде и их заполнение. Ну то есть чтобы по ключу "компания" он заполнял таблицу работников, добавляя нужные строки по необходимости. Готовых бесплатных решений не нашел, хотя может быть плохо искал :)

Сложная это задача для того, кто последний раз кодил лет 7 назад, да и то в паскале?) Задачу не надо прям обязательно решить, поэтому особо не парюсь и хотел бы просто найти какой-то годный "базовый" самоучитель, чтобы просто понять, стоит ли вообще лезть сюда или нет :)

Но в любом случае, спасибо за ответ.

Я думал у нас тут коммунизм. А оказывается и тут деньги нужны.

Кстати, раз вы занимаетесь сливанием документов. У меня на днях была проблемка. При сливании документа из Экселя в Ворд все даты конвертились в американский формат, то есть 1 марта 2021 отображалось как 3/1. В Экселе формат нормальный, в Ворде не разобрался как настроить. Пробовал на разных компах, с разными Офисами - один результат. Не сталкивались, случайно?
PS. Проблему решил костылями - скопировал все даты в текстовый файл, затем вставил их в столбец с форматом "Текст". Но на будущее хотелось бы нормальное решение.
@0617, может вы знаете?

Ах и да, макросы можно записывать таким образом в разных приложениях? Ну типа одновременно и в ворде, и в экселе? Или запись только в одном будет работать?

Специально для минусаторов, которым лень со StackOverflow скопировать:

Все взял отсюда, чуть изменил, чтобы из листа удобнее обращаться было:

https://stackoverflow.com/questions/34678896/excel-vba-ping-...

Создал модуль, в модуль добавил

Option Explicit

Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Private Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal cp As String) As Long

Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As Long) As Long

Private Declare Function IcmpSendEcho Lib "icmp.dll" _

(ByVal IcmpHandle As Long, _

ByVal DestinationAddress As Long, _

ByVal RequestData As String, _

ByVal RequestSize As Long, _

ByVal RequestOptions As Long, _

ReplyBuffer As ICMP_ECHO_REPLY, _

ByVal ReplySize As Long, _

ByVal timeout As Long) As Long

Private Type IP_OPTION_INFORMATION

Ttl As Byte

Tos As Byte

Flags As Byte

OptionsSize As Byte

OptionsData As Long

End Type

Public Type ICMP_ECHO_REPLY

address As Long

Status As Long

RoundTripTime As Long

DataSize As Long

Reserved As Integer

ptrData As Long

Options As IP_OPTION_INFORMATION

data As String * 250

End Type

Public Function Ping(strAddress As String) As Boolean

Dim hIcmp As Long

Dim lngAddress As Long

Dim lngTimeOut As Long

Dim strSendText As String

Dim Reply As ICMP_ECHO_REPLY

'Short string of data to send

strSendText = "blah"

' timeout value in ms

lngTimeOut = 1000

'Convert string address to a long

lngAddress = inet_addr(strAddress)

If (lngAddress <> -1) And (lngAddress <> 0) Then

hIcmp = IcmpCreateFile()

If hIcmp <> 0 Then

'Ping the destination IP

Call IcmpSendEcho(hIcmp, lngAddress, strSendText, Len(strSendText), 0, Reply, Len(Reply), lngTimeOut)

'Reply status

Ping = (Reply.Status = 0)

'Close the Icmp handle.

IcmpCloseHandle hIcmp

Else

Ping = False

End If

Else

Ping = False

End If

End Function

Ну и потом в ячейке пишем =ping("192.168.1.1")

Ну часть проблем я описал в комменте выше. Типа нельзя сразу несколько строк из таблицы "вставить" в один документ (кроме копипаста), заменить склонение слов, взависимости от пола к примеру, взависимости от значений поля поменять структуры предложения, выделить инициалы и т. п. Часть проблем, конечно, можно решить через эксель, но это лишнее данные, с макросами я так понимаю можно сделать это куда проще и эффективнее, да и удобнее для юзера.

Но проблема у меня в том, что я вообще не понимаю как взаимодействать с "элементами" приложений/документов. Вот я и ищу (хотя и не особо рьяно) какой-нибудь хороший базовый гайд по основам VBA, чтобы просто в целом понять, стоит ли мне лезть в эти дебри :)

Для вас я думаю задача которая передо мной максимум на час, так что забейте)

В Ping.xlsm я бы цикл как-то так написал:
For Each cc In Range(Cells(2, 2), Cells(2, 2).End(xlDown))
Если я захочу что-нибудь внизу написать, какую-нибудь заметку, то твой цикл сломается.

Вместо LoopTimeout t0, timeout лучше написать
Application.Wait DateAdd("s", S, Now)
Эта функция не грузит процессор, как твоя.

Вот так бы написал, а не через + и CStr: "TESTING loop " & loops
И поменьше бы писал в одну строку. Что объявлений, что присваиваний, что условий это касается.

Ну, и сам нового немного узнал: UsedRange и Like в условии. Тоже польза.

Теперь понятно, спасибо. Интересно через сколько упадет Excell теперь если поставить ему боевую задачу. Мне кажется это неплохая вещь чтобы быстро просканировать сеть. Типа IP сканер

For IPgroup = 1 To UsedRange.Columns.Count //это константа или переменая почему 1?

If Cells(1, IPgroup) Like "IP*" Then //тут он использует поиск по первому ряду или по всей таблице?

For Each cc In UsedRange.Offset(1, IPgroup - 1).Resize(UsedRange.Rows.Count - 1, 1).Cells

If cc <> "" Then //а это вообще что за хрень?

@0617 я понял что менять что-то здесь, а вот что на что и как добавить

For Each cc In UsedRange.Offset(1, 1).Resize(UsedRange.Rows.Count - 1, 1).Cells

With cc.Offset(0, 1)

@0617, а как добавить еще столбцы с IP шниками? Чтобы не только в Ц считался А скажем в H?

Да, я так и сделал. Но функций мастера слияния не совсем хватает.

Ну и в чем тут сложность? Тупейший способ. Учитывая, что в  vba  можно обращаться к внешним апи, кто мешает просто задекларировать и вызвать функцию IcmpSendEcho из  advapi.dll?

Сколько времени эта хрень будет пинговать 65к хостов? Вопрос реально нужный.