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

Вход

Регистрация

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

 

= Мир MS Excel/Очистить содержимое файлов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить содержимое файлов (Макросы/Sub)
Очистить содержимое файлов
Mark1976 Дата: Воскресенье, 01.01.2017, 23:33 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Подскажите как решить задачу? Есть много файлов. Мне надо макросом очистить содержимое у всех файлов. Как можно это сделать. Заранее спасибо. Приложено 2 файла.
К сообщению приложен файл: 01.xls (23.5 Kb) · 02.xls (23.0 Kb)
 
Ответить
СообщениеЗдравствуйте. Подскажите как решить задачу? Есть много файлов. Мне надо макросом очистить содержимое у всех файлов. Как можно это сделать. Заранее спасибо. Приложено 2 файла.
Автор - Mark1976
Дата добавления - 01.01.2017 в 23:33
Alex_ST Дата: Понедельник, 02.01.2017, 10:19 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
Вы что, подлянку начальству на случай своего грядущего увольнения готовите? :)

При такой постановке задачи проще удалять файл, а вместо него вставлять копию файла-пустышки под именем удалённого файла.
И вовсе ни к чему было прикладывать два файла-образца.
Главное не как удалить/заменить файл, а как найти файл, подлежащий очистке.
Для этого где-то должен быть сформирован их список или задан критерий поиска. А этого в Ваших условиях задачи нет...


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеВы что, подлянку начальству на случай своего грядущего увольнения готовите? :)

При такой постановке задачи проще удалять файл, а вместо него вставлять копию файла-пустышки под именем удалённого файла.
И вовсе ни к чему было прикладывать два файла-образца.
Главное не как удалить/заменить файл, а как найти файл, подлежащий очистке.
Для этого где-то должен быть сформирован их список или задан критерий поиска. А этого в Ваших условиях задачи нет...
Автор - Alex_ST
Дата добавления - 02.01.2017 в 10:19
Mark1976 Дата: Понедельник, 02.01.2017, 10:33 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Alex_ST, нет, увольняться не собираюсь. Если нет решения, значит буду удалять записанным макросом, содержимое каждого файла.
[vba]
Код
Sub Макрос3()
'
' Макрос3 Макрос
'
' Сочетание клавиш: Ctrl+ц
'
    Sheets("Report_Name89085").Select
    Cells.Select
    Range("L19").Activate
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.Save
    Range("A1").Select
End Sub
[/vba]
 
Ответить
СообщениеAlex_ST, нет, увольняться не собираюсь. Если нет решения, значит буду удалять записанным макросом, содержимое каждого файла.
[vba]
Код
Sub Макрос3()
'
' Макрос3 Макрос
'
' Сочетание клавиш: Ctrl+ц
'
    Sheets("Report_Name89085").Select
    Cells.Select
    Range("L19").Activate
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.Save
    Range("A1").Select
End Sub
[/vba]
Автор - Mark1976
Дата добавления - 02.01.2017 в 10:33
Alex_ST Дата: Понедельник, 02.01.2017, 10:53 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
Mark1976, Вы не поняли. Решение элементарно простое. Если в книгах есть другие нужные Вам листы и поэтому Вы не хотите перезаписывать всю книгу целиком "пустышкой", то, конечно, вполне реально и просто очистить в книгах нужные листы. Никаких проблем.
Главная проблема - найти все нужные файлы и провести эту операцию с каждым из них. А вот для этого как раз и
Цитата Alex_ST, 02.01.2017 в 10:19, в сообщении № 2 ()
должен быть сформирован их список или задан критерий поиска
Ведь Вы же сами написАли:
Цитата Mark1976, 01.01.2017 в 23:33, в сообщении № 1 ()
Есть много файлов
не в ручную же Вы собираетесь каждый из них открывать и чистить листы?
А Ваш макрос после чистки от мусора, записанного макрорекордером, выродится в:[vba]
Код
Sub ClearSheet()
    ActiveSheet.Cells.Delete
    ActiveWorkbook.Save
End Sub
[/vba]


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеMark1976, Вы не поняли. Решение элементарно простое. Если в книгах есть другие нужные Вам листы и поэтому Вы не хотите перезаписывать всю книгу целиком "пустышкой", то, конечно, вполне реально и просто очистить в книгах нужные листы. Никаких проблем.
Главная проблема - найти все нужные файлы и провести эту операцию с каждым из них. А вот для этого как раз и
Цитата Alex_ST, 02.01.2017 в 10:19, в сообщении № 2 ()
должен быть сформирован их список или задан критерий поиска
Ведь Вы же сами написАли:
Цитата Mark1976, 01.01.2017 в 23:33, в сообщении № 1 ()
Есть много файлов
не в ручную же Вы собираетесь каждый из них открывать и чистить листы?
А Ваш макрос после чистки от мусора, записанного макрорекордером, выродится в:[vba]
Код
Sub ClearSheet()
    ActiveSheet.Cells.Delete
    ActiveWorkbook.Save
End Sub
[/vba]
Автор - Alex_ST
Дата добавления - 02.01.2017 в 10:53
Mark1976 Дата: Понедельник, 02.01.2017, 11:05 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Цитата Alex_ST, 02.01.2017 в 10:53, в сообщении № 4 ()
не в ручную же Вы собираетесь каждый из них открывать и чистить листы?

Другого способа не вижу. Я из месяца в месяц формирую отчеты (название файлов одинаковое, а вот содержимое разное) Вот чтобы не запутаться, решил очищать содержимое файлов. Думал можно автоматически. Но если решение сложное, значит буду макрорекордером действовать.
 
Ответить
Сообщение
Цитата Alex_ST, 02.01.2017 в 10:53, в сообщении № 4 ()
не в ручную же Вы собираетесь каждый из них открывать и чистить листы?

Другого способа не вижу. Я из месяца в месяц формирую отчеты (название файлов одинаковое, а вот содержимое разное) Вот чтобы не запутаться, решил очищать содержимое файлов. Думал можно автоматически. Но если решение сложное, значит буду макрорекордером действовать.
Автор - Mark1976
Дата добавления - 02.01.2017 в 11:05
Alex_ST Дата: Понедельник, 02.01.2017, 12:55 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
Повторяю вопрос: по какому признаку на дисках Вашего компьютера можно найти нужные файлы? Ну, например: В одной папке и подпапках лежат? Но тогда если что-нибудь кроме них тоже лежит в папках, может случиться неприятность :)
Одинаковая часть имени? Одинаковое имя листа?
Если Вы укажете признак, то можно всё будет сделать автоматом.


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеПовторяю вопрос: по какому признаку на дисках Вашего компьютера можно найти нужные файлы? Ну, например: В одной папке и подпапках лежат? Но тогда если что-нибудь кроме них тоже лежит в папках, может случиться неприятность :)
Одинаковая часть имени? Одинаковое имя листа?
Если Вы укажете признак, то можно всё будет сделать автоматом.
Автор - Alex_ST
Дата добавления - 02.01.2017 в 12:55
Mark1976 Дата: Понедельник, 02.01.2017, 16:21 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Цитата Alex_ST, 02.01.2017 в 12:55, в сообщении № 6 ()
Повторяю вопрос: по какому признаку на дисках Вашего компьютера можно найти нужные файлы? Ну, например: В одной папке и подпапках лежат?

Вот путь: d:\ОТЧЕТ_ПО_ПЛАНАМ\
Листы имеют разные имена. Примерное название имен файлов:
Оптика БЕ-Поволжье остатки на 31.10.2016 (АПТ).xls
Оптика БЕ-Поволжье остатки на 31.10.2016 (АПТ, Ассортимент, ТГ, ТМ).xls
Оптика БЕ-Поволжье продажи 01.10 - 31.10.2016 (АПТ, Ассортимент, ТМ).xls
Оптика БЕ-Поволжье продажи 01.10 - 31.10.2016 (Медикамент, ТМ, Поставщик).xls
Остатки БЕ-Поволжье на 31.10.2016 (Без оптики).xls
Остатки БЕ-Поволжье на 31.10.2016 (С оптикой).xls

Период дат меняется каждый раз (из месяца в месяц)
 
Ответить
Сообщение
Цитата Alex_ST, 02.01.2017 в 12:55, в сообщении № 6 ()
Повторяю вопрос: по какому признаку на дисках Вашего компьютера можно найти нужные файлы? Ну, например: В одной папке и подпапках лежат?

Вот путь: d:\ОТЧЕТ_ПО_ПЛАНАМ\
Листы имеют разные имена. Примерное название имен файлов:
Оптика БЕ-Поволжье остатки на 31.10.2016 (АПТ).xls
Оптика БЕ-Поволжье остатки на 31.10.2016 (АПТ, Ассортимент, ТГ, ТМ).xls
Оптика БЕ-Поволжье продажи 01.10 - 31.10.2016 (АПТ, Ассортимент, ТМ).xls
Оптика БЕ-Поволжье продажи 01.10 - 31.10.2016 (Медикамент, ТМ, Поставщик).xls
Остатки БЕ-Поволжье на 31.10.2016 (Без оптики).xls
Остатки БЕ-Поволжье на 31.10.2016 (С оптикой).xls

Период дат меняется каждый раз (из месяца в месяц)
Автор - Mark1976
Дата добавления - 02.01.2017 в 16:21
Alex_ST Дата: Понедельник, 02.01.2017, 18:31 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
Если листы имеют разные имена, то можно считать, что обработке подлежат ВСЕ файлы с именем, совпадающим с шаблоном "Поволжье*" ?
Если ДА, то каково в них имя листа, подлежащего очистке?


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеЕсли листы имеют разные имена, то можно считать, что обработке подлежат ВСЕ файлы с именем, совпадающим с шаблоном "Поволжье*" ?
Если ДА, то каково в них имя листа, подлежащего очистке?
Автор - Alex_ST
Дата добавления - 02.01.2017 в 18:31
Mark1976 Дата: Понедельник, 02.01.2017, 18:42 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Alex_ST, названия листов совпадают с названием файла, который формируется в отчете.
Report_Name89102
Report_Name89087
 
Ответить
СообщениеAlex_ST, названия листов совпадают с названием файла, который формируется в отчете.
Report_Name89102
Report_Name89087
Автор - Mark1976
Дата добавления - 02.01.2017 в 18:42
Mark1976 Дата: Понедельник, 02.01.2017, 18:43 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Цитата Alex_ST, 02.01.2017 в 18:31, в сообщении № 8 ()
Если листы имеют разные имена, то можно считать, что обработке подлежат ВСЕ файлы с именем, совпадающим с шаблоном "Поволжье*" ?

Да, верно.
 
Ответить
Сообщение
Цитата Alex_ST, 02.01.2017 в 18:31, в сообщении № 8 ()
Если листы имеют разные имена, то можно считать, что обработке подлежат ВСЕ файлы с именем, совпадающим с шаблоном "Поволжье*" ?

Да, верно.
Автор - Mark1976
Дата добавления - 02.01.2017 в 18:43
Alex_ST Дата: Понедельник, 02.01.2017, 19:13 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
Прошу прощения, но сегодня я явно уже перепраздновал wine
В общем алгоритм ясен:
в папке d:\ОТЧЕТ_ПО_ПЛАНАМ\ надо найти все файлы с именем, совпадающим с шаблоном "*Поволжье*" и в каждом из них удалить содержимое листа с именем …
Mark1976, какое имя у очищаемого листа-то?


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеПрошу прощения, но сегодня я явно уже перепраздновал wine
В общем алгоритм ясен:
в папке d:\ОТЧЕТ_ПО_ПЛАНАМ\ надо найти все файлы с именем, совпадающим с шаблоном "*Поволжье*" и в каждом из них удалить содержимое листа с именем …
Mark1976, какое имя у очищаемого листа-то?
Автор - Alex_ST
Дата добавления - 02.01.2017 в 19:13
Mark1976 Дата: Понедельник, 02.01.2017, 19:17 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 806
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Цитата Alex_ST, 02.01.2017 в 19:13, в сообщении № 11 ()
Mark1976, какое имя у очищаемого листа-то?

Report_Name89102
Report_Name89087
 
Ответить
Сообщение
Цитата Alex_ST, 02.01.2017 в 19:13, в сообщении № 11 ()
Mark1976, какое имя у очищаемого листа-то?

Report_Name89102
Report_Name89087
Автор - Mark1976
Дата добавления - 02.01.2017 в 19:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистить содержимое файлов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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