Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

help-excel 2007 macro apertura e modifica massiva files

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

help-excel 2007 macro apertura e modifica massiva files

Postdi raffa.caraffa » 18/02/10 21:42

ciao a tutti ,
ho aperto un nuovo post per chiedere un help ... mi trovo alle prese con excel 2007 e devo creare una macro che apra massivamente una serie di files contenuti in una specifica cartella ... ed una volta aperti moficare delle formattazioni / dati / stringhe ... ecc... una cosa simile la facevo con la versione del 2003 usando la funzione :
set fs = application.filesearch ... che non è più supportata nel 2007
With fs
.LookIn = "C:\Documents and Settings\xxxxxx\Desktop\xxxxxxxxx"
.FileName = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)

potete aiutarmi ???
grazie 10000
raffa
raffa.caraffa
Newbie
 
Post: 1
Iscritto il: 18/02/10 21:11

Sponsor
 

Re: help-excel 2007 macro apertura e modifica massiva files

Postdi Anthony47 » 18/02/10 22:41

Ciao raffa e benvenuto nel forum.
Guarda questa discussione: viewtopic.php?f=26&t=84713#p482218
poi adatta la Sub Trova ai tuoi bisogni; usa la funzione Dir.

E se non riesci posta ancora...

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

Re: help-excel 2007 macro apertura e modifica massiva files

Postdi Flash30005 » 18/02/10 22:51

Prova questa macro

Codice: Seleziona tutto
Public Percorso As String
Sub Archivio()
ChDrive "C"
Range("A1").Select
Percorso = "C:\Data\"   '<<<< 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
    Inicell(i) = f   '<<<< scrive i nomi dei file a partire dalla cella A1
    f = Dir
  Wend
'Worksheets("Foglio1").[A1] = i + 1    ' Scrive il numero dei file trovati nella cella A1
End Sub


La tua macro conta solo i file
Con questa puoi contare i file oppure ricavarti il nome che insieme al percorso ti permette di aprirli uno ad uno e modificare ciò che vuoi

Ciao

P.s. Aggiungo, che mi sono quasi "accavallato" con il post di Anthony, comunque la macro è simile a quella del link
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-


Torna a Applicazioni Office Windows


Topic correlati a "help-excel 2007 macro apertura e modifica massiva files":


Chi c’è in linea

Visitano il forum: Nessuno e 61 ospiti