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

Вход

Регистрация

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

 

= Мир MS Excel/Создание копии листа в заданную директорию добавлением - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание копии листа в заданную директорию добавлением (Макросы/Sub)
Создание копии листа в заданную директорию добавлением
ASM_0408 Дата: Воскресенье, 01.04.2018, 12:52 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 239
Репутация: 0 ±
Замечаний: 0% ±

Excel 2021
Приветствую всех форумчан! Ребята 3 день бьюсь над задачей и ни как не получается найти решение которое бы соответствовало моим пожеланиям. Есть фаил с расчетом в этом файле есть еще один лист спецификации на который собираются данные с листа расчета. Файл лежит в директории "C:\Тест1". Создал на локальном компе упрощенную версию. Необходимо чтобы данные с Листа "Спецификация" копировались желательно с сохранением ширины столбцов в директорию "F:\Свод по спецификациям" файл "План_факт_Э_С.xlsm" добавлением и накоплением листов. Если возможно чтобы с листа "Расчет" из ячейки "А1" брал название создаваемого листа. Пример своих мучений прилагаю получилось создание отдельной книги и постоянное перетирание файла и листа.
Благодарю за отзывчивость!
К сообщению приложен файл: _Microsoft_Exce.xlsm (84.2 Kb)
 
Ответить
СообщениеПриветствую всех форумчан! Ребята 3 день бьюсь над задачей и ни как не получается найти решение которое бы соответствовало моим пожеланиям. Есть фаил с расчетом в этом файле есть еще один лист спецификации на который собираются данные с листа расчета. Файл лежит в директории "C:\Тест1". Создал на локальном компе упрощенную версию. Необходимо чтобы данные с Листа "Спецификация" копировались желательно с сохранением ширины столбцов в директорию "F:\Свод по спецификациям" файл "План_факт_Э_С.xlsm" добавлением и накоплением листов. Если возможно чтобы с листа "Расчет" из ячейки "А1" брал название создаваемого листа. Пример своих мучений прилагаю получилось создание отдельной книги и постоянное перетирание файла и листа.
Благодарю за отзывчивость!
Автор - ASM_0408
Дата добавления - 01.04.2018 в 12:52
RAN Дата: Воскресенье, 01.04.2018, 14:34 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub qq()
    Dim Kniga As Workbook       'Ввод переменной MyWorkbook типа "книга"
    Application.ScreenUpdating = False
    Set Kniga = Workbooks.Open("F:\Свод по спецификациям\План_факт_Э_С.xlsm")
    ThisWorkbook.Sheets("Спецификация").Copy After:=Kniga.Sheets(Kniga.Sheets.Count)      'Копирование листа в новую книгу (файл)
    ActiveSheet.Name = ThisWorkbook.Sheets("Расчет").Range("A1").Value
    Kniga.Save
    Kniga.Close
    Application.ScreenUpdating = True
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub qq()
    Dim Kniga As Workbook       'Ввод переменной MyWorkbook типа "книга"
    Application.ScreenUpdating = False
    Set Kniga = Workbooks.Open("F:\Свод по спецификациям\План_факт_Э_С.xlsm")
    ThisWorkbook.Sheets("Спецификация").Copy After:=Kniga.Sheets(Kniga.Sheets.Count)      'Копирование листа в новую книгу (файл)
    ActiveSheet.Name = ThisWorkbook.Sheets("Расчет").Range("A1").Value
    Kniga.Save
    Kniga.Close
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - RAN
Дата добавления - 01.04.2018 в 14:34
ASM_0408 Дата: Воскресенье, 01.04.2018, 15:00 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 239
Репутация: 0 ±
Замечаний: 0% ±

Excel 2021
RAN, Благодарю, отлично работает!
 
Ответить
СообщениеRAN, Благодарю, отлично работает!
Автор - ASM_0408
Дата добавления - 01.04.2018 в 15:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание копии листа в заданную директорию добавлением (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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