Excel:Salvare uno o + Fogli

Ronder17 · 30-07-2003, 20: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, 21: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, 21:28

Monkey lo devo fare da visual basic

Grazie

monkey72 · 30-07-2003, 22:19

questo l'hai scritto alle 21:25 quando hai editato!!!!

Ronder17 · 30-07-2003, 22:30

Bhe ragazzi chi mi aiuta?

monkey72 · 30-07-2003, 22:42

Codice:

    Sheets(Array("Foglio3", "Foglio5", "Foglio8")).Copy
    Windows("Cartel1").Activate

Ronder17 · 30-07-2003, 22: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, 22:57

ok... ma te che fai?

Ronder17 · 31-07-2003, 05:55

In che senso che faccio?

Insomma ragazzi nessuno che sa come fare?

monkey72 · 31-07-2003, 22: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, 18:43

Ti ringrazio per l'interessamento Monkey a furia di provare ce l'ho fatta!

verloc · 02-08-2003, 18:12

Quote:

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, 21: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

verloc · 06-08-2003, 08:27

OK!

30-07-2003, 20:32	#1
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	Excel:Salvare uno o + Fogli 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! Ultima modifica di Ronder17 : 30-07-2003 alle 21:25.

30-07-2003, 21:02	#2
monkey72 Senior Member Iscritto dal: Dec 2001 Messaggi: 1385	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" __________________ lui è il mio amore: "tesò domani ti regalo un guinzaglio lungo 100 km"

30-07-2003, 21:28	#3
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	vb6 Monkey lo devo fare da visual basic Grazie

30-07-2003, 22:19	#4
monkey72 Senior Member Iscritto dal: Dec 2001 Messaggi: 1385	questo l'hai scritto alle 21:25 quando hai editato!!!! __________________ lui è il mio amore: "tesò domani ti regalo un guinzaglio lungo 100 km"

30-07-2003, 22:30	#5
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	vb6 Bhe ragazzi chi mi aiuta?

30-07-2003, 22:42	#6
monkey72 Senior Member Iscritto dal: Dec 2001 Messaggi: 1385	Codice: Sheets(Array("Foglio3", "Foglio5", "Foglio8")).Copy Windows("Cartel1").Activate __________________ lui è il mio amore: "tesò domani ti regalo un guinzaglio lungo 100 km"

30-07-2003, 22:53	#7
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	Mh! 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

30-07-2003, 22:57	#8
monkey72 Senior Member Iscritto dal: Dec 2001 Messaggi: 1385	ok... ma te che fai? __________________ lui è il mio amore: "tesò domani ti regalo un guinzaglio lungo 100 km"

31-07-2003, 05:55	#9
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	vb6 In che senso che faccio? Insomma ragazzi nessuno che sa come fare?

31-07-2003, 22:50	#10
monkey72 Senior Member Iscritto dal: Dec 2001 Messaggi: 1385	ma lo devi fare da vb come funzione, macro, legato a qualche evento sul foglio pippo? come quando e perchè, spiegati meglio... __________________ lui è il mio amore: "tesò domani ti regalo un guinzaglio lungo 100 km"

01-08-2003, 18:43	#11
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	Grazie FAtto Ti ringrazio per l'interessamento Monkey a furia di provare ce l'ho fatta!

04-08-2003, 21:19	#13
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	Eccomi! 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

06-08-2003, 08:27	#14
verloc Senior Member Iscritto dal: Jan 2000 Messaggi: 551	OK!

Strumenti
Mostra una versione stampabile Invia questa pagina per email