PDA

View Full Version : Excel:Salvare uno o + Fogli

Ronder17
30-07-2003, 19:32
Caio ragazzi ho questo problema:
Ho un File excel con parecchi fogli.
Devo fare tutto da visual basic 6.
Da questo file devo creare un altro file excel dove salvare solo alcuni fogli, quelli che dico io e non tutti.
Cioè Dal file originale che ha 20 fogli ne devo ricavare uno nuovo che per es ha tre fogli di questo ad es. il 3 foglio il 5 e l'8(naturalmente con tutto il contenuto ).
Come posso fare? Ho provato a salvarlo in diversi modi ma mi salva sempre e comunque tutti i fogli.
Grazie anticipatamente!
monkey72
30-07-2003, 20:02
i fogli che ti interessano li selezioni tenendo premuto il pulsante ctrl, poi premi con il pulsante dx del mouse su uno dei fogli selezionati, sposta o copia, alla cartella nuova cartella e se vuoi fare una copia dei fogli (ma non spostarli) metti la spunta sulla casellina "crea una copia"
Ronder17
30-07-2003, 20:28
Monkey lo devo fare da visual basic :p :D
Grazie
monkey72
30-07-2003, 21:19
questo l'hai scritto alle 21:25 quando hai editato!!!! :p ;)
Ronder17
30-07-2003, 21:30
Bhe ragazzi chi mi aiuta?
monkey72
30-07-2003, 21:42
Sheets(Array("Foglio3", "Foglio5", "Foglio8")).Copy
Windows("Cartel1").Activate
Ronder17
30-07-2003, 21:53
ME LO POTRESTI FARE UN ES. COMPLETO?

Calcola che io ho il file Pippo.xls che ha 20 fogli; da pippo devo prendere cosi come sono il foglio 3 il 4 e l' 8 e li devo salvare in un altro file Pluto.xls
monkey72
30-07-2003, 21:57
ok... ma te che fai? :D
Ronder17
31-07-2003, 04:55
In che senso che faccio?:rolleyes:
Insomma ragazzi nessuno che sa come fare?:muro:
monkey72
31-07-2003, 21:50
ma lo devi fare da vb come funzione, macro, legato a qualche evento sul foglio pippo? come quando e perchè, spiegati meglio...
Ronder17
01-08-2003, 17:43
Ti ringrazio per l'interessamento Monkey a furia di provare ce l'ho fatta!;)
verloc
02-08-2003, 17:12
Originariamente inviato da Ronder17
Ti ringrazio per l'interessamento Monkey a furia di provare ce l'ho fatta!;)

Dai il tuo contributo,per chi come te, non sapeva farlo.
Ci può essere sempre qualcuno interessato al problema:si legge tutto il post e scopre che i posters se la sono cantata e suonata.

:)

Posta sto codice!
Ronder17
04-08-2003, 20:19
Dim CartellaVecchia As excel.Workbook
Dim CartellaNew As excel.Workbook

CartellaVecchia.Worksheets(IndexFoglio).Copy BEFORE:=CartellaNew.Worksheets(IndexFoglio)

CartellaNew.SaveAs App.Path & "\" & NomeFile & ".xls"


E il gioco è servito
ciauz:p
verloc
06-08-2003, 07:27
OK! :)