У меня есть файл экселя - в нем два столбца. В первом столбце записаны определенные адреса файлов, а во втором столбце - записаны адреса папок на компьютере. Нужно чтобы скопировать каждый указанный в первом столбце файл - в соответствующую папку, чей адрес вписан во втором столбце.
Подскажите как макросом выполнить эту непростую операцию ?
(тут есть нюанс - этот макрос будет запускаться с другого листа.)
Всем здоровья и доброго дня.
У меня есть файл экселя - в нем два столбца. В первом столбце записаны определенные адреса файлов, а во втором столбце - записаны адреса папок на компьютере. Нужно чтобы скопировать каждый указанный в первом столбце файл - в соответствующую папку, чей адрес вписан во втором столбце.
Подскажите как макросом выполнить эту непростую операцию ?
(тут есть нюанс - этот макрос будет запускаться с другого листа.)RagnarLodbrokovitch
Dim strFileName As String Dim lr As Long, i As Long
lr = Cells(Rows.Count, "D").End(xlUp).Row For i = 5 To lr strFileName = Cells(i, "D").Value strFileName = Mid(strFileName, InStrRev(strFileName, "\") + 1) FileCopy Cells(i, "D").Value, Cells(i, "F").Value & "\" & strFileName Next i MsgBox "Готово!", vbInformation
End Sub
[/vba]
[vba]
Код
Sub Скопировать_файлы()
Dim strFileName As String Dim lr As Long, i As Long
lr = Cells(Rows.Count, "D").End(xlUp).Row For i = 5 To lr strFileName = Cells(i, "D").Value strFileName = Mid(strFileName, InStrRev(strFileName, "\") + 1) FileCopy Cells(i, "D").Value, Cells(i, "F").Value & "\" & strFileName Next i MsgBox "Готово!", vbInformation