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