Help me

Hai un problema con Excel?

Nuova discussione

Help me
di Bruscone data: 15/11/2017 09:30:46
Buongiorno ragazzi,
devo inserire dei dati su un registro, il percorso dei file è Cartella principale/subcartella/ e i 4 file che mi interessa. la subcartella è denominata con annomesegiorno (es. 20151201) e dentro a questo cartella ci sono 4 file(es. 20151201_ORA_A001) che mi interessano e per ogni giorno del mese devo inserilri nel registro. il percorso del file l'anno di riferimento e il mese lo inserisco nella cella x sul foglio del registro so esattamente quale mese e anno mi interessa.
Spero di essere stato chiaro

Sub Prova()
'
' Prova Macro
' Creare Registro mensile
Set sh = ActiveSheet
strPath = Cells(11, 9).Value
anno = Cells(12, 9).Value
mese = Cells(13, 9).Value
ora = 2200
Set Fldr = CreateObject("scripting.filesystemobject").GetFolder(strPath)
For Each SubFldr In Fldr.SubFolders
  giorno = Val(Right(SubFldr, 2))
  strExtension = Dir(SubFldr.Path & "& anno & mese & giorno & ora & nome & 001.not")
  Riga = giorno + 16
  colonna = 2
  Do While strExtension <> ""
    nome = Left(Right(strExtension, 8), 1)
    If nome = "8" Or nome = "9" Or nome = "A" Or nome = "B"    Then Cercare i file interessati 
      Set wbOpen = Workbooks.Open(SubFldr & "" & strExtension)
      Range("D2").Copy sh.Cells(Riga, colonna)
      colonna = colonna + 1
      strExtension = Dir
      wbOpen.Close False
    End If
    strExtension = Dir
  Loop
Next
End Sub

di patel data: 15/11/2017 10:19:33
1-Bruscone, gli utenti esperti che rispondono su questo tipo di problemi frequentano molti forum, quindi è poco utile cambiare forum, anzi si disperdono le informazioni e si rischia di vedersi bloccare la discussione sugli altri.
2-Il titolo della discussione deve riflettere l'argomento, hai letto il regolamento prima di postare ?
3-ormai dovresti aver capito che senza allegare niente non si ottengono risposte valide

Vuoi Approfondire?