Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

aprire due file excel conteporaneamente

141 views
Skip to first unread message

maxma

unread,
Sep 21, 2011, 3:36:41 PM9/21/11
to
Salve,
per aprire due file excel conteporaneamente si può fare così:

aprire i 2 file > file > salva area di lavoro > nomina
si salva con estensione xlw

aprendo il nuovo file si aprono i 2 file conteporaneamente .
Chiedo: c'è una macro che faccia la stessa cosa?
Lo chiedo perchè aprendo il nuovo file xlw nel mio computer ho notato
una cosa:
mi apre una finestra principale con le finestre dei 2 file non a tutto
schermo, ma ridotte (staccate)
e la grandezza dello zoom dei 2 file sempre al 100% anche se poi salvo
più grande.
E' esatto o cè qualche impostazione?
Ciao e anticipatamente ringrazio.
max

eliano

unread,
Sep 21, 2011, 9:24:12 PM9/21/11
to
Almeno a me riapre i file normalmente, ognuno a tutto schermo e con lo
zoom al 100%,

Per la macro di salvataggio area di lavoro e successivo ripristino dei
file, prova:

Public Sub salvaarealavoro()
Application.Save Filename:= _
"C:\...tuapath...\ripristinaarea.xlw"
End Sub

Public Sub ripristinaarealavoro()
Workbooks.Open _
"C:\...tuapath...\ripristinaarea.xlw"
End Sub

con la ...tuapath... completa, grazie.:-))

Eliano

maxma

unread,
Sep 22, 2011, 1:12:10 PM9/22/11
to
Ciao eliano, non capisco dove devo mettere le macro in thisworkbok del
foglio 1 o 2?
E come il percorso?
Così con il nome del file?
C:\WINDOWS\Desktop\materiali\ materiali_da_ordinare.xlw
Ciao e grazie.
max

eliano

unread,
Sep 22, 2011, 4:13:42 PM9/22/11
to
> max- Nascondi testo citato
>
> - Mostra testo citato -

Mah, max, sono io che non capisco.:-((

La macro dovrebbe andare in un Modulo Standard, ad esempio Modulo1 e
se hai salvato l'area di lavoro con un File che hai chiamato:
"materiali_da_ordinare.xlw" che si trova in; "C:\WINDOWS\Desktop
\materiali\", mi sembra ovvio che il file che devi riaprire sia: "C:
\WINDOWS\Desktop\materiali\ materiali_da_ordinare.xlw".

Se poi la macro la metti nel foglio 1, la richiami dal foglio 1, se la
metti nel foglio 2, la richiami dal foglio 2 e ovviamente, se la metti
in un ipotetico foglio 3, indovina un po': da dove la dovresti
richiamare??.

Eliano

maxma

unread,
Sep 23, 2011, 1:05:09 PM9/23/11
to
Sperando sia esatto ho messo le 2 macro nei 2 moduli

in modulo 1 - cartel1

Public Sub salvaarealavoro()
Application.Save Filename:= _
"C:\WINDOWS\Desktop\PROVA\cartel2.xls"
End Sub

Public Sub ripristinaarealavoro()
Workbooks.Open _
"C:\WINDOWS\Desktop\PROVA\cartel2.xls"
End Sub

----------------------------------

in modulo 1 - cartel2

Public Sub salvaarealavoro()
Application.Save Filename:= _
"C:\WINDOWS\Desktop\PROVA\cartel1.xls"
End Sub

Public Sub ripristinaarealavoro()
Workbooks.Open _
"C:\WINDOWS\Desktop\PROVA\cartel1.xls"
End Sub


aprendo poi il file XLW non cambia nulla, le finestre si aprono
ridotte.
Ciao,
max

maxma

unread,
Sep 23, 2011, 2:07:46 PM9/23/11
to
Provato anche con il file riprendi.xlw
ed ho inserito così nei 2 moduli dei 2 file

Public Sub salvaarealavoro()
Application.Save Filename:= _
"C:\WINDOWS\Desktop\PROVA\riprendi.xlw"
End Sub

Public Sub ripristinaarealavoro()
Workbooks.Open _
"C:\WINDOWS\Desktop\PROVA\riprendi.xlw"
End Sub

non capisco come devo fare.
max

eliano

unread,
Sep 23, 2011, 4:06:01 PM9/23/11
to
Spiacente Max, ma, a parte il fatto che non capisco cosa vuoi, a me
funziona normalmente riaprendo tutti i files a cui fa riferimento il
file .xlw.-
Vediamo se qualcun'altro capisce quali sono le tue necessità.
Eliano

maxma

unread,
Sep 23, 2011, 5:50:55 PM9/23/11
to

Quello che chiedo è che parendo il file xlw me lo apra con le finestre
dei due file aperte a tutto schermo non ridotte come ora.
Comunque nei 2 moduli devo mettere questo:

l'indirizzo dei 2 file xls


"C:\WINDOWS\Desktop\PROVA\cartel1.xls"

"C:\WINDOWS\Desktop\PROVA\cartel2.xls"

oppure:

l'indirizzo del file xlw


"C:\WINDOWS\Desktop\PROVA\riprendi.xlw"

max

eliano

unread,
Sep 23, 2011, 6:15:19 PM9/23/11
to
Max, è l'ultimo tentativo, poi ci rinuncio.

Se hai aperto i due file cartel1.xls e cartel2.xls e salvi l'area di
lavoro creando il file riprendi.xlw, in seguito quando vuoi riaprire i
due file, richiama il file riprendi.xlw e questo, andando in
esecuzione, ti apre i due file. La cosa la puoi fare o con doppioclic
sul file riprendi.xls, o aprendo quel file con apposita macro.
Ti confermo che i due file vengono aperti normalmente a pieno schermo.

Per me l'argomento è chiuso.
Eliano

Domenico Zangrilli

unread,
Sep 24, 2011, 4:09:19 AM9/24/11
to


"eliano" ha scritto nel messaggio news:916afe75-4bf3-44aa...@p4g2000vbp.googlegroups.com...
>
> Max, è l'ultimo tentativo, poi ci rinuncio.
>
> Se hai aperto i due file cartel1.xls e cartel2.xls e salvi l'area di
> lavoro creando il file riprendi.xlw, in seguito quando vuoi riaprire i
> due file, richiama il file riprendi.xlw e questo, andando in
> esecuzione, ti apre i due file. La cosa la puoi fare o con doppioclic
> sul file riprendi.xls, o aprendo quel file con apposita macro.
> Ti confermo che i due file vengono aperti normalmente a pieno schermo.
>
> Per me l'argomento è chiuso.
> Eliano

Credo di aver capito cosa intende.....

Aprendo più file con un solo Excel lui crea le finestre
Cartel1.xls
Cartel2.xls
Riprendi.xlw

Per ottenere i file citati come se fossero singoli
deve aprire un excel fare apri Cartel1.xls
poi riaprire un altro excel e fare apri Cartel2.xls
Poi riaprire un altro excel e fare apri Riprendi.xlw

solo così può avere i file come se fossero 3 e li può vedere singolarmente
o se ha lo schermo grandissimo li può vedere tutti e tre .. senza dover avere
rimpicciolimenti dei file all'interno del solo excel

credo che lui intendesse questo Eliano

eliano

unread,
Sep 24, 2011, 5:58:52 AM9/24/11
to
On 24 Set, 10:09, "Domenico Zangrilli" <domeni...@alice.it> wrote:
> "eliano"  ha scritto nel messaggionews:916afe75-4bf3-44aa...@p4g2000vbp.googlegroups.com...
NO!
Hai impostato il thread su "Area di lavoro",quindi vedi nel support:

http://tinyurl.com/3j7fr5f

E, senza offesa, ti ripeto: per me, Argomento Chiuso.
Eliano

maxma

unread,
Sep 24, 2011, 6:11:14 AM9/24/11
to
On 24 Set, 10:09, "Domenico Zangrilli" <domeni...@alice.it> wrote:
> "eliano" ha scritto nel messaggionews:916afe75-4bf3-44aa...@p4g2000vbp.googlegroups.com...
Forse non mi sono spiegato,
Ho 2 file xls uno collegato all'altro con delle formule.
Per non aprirli uno alla volta ho creato con "salva area di lavoro"
(dopo aperti tutti e due) un file XLW nominato riprendi.
Aprendo riprendi.xlw non mi apre i due file xls a tutto schermo
ma con le finestre ridotte.
Max

maxma

unread,
Sep 24, 2011, 6:56:01 AM9/24/11
to
Ho visto ora la risposta di eliano:

-----------------------------------------------------------------------------------
Salvare le cartelle di lavoro in un'area di lavoro disposta
Si applica a: Microsoft Office Excel 2007
-----------------------------------------------------------------------------------

purtroppo ho excel 2000 e queste impostazioni non ci sono.
max

Domenico Zangrilli

unread,
Sep 24, 2011, 8:09:43 AM9/24/11
to


"maxma" ha scritto nel messaggio news:de13bc0a-cca7-46a1...@18g2000yqz.googlegroups.com...
> Forse non mi sono spiegato,
> Ho 2 file xls uno collegato all'altro con delle formule.
> Per non aprirli uno alla volta ho creato con "salva area di lavoro"
> (dopo aperti tutti e due) un file XLW nominato riprendi.
> Aprendo riprendi.xlw non mi apre i due file xls a tutto schermo
> ma con le finestre ridotte.
> Max

dimmi quale delle due vorresti ottenere

http://www.grillizan.biz/solo-una-apertura-Finestre.gif
questa è stata ricavata con appunto il thread su "Area di lavoro"
che appunto mette le finestre di due file aperti quindi un solo Menù per tutti
e questo non è altro che aprire una macro o in ThisWorkbook inserire questa macro

Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Users\New Computer\Documents\Cartel1.xlsx"
Workbooks.Open Filename:="C:\Users\New Computer\Documents\Cartel2.xlsx"
End Sub


http://www.grillizan.biz/separati-cartel1-2.gif
Per ottenere i file citati come se fossero singoli
deve aprire un excel fare apri Cartel1.xls
poi riaprire un altro excel e fare apri Cartel2.xls

al momento non trovo il file che avevate fatto qui
di richiamare Windows("Cartel1.xlsx").Activate

cioè il windows dovrebbe creare due excel.....

Ora vediamo cosa dice Max quale sceglie



Domenico Zangrilli

unread,
Sep 24, 2011, 8:16:51 AM9/24/11
to


"maxma" ha scritto nel messaggio news:6e31deb9-0748-44df...@m37g2000yqc.googlegroups.com...
> Ho visto ora la risposta di eliano:
>
>> -----------------------------------------------------------------------------------
>> Salvare le cartelle di lavoro in un'area di lavoro disposta
>> Si applica a: Microsoft Office Excel 2007
>> -----------------------------------------------------------------------------------
>
> purtroppo ho excel 2000 e queste impostazioni non ci sono.
> max

difatti .. ma è la stessa cosa .. perché nel 2000 dovresti avere l'opzione di salvare i formati
io li ho anche su office XP excel2003

leggi il mio post...
da li capisci cosa vuoi fare

maxma

unread,
Sep 24, 2011, 1:58:45 PM9/24/11
to
On 24 Set, 14:16, "Domenico Zangrilli" <domeni...@alice.it> wrote:
> "maxma" ha scritto nel messaggionews:6e31deb9-0748-44df...@m37g2000yqc.googlegroups.com...
In excel 2000 non c'e l'opzione per scegliere come salvare l'area come
scritto qui:

----------------------------------------------------
http://www.google.com/url?sa=D&q=http://tinyurl.com/3j7fr5f&usg=AFQjCNGf0PDp9fl30P0yuMucOBsZBU9cBw
questa è stata ricavata con appunto il thread su "Area di lavoro"
che appunto mette le finestre di due file aperti quindi un solo Menù
per tutti
--------------------------------------------------

per capire mi esce sempre come l'esempio postato da domenico

http://www.google.com/url?sa=D&q=http://www.grillizan.biz/separati-cartel1-2.gif&usg=AFQjCNFBQX-7eew7nLWPOn1QK5e2ZfU89Q.

ma questa dove la inserisco?

Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel1.xls"
Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel2.xls"
End Sub

In thisworkbook di quale file? Carte1 oppure 2?
max


maxma

unread,
Sep 24, 2011, 3:49:52 PM9/24/11
to
On 24 Set, 19:58, maxma <maxsixty...@yahoo.it> wrote:
> On 24 Set, 14:16, "Domenico Zangrilli" <domeni...@alice.it> wrote:
>
>
>
> > "maxma" ha scritto nel messaggionews:6e31deb9-0748-44df...@m37g2000yqc.googlegroups.com...
>
> > > Ho visto ora la risposta di eliano:
>
> > >> -----------------------------------------------------------------------------------
> > >> Salvare le cartelle di lavoro in un'area di lavoro disposta
> > >> Si applica a: Microsoft Office Excel 2007
> > >> -----------------------------------------------------------------------------------
>
> > > purtroppo ho excel 2000 e queste impostazioni non ci sono.
> > > max
>
> > difatti .. ma è la stessa cosa .. perché nel 2000 dovresti avere l'opzione di salvare i formati
> > io li ho anche su office XP excel2003
>
> > leggi il mio post...
> > da li capisci cosa vuoi fare
>
> In excel 2000 non c'e l'opzione per scegliere come salvare l'area come
> scritto qui:
>
> ----------------------------------------------------http://www.google.com/url?sa=D&q=http://tinyurl.com/3j7fr5f&usg=AFQjC...
> questa è stata ricavata con appunto il thread su "Area di lavoro"
> che appunto mette le finestre di due file aperti quindi un solo Menù
> per tutti
> --------------------------------------------------
>
> per capire mi esce sempre come l'esempio postato da domenico
>
> http://www.google.com/url?sa=D&q=http://www.grillizan.biz/separati-ca....
>
> ma questa dove la inserisco?
>
> Private Sub Workbook_Open()
> Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel1.xls"
> Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel2.xls"
> End Sub
>
> In thisworkbook di quale file? Carte1 oppure 2?
> max

Ho provato a creare una macro con il registratore e l'ho messa iin
thisworkboox dei 2 file:

Private Sub Workbook_Activate()
On Error Resume Next
With Application
ActiveWindow.WindowState = xlMaximized
End With
End Sub

vedo che funziona, mi apre i 2 file a schermo normale.
E' fatta bene o c'è qualche errore?
Max

Domenico Zangrilli

unread,
Sep 24, 2011, 8:24:09 PM9/24/11
to
"maxma" ha scritto nel messaggio news:8e593613-3270-4925...@g33g2000yqc.googlegroups.com...

> In excel 2000 non c'e l'opzione per scegliere come salvare l'area come
> scritto qui:

> ----------------------------------------------------
> http://www.google.com/url?sa=D&q=http://tinyurl.com/3j7fr5f&usg=AFQjCNGf0PDp9fl30P0yuMucOBsZBU9cBw
> questa è stata ricavata con appunto il thread su "Area di lavoro"
> che appunto mette le finestre di due file aperti quindi un solo Menù
> per tutti
> --------------------------------------------------
>
> per capire mi esce sempre come l'esempio postato da domenico
>
> http://www.google.com/url?sa=D&q=http://www.grillizan.biz/separati-cartel1-2.gif&usg=AFQjCNFBQX-7eew7nLWPOn1QK5e2ZfU89Q.
>
> ma questa dove la inserisco?
>
> Private Sub Workbook_Open()
> Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel1.xls"
> Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel2.xls"
> End Sub
>
> In thisworkbook di quale file? Carte1 oppure 2?
> max

anche in Cartel3.xls tanto è sempre un solo excel che vedi aperto

io metterei questa

Private Sub Workbook_Open
Workbooks.Open Filename:="C:\Users\New Computer\Desktop\Prova\cartel1.xlsx"
Workbooks.Open Filename:="C:\Users\New Computer\Desktop\Prova\cartel2.xlsx"
ActiveWindow.WindowState = xlMaximized
End Sub



purtroppo non c'è altro modo .. di aprire più file senza farlo manulamente

e poi gestire con questi comandi

Sub Macro1()
'
' Macro1 Macro
'

'
Windows("cartel1.xlsx").Activate 'il file deve essere già aperto in un Excel
Windows("cartel2.xlsx").Activate 'il file deve essere già aperto in un altro Excel
End Sub

che per me questo è solo se ti serve come visualizzazione o creare altre cose tipo collegamenti in VBA



maxma

unread,
Sep 25, 2011, 7:06:39 AM9/25/11
to
On 25 Set, 02:24, "Domenico Zangrilli" <domeni...@alice.it> wrote:
> "maxma" ha scritto nel messaggionews:8e593613-3270-4925...@g33g2000yqc.googlegroups.com...
>
>
>
> > In excel 2000 non c'e l'opzione per scegliere come salvare l'area come
> > scritto qui:
> > ----------------------------------------------------
> >http://www.google.com/url?sa=D&q=http://tinyurl.com/3j7fr5f&usg=AFQjC...
> > questa è stata ricavata con appunto il thread su "Area di lavoro"
> > che appunto mette le finestre di due file aperti quindi un solo Menù
> > per tutti
> > --------------------------------------------------
>
> > per capire mi esce sempre come l'esempio postato da domenico
>
> >http://www.google.com/url?sa=D&q=http://www.grillizan.biz/separati-ca....
>
> > ma questa dove la inserisco?
>
> > Private Sub Workbook_Open()
> > Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel1.xls"
> > Workbooks.Open Filename:="C:\WINDOWS\Desktop\prova2\Cartel2.xls"
> > End Sub
>
> > In thisworkbook di quale file? Carte1 oppure 2?
> > max
>
> anche in Cartel3.xls tanto è sempre un solo excel che vedi aperto
>
> io metterei questa
>
> Private Sub Workbook_Open
> Workbooks.Open Filename:="C:\Users\New Computer\Desktop\Prova\cartel1.xlsx"
> Workbooks.Open Filename:="C:\Users\New Computer\Desktop\Prova\cartel2.xlsx"
> ActiveWindow.WindowState = xlMaximized
> End Sub
>
> purtroppo non c'è altro modo .. di aprire più file senza farlo manulamente
>
> e poi gestire con questi comandi
>
> Sub Macro1()
> '
> ' Macro1 Macro
> '
>
> '
> Windows("cartel1.xlsx").Activate 'il file deve essere già aperto in un Excel
> Windows("cartel2.xlsx").Activate 'il file deve essere già aperto in un altro Excel
> End Sub
>
> che per me questo è solo se ti serve come visualizzazione o creare altre cose tipo collegamenti in VBA



Grazie dell'interessamento a tutti, comunque ho risolto così:
in ogni thisworkbook dei file (anche più di 2) ho inserito:

Private Sub Workbook_Activate()
On Error Resume Next
With Application
ActiveWindow.WindowState = xlMaximized
End With
End Sub

poi in ogni file xls ho inserito dei pulsanti per passare tra i file
file,
senza farlo dal menù finestra, queste macro:

Sub passa1()
Windows("Cartel1.xls").Activate
[A1].Select '<<<<<<<<<< non diventa blu
End Sub

Sub passa2()
Windows("Cartel2.xls").Activate
[A1].Select '<<<<<<<<<< non diventa blu
End Sub

Sub passa3()
Windows("Cartel3.xls").Activate
[A1].Select '<<<<<<<<<< non diventa blu
End S

vedo che funziona, spero sia esatto come metodo.
Qualcuno che ne sa più di me (e qui penso siano tutti)
mi può dire se è esatto?
Grazie,
max
0 new messages