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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
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
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
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 139 ospiti