Cохранение листа Excel в файл

[rativoff]

Здравствуйте.
Ситуация такая:
На листе 1 имеются расчеты и кнопка "сохранить результат", на листе 2 и листе 3 таблицы с результатами вычислений. При нажатии на кнопку происходит сохранение значений листа 2 и листа 3 в отдельный файл по адресу "D:\папка" где название "папка" бралось бы из ячейки А1 листа 1, а имя нового файла задавать самому при сохранении. Желательно показать на примере с пояснениями, т.к. не силен в VBA

[doober]

Например так
Автор функции EducatedFool

Private Sub CommandButton1_Click()
F_name = GetSavePath("D:\" & Лист1.Range("A1"))
End Sub
' 
Function GetSavePath(Optional ByVal InitialPath As String)
        Title = "Выберите папку  и укажите имя нового файла"

        Dim PS

        GetSavePath = "": PS = Application.PathSeparator
        With Application.FileDialog(msoFileDialogSaveAs)
                .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath: .FilterIndex = 1
                If .Show = -1 Then GetSavePath = .SelectedItems(1): If Not Right$(GetSavePath, 1) = PS Then GetSavePath = GetSavePath
        End With
End Function

[EducatedFool]

Верхние 5 комментов в этой статье касаются обсуждаемой темы:
http://excelvba.ru/code/SaveActiveSheet