Уважаемые форумчане, прошу Вашей помощи в корректировке ниже приведенного макроса.
Данный макрос вставляет имена файлов jpg из указанной папки в таблицу 2 столбца начиная с 7 строки.
Требуется фрагмент кода, который позволит добавлять имена файлов с первой пустой ячейки имеющихся данных во 2 столбце.
То есть позволит добавлять в уже имеющийся список новые данные.
Данный макрос вставляет имена файлов jpg из указанной папки в таблицу 2 столбца начиная с 7 строки.
Требуется фрагмент кода, который позволит добавлять имена файлов с первой пустой ячейки имеющихся данных во 2 столбце.
То есть позволит добавлять в уже имеющийся список новые данные.
| Код |
|---|
Sub NameFilePast()
Dim sFolder, rFndRng As Range
Dim li As Long
Dim sValue As String, sOldName As String, sNewName As String, sExpansion As String
sFolder = Application.GetOpenFilename("JPEG Files(*.jp*),*.jp*", , "Выбрать файлы", , True)
Mask = "*.jpg"
k = 7 'номер ячейки
fName = Dir(Path & Mask)
Do While fName <> ""
Cells(k, 2).Value = Left(fName, Len(fName) - 4) 'Cells(k, 1) - номер столбца
k = k + 1
fName = Dir
Loop
End Sub
|
