Открытие файлов Excel на нескольких мониторах - PullRequest
0 голосов
/ 04 мая 2020

У меня есть три монитора, которым нужно отобразить три отдельных файла Excel. Когда я запускаю следующий код на компьютере с Office 365, он работает. Когда я открываю его на компьютере с Office 2010, он не работает должным образом. Есть ли код, чтобы обойти ограничение 2010 года или мне нужно обновить, чтобы код VBA заработал? Нужно ли использовать более чистый код?

'Open first furnace
Workbooks.Open ("z:\Heat Treat\FURNACE #1.xlsm")
With ActiveWindow
 .WindowState = xlNormal
 .Top = 1
 .Left = 1621
End With 
Application.WindowState = xlMaximized

'Open second furnace
Workbooks.Open ("z:\Heat Treat\FURNACE #2.xlsm")
With ActiveWindow
 .WindowState = xlNormal
 .Top = 1
 .Left = 2252
End With
Application.WindowState = xlMaximized

'Open third furnace
Workbooks.Open ("z:\Heat Treat\FURNACE #3.xlsm")
With ActiveWindow
 .WindowState = xlNormal
 .Top = 1
 .Left = 1
End With
Application.WindowState = xlMaximized
...