2 bestanden in 1x openen

[schuurar]

Ik wil graag bij het openen van 1 bestand gelijk een 2e bestand openen.
Deze wil ik fullscreen naast elkaar geopend hebben.
(dit wil ik zodat er in een oogopslag naar bepaalde dingen gekeken kan worden)
Hoe krijg ik dat voor elkaar in vba?

Met een macro krijg ik wel voor elkaar om 2 bestanden te openen maar hij zet ze niet naast elkaar.

Iemand een idee?

 

[jkpieterse]

De macro zou er ongeveer zo uit kunnen zien:

Sub OpenEnSchikVensters()
    Workbooks.Open "c:\pad\bestand1.xlsx"
    Workbooks.Open "c:\pad\bestand2.xlsx"
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

 

[snb]

Open beide bestanden.

Zet in 1 van de bestanden

Private Sub Workbook_open()
    Windows.arrange -4166, false
End Sub

Sla de bestanden op als Workspace (tabblad View / save Workspace) als .xlw bestand.
Sluit de bestanden.
Open het .xlw bestand. Klaar.

 

[jkpieterse]

Save Workspace bestaat niet meer in Microsoft 365...

 

[schuurar]

De macro zou er ongeveer zo uit kunnen zien:

Sub OpenEnSchikVensters()
    Workbooks.Open "c:\pad\bestand1.xlsx"
    Workbooks.Open "c:\pad\bestand2.xlsx"
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

Bedankt hiervoor.

De bestanden openen wel allebei maar ze komen niet automatisch naast elkaar te staan.
Is daar nog een code voor?

 

[jkpieterse]

Dat is merkwaardig. Dat is namelijk wat het laatste statement in dat macrootje doet!

 

[schuurar]

ik had zo'n idee dat die regel daar voor was.
alleen werkt het helaas niet.
Ik heb het op 2 pc's geprobeerd
En ik gebruik office 365

 

[jkpieterse]

Hmm, werkt bij mijzelf ook niet lekker, excuus.
Deze werkt beter.
Als je een macro opneemt waarbij je de vensters op de gewenste plek zet, dan krijg je de voor jou geldige getallen:

Sub OpenEnSchikVensters()
    Workbooks.Open "bestand1.xlsx"
    Application.Left = 1
    Application.Top = 1
    Application.Width = 1152
    Application.Height = 937.2
    Workbooks.Open "bestand2.xlsx"
    Application.Left = 1153
    Application.Top = 1
    Application.Width = 1152
    Application.Height = 937.2
End Sub

 

[snb]

Kijk eens naar deze code

Bericht in onderwerp '2 bestanden in 1x openen'

16 okt 2024

Open beide bestanden.

Zet in 1 van de bestanden

Private Sub Workbook_open()
    Windows.arrange -4166, false
End Sub

Sla de bestanden op als Workspace (tabblad View / save Workspace) als .xlw bestand.
Sluit de bestanden.
Open het .xlw bestand. Klaar.

• snb