макрос в Эксэль

[Xom94ok]

Добрый день. Столкнулся с проблемой:
Нужен макрос, сохраняющий файл с определнным именем (ячейка А1) в определенную директорию (ячейка А2)
Может кто знает как это решить?

[IgorGO]

приблизительно так
Workbooks(???).SaveAs [a2] & [a1]
где ??? - это имя книги, например "книга100" или ее индекс в коллекции открытых книг
возможно, между [a2] и [a1] потребуется разделитель (если А2 не заканчивается разделителем) [a2] & "\" & [a1]

[VictorM]

Sub Сохранить()
    Dim wb As Workbook As String
    Set wb = Excel.Application.ActiveWorkbook
    имя = [a1]
    директория = [a2]    'Папка должна существовать,
'    если это так - комментируем следующую строку
'    MkDir "C:\" & директория 'Если папки не существует - создаем
    wb.SaveAs ("C:\" & директория & "\" & имя & ".xls")
End Sub