Ragazzi ciao
Ho bisogno del vostro aiuto
Devo cercare un file in una directory, il nome del file che devo trovare è scritto in una cella di un foglio excel (mettiamo per
esempio A1)
Come va scritta la macro?
Vi ringrazio in anticipo dell' aiuto
Moderatori: Anthony47, Flash30005
Sub apri()
ChDir "C:\Temp\" '<<<<<<<<<<< inserire il percorso completo di slash "\" finale
Application.Dialogs(xlDialogOpen).Show
End Sub
Sub ElencoFileXls()
perc = "C:\Users\Andrea\Privata Andrea\Disegni\" '<<< controlla se il percorso è corretto
'perc = "C:\temp\" '<<<<< percorso test
Worksheets("Elenco").Select
Cells.Clear
Range("A1").Select
With ActiveCell
Worksheets("Elenco").Range(.Cells(1, 2), .End(xlDown)).ClearContents
End With
ElencoFile Direct:=perc, Estens:="*" & NFile & "*.*", Inicell:=ActiveCell
Columns("A:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Sub ElencoFile(Direct As String, Estens As String, Inicell As Range)
Dim i As Integer, f As String
ChDir Direct
Set oFs = CreateObject("Scripting.FileSystemObject")
f = Dir(Estens)
If f = "" Then Exit Sub
While f <> ""
DataF = FileDateTime(f)
i = i + 1
Inicell(i) = f
f = Dir
Cells(i, 2).Value = DataF
Wend
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("D" & Rows.Count).End(xlUp).Row
If UR < 2 Then UR = 2
CheckArea = "D2:D" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Target <> "" Then
NFile = Target
ElencoFileXls
End If
End If
End Sub
Finalmente ci siamo capiti
io pero' con la macro devo anche aprire quella cartella dove ci sono quei file
andrea030670 ha scritto:io pero' con la macro devo anche aprire quella cartella dove ci sono quei file
andrea030670 ha scritto:guarda la foto forse ........
http://postimage.org/image/9ze6sedhp/
nell' immagine allegata, andrea030670 ha scritto:e' proprio cosi' difficile???
cliccando il codice aprire questa finestra con macro
e tu non mi rispondi se non parzialmenteAnthony ha scritto:cosa si deve fare: creare un elenco? (dove?) Aprire dei file? (di che tipo?) aprire Esplora risorse? Quando parli di "cartella" intendi una "Cartella di lavoro excel" o una "directory" del disco?
in risposta, andrea030670 ha scritto:intendo una directory del disco.
Faccio un ultimo tentativo
su una cella di excel c'è scritto un codice (51001235) devo trovare nella directory che ho segnato nell' immagine postata il corrispondente file (è un disegno tecnico in pdf o dwg)
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 32 ospiti