SaveAs работает в Excel 2010, но вызывает ошибку автоматизации в 2013, 2016

SaveAs в VBA работает в Excel 2010, но в Excel 2013, 2016 происходит ошибка автоматизации, и Excel закрывается при выполнении во второй раз.

'Move the Result SeqMergeSheet
rpath = ThisWorkbook.Path 'Tools path
ActiveWorkbook.Worksheets("SeqMergeSheet").Move  ' From Tool Workbook

'Save as the result
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs rpath & "\" & "TotalSeqOutputFile.xlsx" 'To different workbook

'Close the saved copy
ActiveWorkbook.Close

0 ответов

Другие вопросы по тегам