Otevření několika Excelů v několika oknech Vyřešeno

[DarkKnight]

Ahoj,

Máme v práci menší problém s okny Excel. Pracujeme s několikami tabulkami které se ale otevírají v jednom master okně. A když potřebujeme přeskakovat mezi nimi musíme překlikávat klikáním dole na liště.

Nejdě nějak nastavit aby každý otevřený .xlsx soubor měl svoje master okno a bylo možné mít jeden excel na jedné obrazovce a druhý na druhé?

Díky moc.

[Reklama]

[Azuzula]

Ahoj,
Excel můžeš spustit několikrát a pak v každém okně z nabídky "Soubor" otevřít potřebný sešit.

Nebo otevírat ty sešity makrem.

Kód: Vybrat vše

Sub otevrit_v_novem_okne()
Dim appXL As New Excel.Application
    appXL.Workbooks.Open "C:\priklad.xlsm"
    appXL.Visible = True
End Sub


Taky existuje možnost nastavení přímo v registrech win, ale osobně bych se do toho nepouštěla.

[VOM]

Dobrý den
Používám E2010 a tohle makro. Čísla si upravte dle svých monitorů.
Mám zkušenost, že když otevřu dva Excely špatně funguje schránka (přenese jen hodnoty, nikoliv vzorce). Do registrů bych rozhodně nesahal.

Option Explicit
Private Const SM_CXVIRTUALSCREEN = 78
Private Const SM_CYVIRTUALSCREEN = 79

Private Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long) As Long

Sub FillVirtualScreen()
With Application
.WindowState = xlNormal
.Left = 90
.Top = 0

.Width = 2695

.Height = 870
End With
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 2.34
.Left = 1.672
.Width = 1190
.Height = 645

End With

Windows.Arrange ArrangeStyle:=xlVertical
End Sub

Snad jsem to zkopíroval správně.
Milan

[DarkKnight]

Díky moc,

Předám kolegům v práci.