Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сохранить в нужную папку
 
#1
11.06.2015 17:03:02
Есть макрос, нужно сохранить в F:\Новая папка, а он сохраняет в диск С:\ или получалось на "Рабочий стол"
Подскажите где путь прописать? Спасибо!

Код
Sub Сохранить файл()
    On Error Resume Next    
    Const REPORTS_FOLDER = "Июнь\"   
    MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
   
    ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
    Filename = Application.GetSaveAsFilename("отчет.xls", "Книга Excel (*.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
        
        ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
        ActiveWorkbook.Close False
    End If
End Sub
 
 
 
#2
11.06.2015 17:12:00
Писать здесь: "ActiveWorkbook.SaveAs Filename, xlWorkbookNormal", добавлять перед Filename.
 
 
 
#3
11.06.2015 17:12:22
И еще вопросик, сохраняет файл как текущую дату (подчеркнул), возможно ли чтобы сохраняло как например: "Отчет 2015-06-11"

Filename = Application.GetSaveAsFilename(Format$(Date, "yyyy\-mm\-dd"), "Книга Excel(*.xls),"

Спасибо!
Изменено: Gorf - 11.06.2015 17:12:51
 
 
 
#4
11.06.2015 17:13:22
наверное так
Код
Filename = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & REPORTS_FOLDER & "\" & Format(Date, "yyyy-mm-dd") & "отчет.xls", "Книга Excel (*.xls),", , )
Изменено: TheBestOfTheBest - 11.06.2015 17:34:46
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#5
11.06.2015 17:13:48
Совет все тот же - цепляйте к Filename.
 
 
 
#6
11.06.2015 17:25:47
[USER=54320]TheBestOfTheBest[/USER, спасибо! Авот путь нужный задать не выходит (
Изменено: Gorf - 11.06.2015 19:11:28
 
 
 
#7
11.06.2015 17:34:18
попробуйте вместо Application.GetSaveAsFilename использовать ActiveWorkbook.SaveAs
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#8
11.06.2015 17:43:54
Путь и имя файла цепляйте в Filename или по GetSaveAsFilename указывайте свой.
Изменено: Влад - 11.06.2015 17:47:05
 
 
 
#9
11.06.2015 18:00:04
Ошибка :(  как не крути...
 
 
 
#10
11.06.2015 18:14:38
Код
Filename = ThisWorkbook.Path & "\" & REPORTS_FOLDER & Format$(Date, "yyyy-mm-dd") & "-отчет.xls"
ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
Больше ничего не нужно.
Изменено: Влад - 11.06.2015 18:15:16
 
 
 
#11
11.06.2015 18:48:07
Влад, подскажите куда тут прописать этот путь - F:\Новая папка? Сейчас сохраняет в библиотеку..
 
 
 
#12
11.06.2015 19:09:35
Код
Filename = "F:\Новая папка\" & Format(Date, "yyyy-mm-dd") & "-отчет.xls"
Изменено: TheBestOfTheBest - 11.06.2015 19:09:51
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#13
11.06.2015 19:29:51
TheBestOfTheBest, спасибо огромное все вышло даже лучше чем я думал!
 
 
 
Страницы: 1
Читают тему
Наверх