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

Вход

Регистрация

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

 

= Мир MS Excel/В закрытой книге снять автофильтры, если есть - Мир MS Excel

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

Office16
Добрый день :)
Нужен макрос, который открывает книгу "1515.xlsx" по пути "C:\Новая папка" и снимает все фильтра на листе "Данные" (если они есть) и далее закрывает со снятыми фильтрами.
[vba]
Код
sPath = "C:\Новая папка\1515.xlsx"  
If sPath.Sheet("Данные").FilterMode Then sPath.Sheet("Данные").ShowAllData
[/vba]не работает.
Я примерно понимаю, что с sPath не то что-то.
Помогите, пожалуйста.
К сообщению приложен файл: 1515.xlsx (9.8 Kb)


Сообщение отредактировал timo64uk - Суббота, 16.11.2024, 11:35
 
Ответить
СообщениеДобрый день :)
Нужен макрос, который открывает книгу "1515.xlsx" по пути "C:\Новая папка" и снимает все фильтра на листе "Данные" (если они есть) и далее закрывает со снятыми фильтрами.
[vba]
Код
sPath = "C:\Новая папка\1515.xlsx"  
If sPath.Sheet("Данные").FilterMode Then sPath.Sheet("Данные").ShowAllData
[/vba]не работает.
Я примерно понимаю, что с sPath не то что-то.
Помогите, пожалуйста.
Автор - timo64uk
Дата добавления - 16.11.2024 в 11:31
doober Дата: Суббота, 16.11.2024, 11:57 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 983
Репутация: 340 ±
Замечаний: 0% ±

Excel 2010
Цитата timo64uk, 16.11.2024 в 11:31, в сообщении № 1 ()
что с sPath не то что-то
%)  sPath-это текст[vba]
Код
 sPath = "C:\Новая папка\1515.xlsx"
Application.ScreenUpdating = False
Set Wb = Workbooks.Open(sPath)
If Wb.Worksheets("Данные").FilterMode Then Wb.Worksheets("Данные").ShowAllData
Wb.Close (True)
Application.ScreenUpdating = True
[/vba]



Сообщение отредактировал doober - Суббота, 16.11.2024, 11:58
 
Ответить
Сообщение
Цитата timo64uk, 16.11.2024 в 11:31, в сообщении № 1 ()
что с sPath не то что-то
%)  sPath-это текст[vba]
Код
 sPath = "C:\Новая папка\1515.xlsx"
Application.ScreenUpdating = False
Set Wb = Workbooks.Open(sPath)
If Wb.Worksheets("Данные").FilterMode Then Wb.Worksheets("Данные").ShowAllData
Wb.Close (True)
Application.ScreenUpdating = True
[/vba]
Автор - doober
Дата добавления - 16.11.2024 в 11:57
i691198 Дата: Суббота, 16.11.2024, 12:13 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 349
Репутация: 110 ±
Замечаний: 0% ±

Например так[vba]
Код
sPath = "C:\Новая папка\1515.xlsx"
With Workbooks.Open(sPath)
if .Sheets("Данные").FilterMode Then .Sheets("Данные").ShowAllData
.Close (True)
End With
[/vba]


Сообщение отредактировал i691198 - Суббота, 16.11.2024, 12:26
 
Ответить
СообщениеНапример так[vba]
Код
sPath = "C:\Новая папка\1515.xlsx"
With Workbooks.Open(sPath)
if .Sheets("Данные").FilterMode Then .Sheets("Данные").ShowAllData
.Close (True)
End With
[/vba]
Автор - i691198
Дата добавления - 16.11.2024 в 12:13
MikeVol Дата: Суббота, 16.11.2024, 15:14 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 378
Репутация: 81 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
timo64uk, Не смог пройти мимо. У вас уже уйма тем со схожей тематикой и неужели вы так и ничему и не научились? К примеру как открыть файл из папки... Я поражён.

Ученик.
Одесса - Украина

Сообщение отредактировал MikeVol - Суббота, 16.11.2024, 15:15
 
Ответить
Сообщениеtimo64uk, Не смог пройти мимо. У вас уже уйма тем со схожей тематикой и неужели вы так и ничему и не научились? К примеру как открыть файл из папки... Я поражён.
Автор - MikeVol
Дата добавления - 16.11.2024 в 15:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » В закрытой книге снять автофильтры, если есть (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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