Добрый день!
Пытаюсь выполнить вот какой макрос.
В некой папке есть некоторое кол-во книг, которые нужно
1 открыть,
2 изменить и
3 пересохранить под другим именем (с приставкой) в другой папке.

Вот макрос (упрощенный)

'1 открытие книги

Dim WB As Workbook
Path = "C:\DSS\test\"
If Dir(Path, vbDirectory) = "" Then
MsgBox "Путь не найден"
Exit Sub
End If
IFILENAME = Dir(Path & "*.xls")
Do While IFILENAME <> ""
iCount = iCount + 1
Set WB = Workbooks.Open(Filename:=Path & IFILENAME, ReadOnly:=True)


‘2 изменение книги
Worksheets(1).Name = "Value"
Worksheets(2).Name = "Volume"
Worksheets(3).Name = "Items»

‘3 пересохранение книги под другим именем в другой папке
Path2 = "C:\DSS\test\Processed\"
Ifilename2 = Split(ThisWorkbook.Name, ".")(0) & " processed.xls"
Workbooks(IFILENAME).Activate
ActiveWorkbook.SaveAs Filename:= _
Path2 & Ifilename2

IFILENAME = Dir
Loop
If iCount = 0 Then MsgBox "Файлов не обнаружено", 64, ""
End Sub


Проблема в том, что сохраняет он не ту книгу, которую открывает из папки c:\dss\test
а саму книгу с макросом. (Макрос запускается из отдельной книги).

Погите советом!
спасибо.

Antonariy,
неа, не получается.
Все равно пересохраняет именно книгу с макросом, а не те, что в папке test

Shocker.ProНе может быть, приведите полностью получившийся макрос (с изменениями Antonariy)
(и не забывайте оформлять код тэгами)

<sub>Sub TotalMacro()
Dim WB As Workbook

Path = "C:\DSS\Dashboard\TOI + WIP\Single Cities\"

If Dir(Path, vbDirectory) = "" Then
MsgBox "Ïóòü íå íàéäåí"
Exit Sub
End If
IFILENAME = Dir(Path & "*.xls")


Do While IFILENAME <> ""
iCount = iCount + 1
Set WB = Workbooks.Open(Filename:=Path & IFILENAME, ReadOnly:=True)

Application.DisplayAlerts = False
WB.Sheets(1).Delete
Application.DisplayAlerts = True
WB.Worksheets(1).Name = "Value"
WB.Worksheets(2).Name = "Volume"
WB.Worksheets(3).Name = "Items"
WB.Worksheets(4).Name = "Price"
WB.Worksheets(5).Name = "Dist"





Path2 = "C:\DSS\Dashboard\TOI + WIP\Single Cities\Processed\"
Ifilename2 = Split(ThisWorkbook.Name, ".")(0) & " processed.xls"
WB.SaveAs Path2 & Ifilename2
WB.Close</sub>



Пути немного изменены, но, думаю, не суть.

Конец цикла потеряла
вот

<sub>IFILENAME = Dir
Loop
If iCount = 0 Then MsgBox "Ôàéëîâ íå îáíàðóæåíî", 64, ""

End Sub</sub>

Shocker.Proнадо же, я забыл сказать: оформляйте тэгами ДЛЯ КОДА


ой, сразу не сообразила что src - это для кода ) буду знать, извиняюсь )
Скопировала ваш макрос один в один.
Все равно предлагает сохранить сам себя с приставкой processed.

Ура-Ура-Ура!
Я нашла ошибку!
Ifilename2 = Split(WB.Name, ".")(0) & " processed.xls"
вместо
Ifilename2 = Split(thisworkbook.Name, ".")(0) & " processed.xls"

Спасибо всем пребольшое!