Сохранение листа как книгу и отправка его на почту.

[NoLL]

Добрый вечер. Мучаюсь с 11ти утра.
Есть 2 файла. "Стартовый", на котором будет менятся информация, и соответственно в нем будет находится сам макрос, и файл с 25-ю листами(k11). Нужно, что бы макрос открывал файл к11(при этом название открываемого файла указано в ячейке"G8" путь где лежит этот файл будет указано в ячейке "G9". Тоесть как сам путь и имя файла и путь к папке куда будет нарезатся сам файл ссылались на соответствующие ячейки.(переменные)

Макрос(который находится в файле Стартовый), должен открыть вышеуказанный файл(к11 в данном случае) и каждый лист сохранить как отдельную книгу с названием соответствующим названию листа в исходном файле притом все данные . Также после он должен каждую книгу отправить на мыло по адресам которые находятся в файле "стартовый". Адреса мыла в ячейках так-же могут менятся. Но ячейка адреса привязана к названию книги.

Я вот ч горем пополам начал. Даже обозначил первую переменную. И все тупик(.

Sub tttt()
    File0 = "Стартовый.xls"
  Windows(File0).Activate
    Sheets("spr").Select
    
    forma = Cells(9, 7)
    
    
    Workbooks.Open Filename:=forma, UpdateLinks:=0
    Sheets("z00").Select
    Sheets("z00").Copy
    ActiveWorkbook.Colors = Workbooks("Стартовый.xls").Colors
    Cells.Select
    Range("Z1").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
End Sub

СИл моих больше нет. Незнаю, что делать дальше.

[doober]

Сообщение от NoLL

Добрый вечер. Мучаюсь с 11ти утра.

СИл моих больше нет. Незнаю, что делать дальше.

Что делать-в поиске по форуму волшебное слово Отправкв Почты,или Почта вбить.Вариантов много.
Вот один из них

[NoLL]

Сообщение от doober

Что делать-в поиске по форуму волшебное слово Отправкв Почты,или Почта вбить.Вариантов много.
Вот один из них

С почтой- то как раз проблем не будет, проблема именно в том, что бы лист сохранялся по нужному мне адресу. А адрес этот меняется кждый месяц. И что бы каждый месяц не лезть в макрос меня в коде адрес на нужный, он прописывается в ячейке.

[doober]

Это не должно быть проблемой

Public path1 As String, path2 As String, path3 As String

Sub Init_Path()
    path1 = Sheets("spr").Range("G6")
    path2 = Sheets("spr").Range("G7")
    path3 = Sheets("spr").Range("G9")
End Sub

[NoLL]

Сообщение от doober

Это не должно быть проблемой

Public path1 As String, path2 As String, path3 As String

Sub Init_Path()
    path1 = Sheets("spr").Range("G6")
    path2 = Sheets("spr").Range("G7")
    path3 = Sheets("spr").Range("G9")
End Sub

Но проблема остается.

Вот так выглядит это если через запись:

Sub Save()
ChDir "d:\documents\otchet\2010\Prognoz\11\пояс\"
    ActiveWorkbook.SaveAs Filename:= _
        "d:\documents\otchet\2010\Prognoz\11\пояс\i11.xls",_

        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
Еnd Sub

И вот тут то где он сохраняется в пути d:\documents\otchet\2010\Prognoz\11 \пояс\i11.xls -это меняется в ячейке G7 а название файла нет
И как это слепить вместе. Ума не приложу.

[doober]

Sub Save()

    ActiveWorkbook.SaveAs Filename:=Sheets("spr").Range("G9") _
       ,_

        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
Еnd Sub