ReSQL.ru
     
powered by simpleCommunicator - 2.0.48     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос копирования листа (объединить между собой)
10 сообщений из 10, страница 1 из 1
Макрос копирования листа (объединить между собой)
    #39965019
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Всем привет!

В файле 3 макроса (кнопки):

1. сохраняет каждый лист отдельно
2. копирует выделенный лист но не сохраняет
3. сохраняет выделенный лист в PDF

Прошу помочь объединить эти макросы:

Что бы одной кнопкой (макросом) было сохранение только выделенного листа в excel и PDF одновременно

На приложенном примере, этот макрос применяется к (листу Бланк)
...
Рейтинг: 0 / 0
01.06.2020, 14:22
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965618
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
PlomBir1,

Код: vbnet
1.
2.
3.
4.
5.
Sub ВсеВместе()
    Штриховаястрелкавправо4_Щелчок
    Штриховаястрелкавправо6_Щелчок
    Штриховаястрелкавправо7_Щелчок
End Sub



ps
Пунктуация автора сохранена )
...
Рейтинг: 0 / 0
03.06.2020, 12:53
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965620
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
big-duke
Пунктуация автора сохранена )
Как называется эта нотация? под Pascal, Camel, Snake и Kebab не подходит
...
Рейтинг: 0 / 0
03.06.2020, 12:57
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965827
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
big-duke,

Спасибо, теперь буду знать этот способ
...
Рейтинг: 0 / 0
03.06.2020, 17:38
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965828
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
Подскажите как в этом макросе сделать чтоб он сохранял только выделенный лист и переименовывал его как "копия №_ от даты"

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Штриховаястрелкавправо4_Щелчок()

    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
        s.Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"
    Next
        
End Sub
...
Рейтинг: 0 / 0
03.06.2020, 17:39
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965855
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
PlomBir1,
Где сохранял ? В новой книге ?
...
Рейтинг: 0 / 0
03.06.2020, 18:28
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965871
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Код: vbnet
1.
2.
3.
Set wb = ActiveWorkbook
Activesheet.Copy
ActiveWorkbook.SaveAs wb.Path & "\копия №_ от даты.xlsx"
...
Рейтинг: 0 / 0
03.06.2020, 19:49
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39965895
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
big-duke,

Нужно чтоб сохранял, только выделенный лист (листы) отдельным файлом (файлами) в папку.

Сейчас макрос делит книгу на листы и каждый сохраняет отдельным файлом в папку.

(В оригинальной книге 15 листов, а сохранять требуется 1, 2)
...
Рейтинг: 0 / 0
03.06.2020, 21:01
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39966052
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
PlomBir1
выделенный лист ( листы )
тогда так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Штриховаястрелкавправо4_Щелчок()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In ActiveWindow.SelectedSheets
        s.Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"
    Next
End Sub


но непонятно тогда с этим:"копия №_ от даты"
Если выделено более одного листа - нельзя же всем дать одно и тоже имя.
...
Рейтинг: 0 / 0
04.06.2020, 12:15
| Ответить | Цитировать | Написать  
Макрос копирования листа (объединить между собой)
    #39966184
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlomBir1
Участник
The_Prist,
Спасибо, теперь получилось

Совместными усилиями макрос выгляди так (максимально то что было задумано):

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Штриховаястрелкавправо4_Щелчок()
           
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In ActiveWindow.SelectedSheets
        s.Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "Копия_№ " & [A11] & "_" & "От " & [A12] & ".xlsx"
        s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & s.Name & [A11] & "_" & [A12] & ".pdf", Type:=x1TypePDF
    Next

End Sub



зы. идеально для одного листа, так как выделенные листы PDFка собирает все в себя и копирует под каждое имя выделенного листа xlsx (сложно написал, лучше смотреть)
...
Рейтинг: 0 / 0
04.06.2020, 15:55
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос копирования листа (объединить между собой)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39965871&tid=2171874]:
 0ms
get settings:
 10ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 273ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]