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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос по созданию листа в файл. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос по созданию листа в файл.
Mark1976 Дата: Четверг, 16.05.2024, 16:43 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Помогите отредактировать макрос. Мне надо. Открываю файл, выделяю нужный диапазон, запускаю макрос, который создает новый файл в ту папку, где лежит исходный файл (файл должен просто сохранится в папку под каким то именем, но без его автоматического открытия).
[vba]
Код

Sub Лист_в_файл()
    Dim AW As Window
    Set AW = ActiveWindow
    For Each s In AW.SelectedSheets
        Set TempWindow = AW.NewWindow    'создаем отдельное временное окно
        s.Copy                           'копируем туда лист из выделенного диапазона
        TempWindow.Close                 'закрываем временное окно
    Next
End Sub
[/vba]


Сообщение отредактировал Mark1976 - Четверг, 16.05.2024, 16:44
 
Ответить
СообщениеЗдравствуйте. Помогите отредактировать макрос. Мне надо. Открываю файл, выделяю нужный диапазон, запускаю макрос, который создает новый файл в ту папку, где лежит исходный файл (файл должен просто сохранится в папку под каким то именем, но без его автоматического открытия).
[vba]
Код

Sub Лист_в_файл()
    Dim AW As Window
    Set AW = ActiveWindow
    For Each s In AW.SelectedSheets
        Set TempWindow = AW.NewWindow    'создаем отдельное временное окно
        s.Copy                           'копируем туда лист из выделенного диапазона
        TempWindow.Close                 'закрываем временное окно
    Next
End Sub
[/vba]

Автор - Mark1976
Дата добавления - 16.05.2024 в 16:43
Nic70y Дата: Пятница, 17.05.2024, 10:54 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub xu()
    Application.ScreenUpdating = False
    a = ThisWorkbook.Path
    b = Format(Now, "yy.mm.dd_hhmmss") & ".xlsx"
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=51
    ThisWorkbook.Activate
    c = Workbooks(b).Sheets.Count
    Workbooks(b).Sheets(1).Name = "k#k"
    Application.DisplayAlerts = False
    If c > 1 Then
        For d = c To 2 Step -1
            Workbooks(b).Sheets(d).Delete
        Next
    End If
    ActiveWindow.SelectedSheets.Copy After:=Workbooks(b).Sheets("k#k")
    Workbooks(b).Sheets("k#k").Delete
    Workbooks(b).Close True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
[/vba]так?


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub xu()
    Application.ScreenUpdating = False
    a = ThisWorkbook.Path
    b = Format(Now, "yy.mm.dd_hhmmss") & ".xlsx"
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=51
    ThisWorkbook.Activate
    c = Workbooks(b).Sheets.Count
    Workbooks(b).Sheets(1).Name = "k#k"
    Application.DisplayAlerts = False
    If c > 1 Then
        For d = c To 2 Step -1
            Workbooks(b).Sheets(d).Delete
        Next
    End If
    ActiveWindow.SelectedSheets.Copy After:=Workbooks(b).Sheets("k#k")
    Workbooks(b).Sheets("k#k").Delete
    Workbooks(b).Close True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
[/vba]так?

Автор - Nic70y
Дата добавления - 17.05.2024 в 10:54
Mark1976 Дата: Пятница, 17.05.2024, 12:01 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, здравствуйте. Не работает. Теперь при открытии любого файла эксель открывается новый файл с именем дата_время. При запуске макроса никакой файл не сохраняется в исходную папку
 
Ответить
СообщениеNic70y, здравствуйте. Не работает. Теперь при открытии любого файла эксель открывается новый файл с именем дата_время. При запуске макроса никакой файл не сохраняется в исходную папку

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:01
Mark1976 Дата: Пятница, 17.05.2024, 12:02 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
как теперь сделать, чтобы не создавался и открывался новый файл? я макрос удалил. запускаю любой файл эксель, открываются еще 2 новых пустых файлов. как это убрать???


Сообщение отредактировал Mark1976 - Пятница, 17.05.2024, 12:06
 
Ответить
Сообщениекак теперь сделать, чтобы не создавался и открывался новый файл? я макрос удалил. запускаю любой файл эксель, открываются еще 2 новых пустых файлов. как это убрать???

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:02
Nic70y Дата: Пятница, 17.05.2024, 12:05 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
Теперь при открытии любого файла эксель открывается новый файл
Вы куда макрос сохранили?


ЮMoney 41001841029809
 
Ответить
Сообщение
Теперь при открытии любого файла эксель открывается новый файл
Вы куда макрос сохранили?

Автор - Nic70y
Дата добавления - 17.05.2024 в 12:05
Mark1976 Дата: Пятница, 17.05.2024, 12:13 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, персонал. Теперь что то попало в автозагрузку. И как это убрать?


Сообщение отредактировал Mark1976 - Пятница, 17.05.2024, 12:13
 
Ответить
СообщениеNic70y, персонал. Теперь что то попало в автозагрузку. И как это убрать?

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:13
Mark1976 Дата: Пятница, 17.05.2024, 12:19 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, помогите убрать файлы из автозагрузки.
 
Ответить
СообщениеNic70y, помогите убрать файлы из автозагрузки.

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:19
Mark1976 Дата: Пятница, 17.05.2024, 12:25 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
теперь при запуске любого файла эксель запускаются 2 файла: 24.05.17_125605 и 24.05.17_125922. Как это убрать?


Сообщение отредактировал Mark1976 - Пятница, 17.05.2024, 12:25
 
Ответить
Сообщениетеперь при запуске любого файла эксель запускаются 2 файла: 24.05.17_125605 и 24.05.17_125922. Как это убрать?

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:25
Nic70y Дата: Пятница, 17.05.2024, 12:32 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
при запуске любого файла
не должно быть такого, если макрос не привязан к событию


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 17.05.2024, 13:12
 
Ответить
Сообщение
при запуске любого файла
не должно быть такого, если макрос не привязан к событию

Автор - Nic70y
Дата добавления - 17.05.2024 в 12:32
Mark1976 Дата: Пятница, 17.05.2024, 12:35 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, есть такое
 
Ответить
СообщениеNic70y, есть такое

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:35
Mark1976 Дата: Пятница, 17.05.2024, 12:37 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Mark1976, и лежат эти файлы вместе с файлом персонал. как их удалить оттуда7
 
Ответить
СообщениеMark1976, и лежат эти файлы вместе с файлом персонал. как их удалить оттуда7

Автор - Mark1976
Дата добавления - 17.05.2024 в 12:37
Nic70y Дата: Пятница, 17.05.2024, 13:09 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
у Вас в папке с Personal.xlsb есть еще какие то файлы?
ну так выделите их и удалите.


ЮMoney 41001841029809
 
Ответить
Сообщениеу Вас в папке с Personal.xlsb есть еще какие то файлы?
ну так выделите их и удалите.

Автор - Nic70y
Дата добавления - 17.05.2024 в 13:09
Mark1976 Дата: Пятница, 17.05.2024, 14:07 | Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
не могу найти расположение этого файла
 
Ответить
Сообщениене могу найти расположение этого файла

Автор - Mark1976
Дата добавления - 17.05.2024 в 14:07
Mark1976 Дата: Пятница, 17.05.2024, 14:13 | Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Разобрался. Удалил ненужные файлы.
 
Ответить
СообщениеРазобрался. Удалил ненужные файлы.

Автор - Mark1976
Дата добавления - 17.05.2024 в 14:13
Nic70y Дата: Пятница, 17.05.2024, 14:14 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
правой кнопкой мыши по найденному файлу
К сообщению приложен файл: 5507955.gif (107.8 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 17.05.2024, 14:15
 
Ответить
Сообщениеправой кнопкой мыши по найденному файлу

Автор - Nic70y
Дата добавления - 17.05.2024 в 14:14
Nic70y Дата: Пятница, 17.05.2024, 14:46 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 8832
Репутация: 2301 ±
Замечаний: 0% ±

Excel 2010
для персональной
[vba]
Код
Sub xu()
    Application.ScreenUpdating = False
    a = ActiveWorkbook.Path
    x = ActiveWorkbook.Name
    b = Format(Now, "yy.mm.dd_hhmmss") & ".xlsx"
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=51
    Workbooks(x).Activate
    c = Workbooks(b).Sheets.Count
    Workbooks(b).Sheets(1).Name = "k#k"
    Application.DisplayAlerts = False
    If c > 1 Then
        For d = c To 2 Step -1
            Workbooks(b).Sheets(d).Delete
        Next
    End If
    ActiveWindow.SelectedSheets.Copy After:=Workbooks(b).Sheets("k#k")
    Workbooks(b).Sheets("k#k").Delete
    Workbooks(b).Close True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
[/vba][p.s.]не пользуюсь ей, сегодня 1-й раз создал и удалил соот.[/p.s.]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 17.05.2024, 14:47
 
Ответить
Сообщениедля персональной
[vba]
Код
Sub xu()
    Application.ScreenUpdating = False
    a = ActiveWorkbook.Path
    x = ActiveWorkbook.Name
    b = Format(Now, "yy.mm.dd_hhmmss") & ".xlsx"
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=a & "\" & b, FileFormat:=51
    Workbooks(x).Activate
    c = Workbooks(b).Sheets.Count
    Workbooks(b).Sheets(1).Name = "k#k"
    Application.DisplayAlerts = False
    If c > 1 Then
        For d = c To 2 Step -1
            Workbooks(b).Sheets(d).Delete
        Next
    End If
    ActiveWindow.SelectedSheets.Copy After:=Workbooks(b).Sheets("k#k")
    Workbooks(b).Sheets("k#k").Delete
    Workbooks(b).Close True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
[/vba][p.s.]не пользуюсь ей, сегодня 1-й раз создал и удалил соот.[/p.s.]

Автор - Nic70y
Дата добавления - 17.05.2024 в 14:46
Mark1976 Дата: Пятница, 17.05.2024, 19:04 | Сообщение № 17
Группа: Проверенные
Ранг: Ветеран
Сообщений: 752
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Nic70y, спасибо.
 
Ответить
СообщениеNic70y, спасибо.

Автор - Mark1976
Дата добавления - 17.05.2024 в 19:04
  • Страница 1 из 1
  • 1
Поиск:

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