Блог

• существует довольно много различных файлов макросов excel со ссылкой, которая была обновлена. Есть ли способ изменить макрос с помощью макроса?
• Это то, что я смог найти до сих пор, используя CodeModule, найдите строку, в которой находится ссылка, а затем замените всю строку. У меня есть этот макрос в одном файле, и я запускаю его в файле, который хочу изменить (позже я могу автоматизировать его, чтобы просмотреть все файлы в папке), но сначала нужно заставить его работать.
• Одна часть, которая меня смущает, в какой момент меняется SL (начальная линия)?
• Что такое столбцы кодового модуля? Моя ссылка, скажем, 35 символов, почему столбец 35, не должен быть 1?
• Есть ли лучший способ? Спасибо

   Sub findLink()   Dim VBProj As VBIDE.VBProject  Dim VBComp As VBIDE.VBComponent  Dim CodeMod As VBIDE.CodeModule  Dim FindWhat As String  Dim SL As Long ' start line  Dim EL As Long ' end line  Dim SC As Long ' start column  Dim EC As Long ' end column  Dim Found As Boolean   Set VBProj = ActiveWorkbook.VBProject  Set VBComp = VBProj.VBComponents("Module1")  Set CodeMod = VBComp.CodeModule   'find text to replace  FindWhat = "https://www.abc.net.au/"   With CodeMod   SL = 1  EL = .CountOfLines  SC = 1  EC = 255  Found = .Find(target:=FindWhat, StartLine:=SL, StartColumn:=SC, _  EndLine:=EL, EndColumn:=EC, _  wholeword:=True, MatchCase:=False, patternsearch:=False)  Do Until Found = False  MsgBox CStr(SL)  Debug.Print "Found at: Line: " amp; CStr(SL) amp; " Column: " amp; CStr(SC)  EL = .CountOfLines  SC = EC   1  EC = 255  Found = .Find(target:=FindWhat, StartLine:=SL, StartColumn:=SC, _  EndLine:=EL, EndColumn:=EC, _  wholeword:=True, MatchCase:=False, patternsearch:=False)  Loop   'If Found Then  Call .ReplaceLine(SL, "Link = ""https://www.abc2.net.au/"" ")   End With  MsgBox "Found at: Line: " amp; CStr(SL) amp; " Column: " amp; CStr(SC)  End Sub  

1. «Одна часть, которая меня смущает, в какой момент меняется SL (начальная линия)?«

Когда совпадение найдено, оно возвращается/изменяется, как и номер строки, на которой найден соответствующий текст. Независимо от его первоначального значения. Таким образом, при попытке поиска с самого начала достаточно только объявить переменную.

И, чтобы позволить коду выполнить поиск по остальным строкам, вы должны увеличить этот возвращаемый номер строки/переменную:

Итак, вам следует заменить:

 SC = EC   1  

с:

 SL = SL   1 'to start searching from the next code line  

2. «Что такое столбцы кодового модуля? Моя ссылка, скажем, состоит из 35 символов, почему в столбце 35, не должно быть 1?«

Ну, «Каждый символ в строке кода находится в отдельном столбце, начинающемся с нуля на левой стороне строки кода. Если найдено совпадение, значение StartColumn аргумента устанавливается в столбец, в котором найден начальный символ совпадающей строки.

Таким образом, если ваш код возвращает 35 (как StartColumn после совпадения), это означает, что перед первым символом строки ссылки есть еще 34 символа. Также учитываются пробелы…

Если соответствующая строка кода содержит другие слова, которые следует сохранить, код может быть адаптирован для изменения только необходимой строки.

И, если будет больше вхождений, ваш код (без предложенных выше изменений) вернет только первое. После изменения финал MsgBox вернет только последнее вхождение…