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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование в файл-шаблон и пересохранение под другим именем - Мир MS Excel

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

Excel 2013
Добрый день.

Есть вот такая задумка, которая частично реализована.

Есть файл Запуск, в котором на Листе1 кнопка.
По нажатию на нее:

- копируются со второго листа этого файла номера коробов, которые имеют индикатор "x" во втором столбце
- открывается файл Образец и на лист Выгрузка копируются эти коробки

- далее задумано сохранение файла с подгруженными данными под именем Скан и закрытие файла Образец без сохранений.

Путь ThisWorkbookPath

Подскажите пожалуйста, как мне дописать код правильно на кнопке?

И еще момент. Если книга Скан уже существует, нужно перезаписывать ее с заменой...
К сообщению приложен файл: 5966933.rar(54.8 Kb)


Сообщение отредактировал Raven2009 - Понедельник, 16.12.2019, 21:29
 
Ответить
СообщениеДобрый день.

Есть вот такая задумка, которая частично реализована.

Есть файл Запуск, в котором на Листе1 кнопка.
По нажатию на нее:

- копируются со второго листа этого файла номера коробов, которые имеют индикатор "x" во втором столбце
- открывается файл Образец и на лист Выгрузка копируются эти коробки

- далее задумано сохранение файла с подгруженными данными под именем Скан и закрытие файла Образец без сохранений.

Путь ThisWorkbookPath

Подскажите пожалуйста, как мне дописать код правильно на кнопке?

И еще момент. Если книга Скан уже существует, нужно перезаписывать ее с заменой...

Автор - Raven2009
Дата добавления - 16.12.2019 в 21:27
Pelena Дата: Вторник, 17.12.2019, 09:06 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18551
Репутация: 4200 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Так хотели?
К сообщению приложен файл: 5300776.xlsb(47.7 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Так хотели?

Автор - Pelena
Дата добавления - 17.12.2019 в 09:06
Raven2009 Дата: Вторник, 17.12.2019, 09:19 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Так хотели?


Здравствуйте) Именно так, спасибо вам большое! И дописать всего ничего оставалось)))
 
Ответить
Сообщение
Так хотели?


Здравствуйте) Именно так, спасибо вам большое! И дописать всего ничего оставалось)))

Автор - Raven2009
Дата добавления - 17.12.2019 в 09:19
RAN Дата: Вторник, 17.12.2019, 11:45 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5629
Репутация: 1143 ±
Замечаний: 0% ±

2010
С таким образцом зачем он вообще нужен?
[vba]
Код
Sub мяу()
    Dim wb As Workbook, st As Boolean
    With ThisWorkbook.Worksheets("Разбивка").ListObjects(1)
        st = .ShowTotals
        .ShowTotals = False
        .Range.AutoFilter Field:=2, Criteria1:="x"
        Set wb = Workbooks.Add
        .ListColumns(1).Range.SpecialCells(12).Copy wb.Sheets(1).Cells(1)
        .Range.AutoFilter Field:=2
        .ShowTotals = st
    End With
    Application.DisplayAlerts = False
    wb.SaveAs ThisWorkbook.Path & "\скан.xlsx", 51
    wb.Close False
    Application.DisplayAlerts = True
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеС таким образцом зачем он вообще нужен?
[vba]
Код
Sub мяу()
    Dim wb As Workbook, st As Boolean
    With ThisWorkbook.Worksheets("Разбивка").ListObjects(1)
        st = .ShowTotals
        .ShowTotals = False
        .Range.AutoFilter Field:=2, Criteria1:="x"
        Set wb = Workbooks.Add
        .ListColumns(1).Range.SpecialCells(12).Copy wb.Sheets(1).Cells(1)
        .Range.AutoFilter Field:=2
        .ShowTotals = st
    End With
    Application.DisplayAlerts = False
    wb.SaveAs ThisWorkbook.Path & "\скан.xlsx", 51
    wb.Close False
    Application.DisplayAlerts = True
End Sub
[/vba]

Автор - RAN
Дата добавления - 17.12.2019 в 11:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование в файл-шаблон и пересохранение под другим именем (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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