В закрытой книге снять автофильтры, если есть

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

В закрытой книге снять автофильтры, если есть (Макросы/Sub)

timo64uk

Дата: Суббота, 16.11.2024, 11:31 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 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

Ответить

doober

Дата: Суббота, 16.11.2024, 11:57 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 968

Репутация: 331 ±

Замечаний: 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

Ответить

i691198

Дата: Суббота, 16.11.2024, 12:13 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 336

Репутация: 108 ±

Замечаний: 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

Ответить

MikeVol

Дата: Суббота, 16.11.2024, 15:14 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 377

Репутация: 80 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

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

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

Сообщение отредактировал MikeVol - Суббота, 16.11.2024, 15:15

Ответить

В закрытой книге снять автофильтры, если есть (Макросы/Sub)

Страница 1 из 1
1