Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Salvare file word dentro una determinata cartella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Salvare file word dentro una determinata cartella

Postdi Alea » 27/03/12 14:30

Salve a tutti
ho un problema con il salvataggio automatico di un file word tramite un codice VBA di Excel.
In un altro post avevo chiesto aiuto per salvare un foglio excel in un percorso rilevato da codice stesso.
Ora, utilizzando come base questo codice, devo salvare invece un file word. Purtroppo mi trovo in difficoltà perchè il file viene salvato in una posizione che non è quella desiderata:
La struttura della mia cartella è così:
00-CONTATTI
01-MAIL
02-DISEGNI
03-CALCOLO
-02-XLS
04-OFFERTE_CONTRATTO

Ora la seguente macro trova in automatico la posizione del file xls nel quale si trova il codice (cartella 02-XLS), mi torna "indietro" di 2 cartelle e mi salva il file.
Quello che non riesco a fare e dirgli ancora di entrare nella cartella 04-OFFERTE_CONTRATTO
Codice: Seleziona tutto
Perc1 = ThisWorkbook.Path
Slash1 = InStrRev(Perc1, "\")
PercF = Left(Perc1, Slash1 - 1)
Slash2 = InStrRev(PercF, "\")
PercFinale = Left(PercF, Slash2) & "04-OFFERTE_CONTRATTO"

            sSalvataggio = "Offerta_n_" & ThisWorkbook.Worksheets("QGL10.03b").Range("H3").Value & "_" _
& ThisWorkbook.Worksheets("QGL10.03b").Range("I3").Value & "_" _
& ThisWorkbook.Worksheets("Riepilogo").Range("D1").Value & "_" _
& ThisWorkbook.Worksheets("Riepilogo").Range("K3").Value _
& "_del_" & Format(Now, "dd.mm.yyyy") & ".doc"

            objWord.Visible = True
            objDoc.SaveAs (PercFinale & sSalvataggio)
            objDoc.Close
            Set objDoc = Nothing

Qualcuno può darmi una mano per risolvere il problema?
Grazie mille
Alea
Utente Senior
 
Post: 145
Iscritto il: 24/07/06 14:12

Sponsor
 

Re: Salvare file word dentro una determinata cartella

Postdi Anthony47 » 27/03/12 23:20

Forse ti basta solo questa modifica:
Codice: Seleziona tutto
PercFinale = Left(PercF, Slash2) & "04-OFFERTE_CONTRATTO" & "\"    '<<< Modificata

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Salvare file word dentro una determinata cartella

Postdi Alea » 28/03/12 07:16

Eh già.... mancava solo quello.
Grazie mille Anthony
Alea
Utente Senior
 
Post: 145
Iscritto il: 24/07/06 14:12


Torna a Applicazioni Office Windows


Topic correlati a "Salvare file word dentro una determinata cartella":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti