Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранить лист в отдельный файл. - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » Сохранить лист в отдельный файл. (VBA)
Сохранить лист в отдельный файл.
AVI Дата: Среда, 07.09.2016, 09:22 | Сообщение № 21
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 17 ±
Замечаний: 0% ±

Excel 2016
Цитата китин, 07.09.2016 в 07:20, в сообщении № 20
правила прочитать и задать вопрос в соответствующей теме

Ну так у меня вопрос по данному макросу. При сохранении листа в отдельную книгу мне необходимо, что бы с исходного листа удалялись 5 первых столбцов и можно было назвать файл. Взял за основу макрос из поста № 1 в этой теме.
 
Ответить
Сообщение
Цитата китин, 07.09.2016 в 07:20, в сообщении № 20
правила прочитать и задать вопрос в соответствующей теме

Ну так у меня вопрос по данному макросу. При сохранении листа в отдельную книгу мне необходимо, что бы с исходного листа удалялись 5 первых столбцов и можно было назвать файл. Взял за основу макрос из поста № 1 в этой теме.
Автор - AVI
Дата добавления - 07.09.2016 в 09:22
китин Дата: Среда, 07.09.2016, 09:43 | Сообщение № 22
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
AVI, это ветка для ГОТОВЫХ решений. Для вопросов существует тема Вопросы по VBA.

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 07.09.2016, 09:44
 
Ответить
СообщениеAVI, это ветка для ГОТОВЫХ решений. Для вопросов существует тема Вопросы по VBA.
Автор - китин
Дата добавления - 07.09.2016 в 09:43
AVI Дата: Среда, 07.09.2016, 11:14 | Сообщение № 23
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 17 ±
Замечаний: 0% ±

Excel 2016
Цитата китин, 07.09.2016 в 09:43, в сообщении № 22
AVI, это ветка для ГОТОВЫХ решений. Для вопросов существует тема Вопросы по VBA.

Понял, спасибо.
 
Ответить
Сообщение
Цитата китин, 07.09.2016 в 09:43, в сообщении № 22
AVI, это ветка для ГОТОВЫХ решений. Для вопросов существует тема Вопросы по VBA.

Понял, спасибо.
Автор - AVI
Дата добавления - 07.09.2016 в 11:14
Nikolay86 Дата: Четверг, 20.10.2016, 13:09 | Сообщение № 24
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Как в указанном коде назначить имя сохраняемого файла значением из ячейки D3, например?
Цитата Wasilich, 08.10.2014 в 00:21, в сообщении № 14
Sub Лист_в_файл() 'Сохранить текущий лист.
    Dim List$, iPath$
    iPath = "D:\Папка\папка\" ' конкретный адрес для сохранения нового файла
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    List = ActiveSheet.Name
    Sheets(List).Copy
    Sheets(List).UsedRange.Value = Sheets(List).UsedRange.Value
    Sheets(List).Buttons.Delete 'Удаляем кнопки
    'Sheets(List).DrawingObjects.Delete 'Удаляем все элементы
    ActiveWorkbook.SaveAs iPath & List '& ".xls"
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Готово!"
End Sub
К сообщению приложен файл: 6895269.xls (40.0 Kb)
 
Ответить
СообщениеКак в указанном коде назначить имя сохраняемого файла значением из ячейки D3, например?
Цитата Wasilich, 08.10.2014 в 00:21, в сообщении № 14
Sub Лист_в_файл() 'Сохранить текущий лист.
    Dim List$, iPath$
    iPath = "D:\Папка\папка\" ' конкретный адрес для сохранения нового файла
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    List = ActiveSheet.Name
    Sheets(List).Copy
    Sheets(List).UsedRange.Value = Sheets(List).UsedRange.Value
    Sheets(List).Buttons.Delete 'Удаляем кнопки
    'Sheets(List).DrawingObjects.Delete 'Удаляем все элементы
    ActiveWorkbook.SaveAs iPath & List '& ".xls"
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Готово!"
End Sub
Автор - Nikolay86
Дата добавления - 20.10.2016 в 13:09
Pelena Дата: Четверг, 20.10.2016, 14:04 | Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 19181
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
List = ActiveSheet.Name
[/vba]
заменить на
[vba]
Код
List = ActiveSheet.[D3].Value
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
List = ActiveSheet.Name
[/vba]
заменить на
[vba]
Код
List = ActiveSheet.[D3].Value
[/vba]
Автор - Pelena
Дата добавления - 20.10.2016 в 14:04
Nikolay86 Дата: Четверг, 20.10.2016, 14:33 | Сообщение № 26
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Цитата Pelena, 20.10.2016 в 14:04, в сообщении № 25
List = ActiveSheet.[D3].Value

Пишет: Subscript out of range и выделяет следующую строку "Sheets(List).Copy" желтым.
 
Ответить
Сообщение
Цитата Pelena, 20.10.2016 в 14:04, в сообщении № 25
List = ActiveSheet.[D3].Value

Пишет: Subscript out of range и выделяет следующую строку "Sheets(List).Copy" желтым.
Автор - Nikolay86
Дата добавления - 20.10.2016 в 14:33
Pelena Дата: Четверг, 20.10.2016, 14:37 | Сообщение № 27
Группа: Админы
Ранг: Местный житель
Сообщений: 19181
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
А ну да. List оставляем, как было. Здесь вместо List пишем [D3]
[vba]
Код
ActiveWorkbook.SaveAs iPath & List '& ".xls"
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА ну да. List оставляем, как было. Здесь вместо List пишем [D3]
[vba]
Код
ActiveWorkbook.SaveAs iPath & List '& ".xls"
[/vba]
Автор - Pelena
Дата добавления - 20.10.2016 в 14:37
Nikolay86 Дата: Четверг, 20.10.2016, 16:16 | Сообщение № 28
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Так создает hands ). А если имя файла должно быть "Слово&_значениеD3(без последних трех символов)"? :)


Сообщение отредактировал Nikolay86 - Четверг, 20.10.2016, 16:18
 
Ответить
СообщениеТак создает hands ). А если имя файла должно быть "Слово&_значениеD3(без последних трех символов)"? :)
Автор - Nikolay86
Дата добавления - 20.10.2016 в 16:16
Pelena Дата: Четверг, 20.10.2016, 16:36 | Сообщение № 29
Группа: Админы
Ранг: Местный житель
Сообщений: 19181
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Читайте про функции ЛЕВСИМВ (Left) и СЦЕПИТЬ (&).
Если не разберётесь, создавайте новую тему, так как этот вопрос к теме, а тем более к разделу Готовые решения, не относится

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЧитайте про функции ЛЕВСИМВ (Left) и СЦЕПИТЬ (&).
Если не разберётесь, создавайте новую тему, так как этот вопрос к теме, а тем более к разделу Готовые решения, не относится
Автор - Pelena
Дата добавления - 20.10.2016 в 16:36
Мир MS Excel » Вопросы и решения » Готовые решения » Сохранить лист в отдельный файл. (VBA)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!