Apertura contemporanea di più files di Excel

Question

Salve a tutti.

Ho il seguente problema.

Vorrei trovare il modo di aprire contemporaneamente ed automaticamente più files di Excel e di vederli automaticamente affiancati sullo schermo.

In altre parole vorrei che "premendo un pulsante" si aprissero contemporanemante i files  A, B, C di excel e si vedessero affiancati senza doverlo fare manualmente.

Qualcosa tipo questo:

E' possibile?

Grazie anticipate

Answer 1

Ciao M4Biz,

Vorrei trovare il modo di aprire contemporaneamente ed automaticamente più files di Excel e di vederli automaticamente affiancati sullo schermo.

In altre parole vorrei che "premendo un pulsante" si aprissero contemporanemante i files  A, B, C di excel e si vedessero affiancati senza doverlo fare manualmente.

Qualcosa tipo questo:

Prova  di assegnare la seguente routine ad un pulsante:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook, WB2 As Workbook, WB3 As Workbook

    Dim oWindow As Window

    Const sPercorso As String = _

"C:\Utenti\m4Biz\Pippo\File A.xlsx"                      '<<=== Modifica

    Const sPercorso2 As String = _

"C:\Utenti\m4Biz\Pippo\File B.xlsx"                      '<<=== Modifica

    Const sPercorso3 As String = _

"C:\Utenti\m4Biz\Pippo\File C.xlsx"                       '<<=== Modifica

    Set oWindow = ActiveWindow

    Application.ScreenUpdating = False

    oWindow.Visible = False

    Set WB3 = Workbooks.Open(sPercorso3)

    Set WB2 = Workbooks.Open(sPercorso2)

    Set WB = Workbooks.Open(sPercorso)

    Windows.Arrange ArrangeStyle:=xlVertical

    Application.ScreenUpdating = True

End Sub

'<<=========

Sostituisci i nomi dei 3 file con quelli di interesse. 

===

Regards,

Norman