Коллеги, добрый день. Прошу помочь в таком вопросе, написал макрос который скачивает файлы или папки по гиперссылке из активной ячейке по указанному пути. Однако, хотел бы его модернизировать, чтобы скачивались файлы и папки по всем выделенным ячейкам. Прошу помочь с данным вопросом. Файл пример и код прилагаю.
Код |
---|
Sub СохранениеПапки()
URL = FormulaHyperlink(ActiveCell) 'превращаю формульные гиперссылки в обычные
iSource = URL
For Each URL In ActiveCell
Next URL
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Выбрать папку для сохранения"
.ButtonName = "Выбрать папку"
.Filters.Clear
If .Show = 0 Then Exit Sub
iDestination = .SelectedItems(1)
End With
On Error GoTo ErrHandler
With CreateObject("Scripting.FileSystemObject")
If .FolderExists(iSource) = True Then
.CopyFolder iSource, iDestination ', True
Else
MsgBox "Копирование невозможно, нет папки", , ""
End If
End With
ErrHandler:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, ""
End If
End Sub |
И функция для работы этого макроса
Код |
---|
Function FormulaHyperlink(ByRef cell As Range) As String
If cell.HasFormula And (cell.Hyperlinks.Count = 0) Then
If cell.Formula Like "=HYPERLINK*" Then
FormulaHyperlink = Evaluate(Mid$(Split(cell.Formula, ",")(0), 12))
End If
End If
End Function |