конкретный лист в файл с именем родительского

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » конкретный лист в файл с именем родительского (Макросы/Sub)

koyaanisqatsi

Дата: Воскресенье, 09.11.2014, 00:35 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
Нашел на этом форуме готовое решение для одной задачи. Хочется поэксперементировать с ВБА.
Готовый код взял с поста №16[vba]

Код

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

[/vba]Хочется косметических доделок.

1. Хочу сохранять файл под именем родительского файла, возможно в идеале в начале файла было бы приписать слово экспорт. Названия файла "Овощи 11.11.2014 Вторник.xlsm" или "Овощи 11.13.2014 Четверг.xlsm"
2. Нужно сохранять только одну страницу под названием "Экспорт"

остальное работает правильно насколько я понял. единственное хотелось бы понять какие варианты запуска бывают? Я нажимаю альт F8 выскакивает окошко с двумя на выбор позициями. Как можно этот процесс сократить до минимума. Нажал кнопку одну получил файл (ее можно было бы расположить в ячейке А1 лист Заявки).

Код

К сообщению приложен файл: Ovoshi_11.11.20.xlsm (46.4 Kb)

Сообщение отредактировал Serge_007 - Воскресенье, 09.11.2014, 02:29

Ответить

СообщениеЗдравствуйте.
Нашел на этом форуме готовое решение для одной задачи. Хочется поэксперементировать с ВБА.
Готовый код взял с поста №16[vba]

Код

Автор - koyaanisqatsi
Дата добавления - 09.11.2014 в 00:35

Pelena

Дата: Воскресенье, 09.11.2014, 09:54 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19196

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Как умею

К сообщению приложен файл: 6304199.xlsm (49.8 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

koyaanisqatsi

Дата: Воскресенье, 09.11.2014, 11:29 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Pelena, Вроде все отлично ! Надо будет потетстить ) Спасибо !

Хм. при экспорте таких ячеек "1/003" и "1/955" он это пытается посчитать. Как ему объяснить что это путь к контрагенту а не пример ?

Сообщение отредактировал koyaanisqatsi - Воскресенье, 09.11.2014, 21:21

Ответить

AndreTM

Дата: Понедельник, 10.11.2014, 23:01 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Ещё вариант. И проблемы с "делением" решает вроде...

К сообщению приложен файл: 10-14064-1-1.xlsm (52.1 Kb)

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » конкретный лист в файл с именем родительского (Макросы/Sub)

Страница 1 из 1
1