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

Вход

Регистрация

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

 

= Мир MS Excel/Совместимость с LTSC 2021 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Совместимость с LTSC 2021
174dom Дата: Суббота, 04.11.2023, 17:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте уважаемые коллеги!
Прошу посодействовать.
В более ранних версиях данный код (ниже) работает, при переходе на LTSC 2021 ругается и останавливает макрос.
Просто подчеркивает слово sh в этой строке "For Each sh In ActiveWindow.SelectedSheets"
[vba]
Код

Dim strFileName As String
For Each sh In ActiveWindow.SelectedSheets
With sh
strFileName = .Range("H1").Value & ". Акт " & .Range("D28").Value & " от " & .Range("F28").Value & " (сформирован " & Format(Date, "dd/mm/yyyy") & ")"
On Error Resume Next
ChDir "\"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & strFileName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
[/vba]

Прошу помочь. Заранее благодарен!


Сообщение отредактировал 174dom - Суббота, 04.11.2023, 19:32
 
Ответить
СообщениеЗдравствуйте уважаемые коллеги!
Прошу посодействовать.
В более ранних версиях данный код (ниже) работает, при переходе на LTSC 2021 ругается и останавливает макрос.
Просто подчеркивает слово sh в этой строке "For Each sh In ActiveWindow.SelectedSheets"
[vba]
Код

Dim strFileName As String
For Each sh In ActiveWindow.SelectedSheets
With sh
strFileName = .Range("H1").Value & ". Акт " & .Range("D28").Value & " от " & .Range("F28").Value & " (сформирован " & Format(Date, "dd/mm/yyyy") & ")"
On Error Resume Next
ChDir "\"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & strFileName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
[/vba]

Прошу помочь. Заранее благодарен!

Автор - 174dom
Дата добавления - 04.11.2023 в 17:40
Serge_007 Дата: Суббота, 04.11.2023, 19:23 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

подчеркивает слово As в этой строке "For Each sh In ActiveWindow.SelectedSheets
В этой строке нет слова As...


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

подчеркивает слово As в этой строке "For Each sh In ActiveWindow.SelectedSheets
В этой строке нет слова As...

Автор - Serge_007
Дата добавления - 04.11.2023 в 19:23
174dom Дата: Суббота, 04.11.2023, 19:37 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 20% ±

Serge_007, спасибо, поправил.
Я обнаружил еще проблемы в этом свежем офисе:
1) Ругается на формулу
Код
=тдата()

2) Не понимает в коде [vba]
Код
Format(Date, "dd/mm/yyyy")
[/vba]
3) Если ссылаться в vba на ячейку в которой прописана формула
Код
=тдата()
макрос также останавливается...

Решение - пока убрал вообще изначальный свой код и прописал без привязки к дате сохранения так:
[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= ThisWorkbook.Path & "\" & Range("H1").Value & ". Акт " & Range("D28").Value & " от " & Range("F28").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
[/vba]

Печально конечно, но что поделать...


Сообщение отредактировал 174dom - Суббота, 04.11.2023, 21:33
 
Ответить
СообщениеSerge_007, спасибо, поправил.
Я обнаружил еще проблемы в этом свежем офисе:
1) Ругается на формулу
Код
=тдата()

2) Не понимает в коде [vba]
Код
Format(Date, "dd/mm/yyyy")
[/vba]
3) Если ссылаться в vba на ячейку в которой прописана формула
Код
=тдата()
макрос также останавливается...

Решение - пока убрал вообще изначальный свой код и прописал без привязки к дате сохранения так:
[vba]
Код
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= ThisWorkbook.Path & "\" & Range("H1").Value & ". Акт " & Range("D28").Value & " от " & Range("F28").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
[/vba]

Печально конечно, но что поделать...

Автор - 174dom
Дата добавления - 04.11.2023 в 19:37
Pelena Дата: Суббота, 04.11.2023, 21:27 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19407
Репутация: 4556 ±
Замечаний: ±

Excel 365 & Mac Excel
Ругается на формулу

странная формула
должно быть
Код
=ТДАТА()
или
Код
=СЕГОДНЯ()


Не понимает в коде
Format(Date, "dd/mm/yyyy")

можно попробовать
[vba]
Код
Format(Date, "dd\/mm\/yyyy")
[/vba]
но я бы не стала использовать слэш, т.к. имя файла может не пропустить этот символ


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Ругается на формулу

странная формула
должно быть
Код
=ТДАТА()
или
Код
=СЕГОДНЯ()


Не понимает в коде
Format(Date, "dd/mm/yyyy")

можно попробовать
[vba]
Код
Format(Date, "dd\/mm\/yyyy")
[/vba]
но я бы не стала использовать слэш, т.к. имя файла может не пропустить этот символ

Автор - Pelena
Дата добавления - 04.11.2023 в 21:27
174dom Дата: Суббота, 04.11.2023, 21:47 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 20% ±

Pelena,
Очередной раз спасибо, косячки поправил с
Код
=тдата()

Вы натолкнули меня своей идеей:
[vba]
Код
Format(Date, "dd\/mm\/yyyy")
[/vba]
Которая к сожалению не заработала, но помогла мне далее сообразить с точками так:
[vba]
Код
Format(Date, "dd.mm.yyyy")
[/vba]
Вот так заработало, надо потом еще на старом офисе проверить, важно чтобы совместимость была на обеих версиях.
Еще раз Благодарю!
 
Ответить
СообщениеPelena,
Очередной раз спасибо, косячки поправил с
Код
=тдата()

Вы натолкнули меня своей идеей:
[vba]
Код
Format(Date, "dd\/mm\/yyyy")
[/vba]
Которая к сожалению не заработала, но помогла мне далее сообразить с точками так:
[vba]
Код
Format(Date, "dd.mm.yyyy")
[/vba]
Вот так заработало, надо потом еще на старом офисе проверить, важно чтобы совместимость была на обеих версиях.
Еще раз Благодарю!

Автор - 174dom
Дата добавления - 04.11.2023 в 21:47
  • Страница 1 из 1
  • 1
Поиск:

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