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

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

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

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

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

textual
Листинг программы
  1. Sub DeadLinks()
  2.     Dim rng As Range, hyp As Hyperlink, s As String
  3.     Dim wdApp As Object, FSO As Object
  4.    
  5.     Set rng = Selection
  6.     Set FSO = CreateObject("Scripting.FileSystemObject")
  7.    
  8.     For Each hyp In rng.Hyperlinks
  9.         If Not FSO.FileExists(hyp.Address) Then
  10.             s = s & hyp.Address & vbCrLf
  11.         End If
  12.     Next
  13.     Set rng = Nothing: Set FSO = Nothing
  14.    
  15.     If s <> "" Then
  16.         Set wdApp = CreateObject("Word.Application")
  17.         wdApp.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
  18.         wdApp.Selection.TypeText s
  19.         wdApp.Visible = True
  20.         Set wdApp = Nothing
  21.     Else
  22.         MsgBox "В выделенном диапазоне битых гиперссылок не найдено"
  23.     End If
  24. End Sub

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут