Проверить существование файлов в выделенной области ссылок (Excel) и записать несуществующие в WORD - VBA

Узнай цену своей работы

Формулировка задачи:

Есть Excel в котором около 50 000 гиперссылок на файлы PDF. Задача: Написать макрос, который автоматом будет проверять существование файлов в выделенной области ссылок и записывать несуществующие в ворд. Проблема в том, что я не програмист и без понятия какие операторы помогут мне в VBA. sub Проверка существования файла -> область выделенных ячеек в EXcel-> если существует --> переход к след. ячейке -->else --> записать имя файла в word и переход к след. ячейке. end sub Господа, помогите пожалуйста.

Решение задачи: «Проверить существование файлов в выделенной области ссылок (Excel) и записать несуществующие в WORD»

textual
Листинг программы
Sub DeadLinks()
    Dim rng As Range, hyp As Hyperlink, s As String
    Dim wdApp As Object, FSO As Object
    
    Set rng = Selection
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    For Each hyp In rng.Hyperlinks
        If Not FSO.FileExists(hyp.Address) Then
            s = s & hyp.Address & vbCrLf
        End If
    Next
    Set rng = Nothing: Set FSO = Nothing
    
    If s <> "" Then
        Set wdApp = CreateObject("Word.Application")
        wdApp.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
        wdApp.Selection.TypeText s
        wdApp.Visible = True
        Set wdApp = Nothing
    Else
        MsgBox "В выделенном диапазоне битых гиперссылок не найдено"
    End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5