Проверить существование файлов в выделенной области ссылок (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д