Отличный макрос!!! Спасибо!! Вот только пришлось посидеть разобраться. У меня тоже на 53 строке ошибка выскакивает. Это происходит из-за того, что процедура CommandButton2_Click() не видит путь к папке sPath и ПутьКПапке$ что-то не то с ними не могу понять до конца. Если прописать вручную путь к папке в коде,
то все работает на ура. Но вот хочется, чтобы путь прописывался тот, который указывали при выборе папки. Подскажите, что там дописать нужно? Спасибо.
| Код |
|---|
Private Sub CommandButton2_Click()
Dim OldName As String, NewName As String, sPath As String, NewExist As String
Dim i As Long, lLastRow As Long
If MsgBox("Начать?", vbOKCancel Or vbQuestion) = vbOK Then
NewExist = ExistFiles.Value
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 11 To lLastRow
sPath = "c:\1\"
ПутьКПапке$ = sPath
OldName = ПутьКПапке$ & Cells(i, 2) '
NewName = ПутьКПапке$ & Cells(i, 4) & "." & NewExist '
Name OldName As NewName '
Next i
Else
Exit Sub
End If
End Sub
|
то все работает на ура. Но вот хочется, чтобы путь прописывался тот, который указывали при выборе папки. Подскажите, что там дописать нужно? Спасибо.
