Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Directory...a sorpresa

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

Directory...a sorpresa

Postdi Lele2774 » 18/12/13 21:56

ciao a tutti.

ho creato delle macro che hanno lo scopo di salvarmi in 2 directory diverse ...2 file in pdf partendo dal un unico file xls.

la particolarità negativa di tutto questo è che, benchè abbia indicato chiaramente quale siano le directory dove dover salvare i 2 file pdf le macro in questione...alcune volte salvano nelle giuste cartelle, altre volte... in altre cartelle assolutamente non menzionate nella macro in questione.
la cosa che mi sconcerta è che... a fronte di nessun cambiamento del testo della macro... i file vengono salvati in cartelle sempre diverse.
COME SI SPIEGA?
COME POSSO "FISSARE" QUESTE DIRECTORY?

HELPPPPPPPPPPPPPPPPPPPPPPP!!!!


ecco le macro:
Sub CallMacro()

Call Salva1

Call SalvaB

End Sub

--------------------------------------------------------------------------------------------------------------------
Sub Salva1()

Sheets("AIR_1").Select

nome = Range("M3").Value

ChDir "X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (selling)"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

--------------------------------------------------------------------------------------------------------------------
Sub SalvaB()

Sheets("Buying").Select

nome = Range("M3").Value



ChDir "X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (buying)"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False



Sheets("AIR_1").Select

Range("A1").Select


End Sub
Lele2774
Utente Junior
 
Post: 54
Iscritto il: 05/10/12 14:55

Sponsor
 

Re: Directory...a sorpresa

Postdi Zer0Kelvin » 18/12/13 22:42

Ciao.
Oltre alla cartella, devi assicurarti di essere sul drive giusto.
Esempio:
-la cartella corrente è "C:\Miacartella"
-Eseguo l'istruzione: ChDir("D:\Miacartella_2")
-Con questo ho cambiato la cartella di lavoro sul drive D:, ma il drive su cui sto lavorando è ancora C:, quindi...
-SORPRESA! la cartella di lavoro di Excel è ancora, indovina un pò?
- "C:\Miacartella"

Per essere certo di scrivere nella cartella corretta devi eseguire:
Codice: Seleziona tutto
ChDrive "X"
ChDir "X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (buying)"

Naturalmente questa è solo un'ipotesi; prova e fammi sapere....

PS:
Più semplicemente puoi includere il percorso completo nell'istruzione ExportAsFixedFormat:
Codice: Seleziona tutto
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (selling)" & _
nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Ultima modifica di Zer0Kelvin su 18/12/13 22:50, modificato 2 volte in totale.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: Directory...a sorpresa

Postdi Lele2774 » 18/12/13 22:46

grazie mille
domani provo e ti faccio sapere.

mi rimane il "mistero" per cui...alcune volte salva correttamente, altre volte...
grazie ancora
Lele2774
Utente Junior
 
Post: 54
Iscritto il: 05/10/12 14:55

Re: Directory...a sorpresa

Postdi Zer0Kelvin » 18/12/13 22:51

Rileggi il mio post, ho fatto un'aggiunta.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: Directory...a sorpresa

Postdi Lele2774 » 18/12/13 23:24

grazie.

quindi...se ho capito bene... la macro dovrebbe essere così:
Codice: Seleziona tutto
Sub SalvaB()
Sheets("Buying").Select
nome = Range("M3").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="X:\MXP Share\SALES\Quotation\sales activity 2013\quotazioni (selling)" & _
nome & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("AIR_1").Select
Range("A1").Select
End Sub


giusto?
grazie ancora
Lele2774
Utente Junior
 
Post: 54
Iscritto il: 05/10/12 14:55

Re: Directory...a sorpresa

Postdi Lele2774 » 31/12/13 09:18

FUNZIONA!!!!!!
GRAZIE
Lele2774
Utente Junior
 
Post: 54
Iscritto il: 05/10/12 14:55


Torna a Applicazioni Office Windows


Topic correlati a "Directory...a sorpresa":


Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti