Cохранение книги в выбираемой директории с именем файла из ячейки

[dfc]

Уважаемые все, кто оказались неравнодушными,
я пишу макрос для автоматического создания заявки. Мой запрос касается части этого макроса. Части с которой я не могу справиться и не знаю в какую сторону двигаться ввиду малого опыта. Знаю как сохранить книгу в определённую директорию, но присылать этот код как попытку решения стоящей передо мной задачи - бессмысленно. Поэтому мой запрос выглядел так. Очевидно, что некорректно и следовало дать дополнительные пояснения. Извиняюсь если доставил неудобства. Большое спасибо The_Prist за то, что направили. Ниже моя попытка. Буду признателен если поясните, почему при выборе на рабочем столе папки  для сохранения "111", например, книга всё-равно сохраняется на рабочий стол.

Код: (vb)

Sub ShowFolderDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD
        .Title = "Выбор папки"
        .ButtonName = "OK"
        .Filters.Clear
        .InitialFileName = "C:\Temp\"
        .InitialView = msoFileDialogViewList
        If oFD.Show = 0 Then Exit Sub
        x = .SelectedItems(1)
        ActiveWorkbook.SaveAs sFolder & Range("A1") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    End With
End Sub

[Юрий М]

Да успокойтесь Вы уже. Эту тему я, скорее всего, видел раньше Вас. Не пойму - зачем Вы даёте ссылку на неё. Нравится Вам помогать - помогайте. Если Вам по какой-то причине "неудобно" - не помогайте. Но не вмешивайтесь в действия модератора. Вот и всё. Считаете, что он неправ - напишите ему в личку, администратору...

[Василий_Кориш]

Комментарий глобального модератора

Василий_Кориш, перестаньте цитировать без надобности. Кнопка цитирования не для ответа!

Значит Джонни из этой темы может вмешиваться, а я нет? Я просто дискутирую.

Комментарий глобального модератора

Не допускаются ссылки, не относящиеся к данной теме.

[Юрий М]

Василий, Вам скучно? Сказано ведь - прекратили в тему дискуссию. Займитесь помощью.

[Василий_Кориш]

Комментарий глобального модератора

ДА ПЕРЕСТАНЬТЕ НАЖИМАТЬ КНОПКУ ЦИТИРОВАНИЯ!!! Она от Вас уже красная!!!

Не вижу кнопки "Имя". Как Вас выделить-то?

[Юрий М]

Будете троллить - бан получите.

[Василий_Кориш]

Не вижу кнопки "Имя". Как Вас выделить-то?
Без цитирования - не понятно, к кому я обращаюсь - Вам или ТС.

[Дмитрий Щербаков(The_Prist)]

Василий_Кориш, Вы хотя бы разделяйте понятия: просьба и требование модератора для исправления нарушений правил форума, и на те, которые правила не нарушают. По приведенной Вами ссылке требование устранить нарушение правил форума в части названия темы. И это требование должно быть устранено, иначе помощь автору темы будет скрываться или тема будет удалена. Здесь же, на этом форуме - никто ничего не запрещал. Модератор просто сказал, что с таким подходом больше в платный раздел, чем скрываться за словами вроде "помощь".
И уж тем более нет никакого смысла приводить в пример другой форум - там и правила другие.

Не надо здесь склоку образовывать и пытаться свои правила устанавливать. Вас никто ничего не заставляет. Хотите помочь - помогайте. Вам Администратор уже добро дал и все разъяснил, а Вы продолжаете чушь нести и чему-то нас научить. Раз так переживаете за автора - напишите ему уже код и радуйтесь. Никто Вас не осудить. А если помочь не можете - так и не надо из себя адвоката строить. Я по правилам Вас за флуд в теме сейчас забаню на денек другой, чтобы не заосоряли своими не относящимися к делу проблемами темы других людей.

[Дмитрий Щербаков(The_Prist)]

Автору
Эту строку:
x = .SelectedItems(1) 
        ActiveWorkbook.SaveAs sFolder & Range("A1") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
надо дополнить. скорее всего у Вас файл не просто на рабочем столе сохраняется, а еще и в начале есть то самое "111". Так будет вернее:

Код: (vb)

x = .SelectedItems(1)
If Right(x,1) <> application.pathseparator then x = x & application.pathseparator
        ActiveWorkbook.SaveAs sFolder & Range("A1") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

Напишите потом, получилось или нет.

[Дмитрий Щербаков(The_Prist)]

Значит Джонни из этой темы может вмешиваться, а я нет? Я просто дискутирую.

Идите в Курилку и там дискутируйте. И правила форума по пути перечитайте. Всю тему человеку загадили своим трепом. Ладно бы хоть что-то полезное написали - нет ведь, треп и флуд. В общем еще одно сообщение не по теме - и выпишу Вам БАН. Чуть позже подчищу эту тему от всего лишнего.

[vikttur]

Да уже... Бан навсегда. И на Планете.

[dfc]

Напишите потом, получилось или нет.

В начале не было "111". С указанными Вами изменениями книга по-прежнему сохраняется на рабочий стол. Нашел другое подходящее мне решение:

Код: (vb)

Sub Save_My_Sheet()
Application.Dialogs(xlDialogSaveAs).Show Range("A1"), xlOpenXMLWorkbook
End Sub

В любом случае спасибо Вам.

[Дмитрий Щербаков(The_Prist)]

Вообще очень странно. У меня код отрабатывает как положено, если выбрать нужную папку. Без сюрпризов.

[Артур]

Здравствуйте!
Помогите, пожалуйста, создать макрос по сохранению вновь созданной книги с именем файла из ячейки «А1» в директории выбираемой пользователем.

Картина такая:
- Создана новая книга.
- В ячейку «А1» внесено имя для файла.
 
Макрос:
- Запускается макрос.
- Появляется окно выбора папки для сохранения книги.
- Пользователь выбирает папку.
- Файл сохраняется с именем файла из ячейки «А1» в определённой пользователем директории в формате xlsx.

MS Excel 2010

Всем доброго времени суток!
Пожалуйста, подскажите, в чём неправильно составлен код?

Sub СохранитьЛистВФайл()
On Error Resume Next
    ' название подпапки, в которую по-умолчанию будет предложено сохранить файл
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs [B14]
    Application.DisplayAlerts = True
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs [D14]
    Application.DisplayAlerts = True
     
    ' вывод диалогового окна для запроса имени сохраняемого файла
    Filename = "c:\Users\Admin\Documents\Служебные записки на формирование цены автомобиля trade-in" & Range("a1") & ".xls"
   
    ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
    If VarType(Filename) = vbBoolean Then Exit Sub
 
    ' копируем активный лист (при этом создаётся новая книга)
    Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа
 
    ' убеждаемся, что активной книгой является копия листа
    If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
        ' сохраняем файл под заданным именем в формате Excel 2010
        ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
 
        ' закрываем сохранённый файл
        ' (удалите следующую строку, если закрывать созданный файл не требуется)
        ActiveWorkbook.Close False
    End If
End Sub

Объясняю, что я хочу, что бы у меня получилось. В ячейках B14 и D14 хранятся данные о модели автомобиля и его VIN
соответственно. Когда я буду сохранять нужный мне файл в папку "Служебные записки на формирование цены автомобиля trade-in", в поле "имя файла" должны автоматически появляться данные о модели и VIN автомобиля.
Помогите, пожалуйста, исправить код.