Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

(Excel) contatore di file

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

(Excel) contatore di file

Postdi Ter » 22/01/10 12:04

Salve a tutti.

E' possibile far contare ad excel il numero di file presenti in una cartella del disco C: e riportare questo numero in una cella incrementato di 1???

Grazie
Ter
Newbie
 
Post: 9
Iscritto il: 21/01/10 15:41

Sponsor
 

Re: (Excel) contatore di file

Postdi Anthony47 » 22/01/10 14:37

Secondo me vuoi assegnare automaticamente il primo numero libero a una nuova fattura; se e' cosi', allora il mio suggerimento e' di far diventare il file che usi un "modello" su cui baserai le tue fatture, salvando poi le fatture risultanti con un nome file diverso (cosa che penso gia' fai). Inserirai in questo file modello un foglio Archivio, dove per ogni fattura accumulerai un tot di informazioni utili, compreso ovviamente il numero fattura (1 fattura per rigo).
Determinerai quindi il "prossimo numero" sulla base dei dati in Archivio e non contando quanti file hai gia' salvato.
Trovi qui (e sulle altre discussioni citate in quel messaggio) un esempio da usare come spunto: viewtopic.php?f=26&t=83855
Prova a seguirlo e vediamo dove arrivi.

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

Re: (Excel) contatore di file

Postdi Flash30005 » 22/01/10 15:12

Io non so cosa ne faccia Ter con il conteggio dei file e gli invio una macro che conta i file in un percorso noto (es. C:\Data\)
Codice: Seleziona tutto
Public Percorso As String
Sub Archivio()
ChDrive "C"
Percorso = "C:\Data\"    '<<<<< qui cambi il percorso
Trova Direct:=Percorso, Estens:="*.*", Inicell:=ActiveCell
End Sub
Sub Trova(Direct As String, Estens As String, Inicell As Range)
  Dim i As Integer, f As String
  ChDir Direct
  f = Dir(Estens)
  If f = "" Then Exit Sub
  While f <> ""
    i = i + 1
    f = Dir
  Wend
Worksheets("Foglio1").[A1] = i + 1    '<<<< al posto di [A1] puoi mettere qualsiasi altra cella del foglio1 (o altro foglio)
End Sub


Ma se lo scopo è quello intuito da Anthony è preferibile seguire il suo consiglio perché andrebbe fatto qualcosa di più "serio"

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: (Excel) contatore di file

Postdi Ter » 22/01/10 15:38

Anthony47 hai colto precisamente il problema e la soluzione che hai suggerito è di gran lunga migliore di quella a cui avevo pensato io.
Grazie anche a Flash per la sua alternativa.

Ringrazio ancora una volta per la vostra disponibilità e cortesia!

Saluti
Ter
Newbie
 
Post: 9
Iscritto il: 21/01/10 15:41


Torna a Applicazioni Office Windows


Topic correlati a "(Excel) contatore di file":


Chi c’è in linea

Visitano il forum: eliorimnap e 15 ospiti