Проверить существование файлов в выделенной области ссылок (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