dopo aver fatto una ricerca nel forum mi è sembrato di non essere riuscito a trovare la risposta al mio problema e quindi sono di nuovo qui per chiedere il vostro aiuto.
Ho creato questa macro che
- Codice: Seleziona tutto
Sub Pulsante1_Click()
Dim Riga As Integer, Ncartelle As Integer
Dim Cartella As String
Dim check As Boolean
Dim FileSystemObj
Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
Worksheets("SingleLoomsTotal").Activate 'Attiva il foglio "SingleLoomsTotal"
Riga = 12
check = False
Ncartelle = 0
While Workbooks("pergiuseppe1.xls").Worksheets("SingleLoomsTotal").Cells(Riga, 8) <> ""
If Workbooks("pergiuseppe1.xls").Worksheets("SingleLoomsTotal").Cells(Riga, 8) Like ("*" & "IS" & "*") _
Or Workbooks("pergiuseppe1.xls").Worksheets("SingleLoomsTotal").Cells(Riga, 8) Like ("*" & "IT" & "*") Then 'La ricerca sarà Case Sensitive
Cells(Riga, 8).Interior.ColorIndex = 6
Riga = Riga + 1
check = True
Else
Riga = Riga + 1
End If
If Workbooks("pergiuseppe1.xls").Worksheets("SingleLoomsTotal").Cells(Riga, 1) <> "" _
And Workbooks("pergiuseppe1.xls").Worksheets("SingleLoomsTotal").Cells(Riga, 8) = "" Then
If check Then
Cartella = "C:\Users\Admin\Documents\perClemente\" & Cells(Riga - 1, 9)
If Not FileSystemObj.folderExists(Cartella) Then
FileSystemObj.CreateFolder Cartella
Ncartelle = Ncartelle + 1
End If
End If
Riga = Riga + 11
End If
If check Then
Cartella = "C:\Users\Admin\Documents\perClemente\" & Cells(Riga - 1, 9)
If Not FileSystemObj.folderExists(Cartella) Then
FileSystemObj.CreateFolder Cartella
Ncartelle = Ncartelle + 1
End If
End If
check = False
Wend
MsgBox " Sono state create " & Ncartelle & " cartelle in C:\Users\Admin\Documents\perClemente"
End Sub
ricerca in un foglio Excel che ha una determinata struttura e qualche migliaio di righe tutte le occorrenze IS e/o IT, quando le trova evidenzia le celle e va a creare, se non esiste, una cartella con il nome RootCode. A questo punto il mio problema è che nella cartella "C:\Users\Admin\Documents\perClemente\Installativi" dovrei andare a cercare tutti i files contenenti nel loro nome il codice RootCode (es. ___K2943000-801_agbya_jjj.cgm" copiarli ed incollarli nella cartella "C:\Users\Admin\Documents\perClemente\K2943000-801" appena creata e così via.
La mia idea era quella che appena creava la cartella eseguisse la ricerca dei file li copiasse e li incollasse nella cartella appena creata.
Pensate che la cosa sia fattibile? Ho provato ad usare il metodo FSO con FileExists, ma non essendo neofita e non molto pratico purtroppo non sono riuscito.
Spero di essere stato chiaro
Grazie
giubar