1) ho trovato nel forum questa macro che mi consente di conoscere i file e il percorso in una determinata cartella(folder)
- Codice: Seleziona tutto
Sub listato()
Worksheets("Foglio1").Activate
If Cells(1, 2).Value <> "" Then
Worksheets("Foglio1").Select
percorso = Cells(1, 2).Value
With Application.FileSearch
.LookIn = percorso
.SearchSubFolders = True
.Filename = "*.*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
'MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
Sheets("Foglio1").Activate
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Next i
Columns("A:A").Select
Columns("A:A").EntireColumn.AutoFit
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else
MsgBox "Non Ho Trovato Files"
End If
End With
Else
Worksheets(1).Select
MsgBox "Inserisci prima il percorso da esaminare"
End If
Range("A1").Select
End Sub
come faccio a far elencare solo il nome dei file senza il percorso
2) ottenuto l'elenco nella colonna A vorrei impostare una macro, che proprio non riesco a fare, che mi aprisse uno alla volta i file, copiasse alcuni dati dal file aperto e li incollasse in una certa colonna. L'operazione copia incolla riesco a farla, il resto no, preciso che i file in colonna A possono essere da 1 a 50
3) su una userform ho inserito una listbox che prende i dati dalla colonna A e selezionando un nome mi apre quel file,
solo che all'apertura del file la userform resta attiva ed in primo piano. Ho necessita' che la userform non si chiuda.
Ho trovato sel web questo codice da inserire nel modulo della userform
- Codice: Seleziona tutto
Option Explicit
Private Declare Function FindWindow& Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName$, _
ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, _
ByVal dwNewLong&)
Private Declare Function EnableWindow& Lib "user32" _
(ByVal hWnd&, ByVal fEnable&)
Private Declare Function ShowWindow& Lib "user32" _
(ByVal hWnd&, ByVal nCmdShow&)
Private Sub UserForm_Initialize()
Dim Style As Long
Style = &H84C80080 Or &H20000 Or &H40000
SetWindowLong FindWindow(vbNullString, Me.Caption), -16, Style
EnableWindow FindWindow(vbNullString, Application.Caption), 1
End Sub
in questo modo posso ridurre ad icona la userform.
Non c'e' un modo per ridurre ad icona in automatico la UF quando e' attivo il file che ho aperto e renderla di nuovo attiva quando chiudo il file selezionato.
Spero in un Vs aiuto
