Совместимость с LTSC 2021
174dom
Дата: Суббота, 04.11.2023, 17:40 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Здравствуйте уважаемые коллеги! Прошу посодействовать. В более ранних версиях данный код (ниже) работает, при переходе на 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] Прошу помочь. Заранее благодарен!
Здравствуйте уважаемые коллеги! Прошу посодействовать. В более ранних версиях данный код (ниже) работает, при переходе на 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
Сообщение отредактировал 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...
Здравствуйтеподчеркивает слово As в этой строке "For Each sh In ActiveWindow.SelectedSheets
В этой строке нет слова As... Serge_007
Ю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
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] Печально конечно, но что поделать...
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
Сообщение отредактировал 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] но я бы не стала использовать слэш, т.к. имя файла может не пропустить этот символ
странная формула должно быть или Не понимает в коде Format(Date, "dd/mm/yyyy")
можно попробовать [vba]Код
Format(Date, "dd\/mm\/yyyy")
[/vba] но я бы не стала использовать слэш, т.к. имя файла может не пропустить этот символPelena
"Черт возьми, Холмс! Но как??!!" Ю-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
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
Ответить
Сообщение Pelena , Очередной раз спасибо, косячки поправил с Вы натолкнули меня своей идеей: [vba]Код
Format(Date, "dd\/mm\/yyyy")
[/vba] Которая к сожалению не заработала, но помогла мне далее сообразить с точками так: [vba]Код
Format(Date, "dd.mm.yyyy")
[/vba] Вот так заработало, надо потом еще на старом офисе проверить, важно чтобы совместимость была на обеих версиях. Еще раз Благодарю!Автор - 174dom Дата добавления - 04.11.2023 в 21:47