Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

CONVERSIONE DA EXCEL 2003 A EXCEL 2007

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

CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi cd7019 » 15/01/14 20:18

CIAO,

ho scoperto, purtroppo, che le macro fatte in EXCEL 2003 non funzionano più in EXCEL 2007.
Potete aiutarmi ad convertire questo listato dal 2003 al 2007:

Codice: Seleziona tutto
Set fs = Application.FileSearch
    With fs
        .LookIn = "X:\CORRISPONDENZA\Fax\"      'conta quanti file "*-anno" sono presenti in T:/corrispondenza/fax/
        FNAME2 = anno & ".DOC"
        .FileName = FNAME2
        If .Execute > 0 Then
            NF = .FoundFiles.Count + 1
            protocollo = Switch(NF < 10, "0" & NF, NF > 9, "" & NF)
        Else
            protocollo = "01"
        End If
    End With


Grazie.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Sponsor
 

Re: CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi Anthony47 » 16/01/14 03:32

Eh si, Application.FileSearch non e' piu' disponibile nelle versioni da XL2007 in avanti.
Puoi utilizzare la Funzione Dir, come nell' esempio contenuto nell' help on line del vba (si esegue la Dir dando il Path e il tipo file; si ripere la sola Dir fintanto che il risultato e' una stringa nulla).
Nel tuo caso potresti partire da questo codice:
Codice: Seleziona tutto
NFile = Dir("X:\CORRISPONDENZA\Fax\" & anno & "doc")
Do
    If NFile <>"" then
        NF=NF+1
    Else
        Exit Do
    Endif
    Dir
Loop

A questo punto NF contiene il numero di file individuati, e puoi realizzare la logica successiva.

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: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi Flash30005 » 16/01/14 03:44

Mi ha anticipato Anthony ma ormai la propongo
Codice: Seleziona tutto
Sub ContaF()
myDir = ThisWorkbook.Path & "\"
NF = 0
myFile = Dir(myDir & anno & ".DOC")
Do While myFile <> ""
    If myFile <> ThisWorkbook.Name Then NF = NF + 1
    myFile = Dir
Loop
MsgBox NF
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi cd7019 » 16/01/14 14:32

ciao,

ci potrebbero utilizzare entrembe le versioni?

ad esempio:

Codice: Seleziona tutto
IF software=EXCEL 2003 THEN
      Set fs = Application.FileSearch
      With fs
      ...
ENDIF
IF SOFTWARE=EXCEL 2007 THEN
      NFile = Dir("X:\CORRISPONDENZA\Fax\" & anno & "doc")
      Do
         If NFile <>"" then
      ...
ENDIF


GRAZIE.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Re: CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi ricky53 » 16/01/14 14:53

Ciao,
è più pratico e funzionale utilizzare la versione che giri su tutte le versioni.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi Anthony47 » 16/01/14 15:57

Il metodo che usa Dir e' compatibile sia sulle vecchie che sulle nuove versioni, non ha senso complicarsi la vita con compilazioni condizionali.

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: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: CONVERSIONE DA EXCEL 2003 A EXCEL 2007

Postdi cd7019 » 16/01/14 17:19

Grazie mille.

ciao
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38


Torna a Applicazioni Office Windows


Topic correlati a "CONVERSIONE DA EXCEL 2003 A EXCEL 2007":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti