Moderatori: Anthony47, Flash30005
Public perc As String
Sub ElencoFileDocx()
perc = "C:\temp\" '<<<<<< sostituire questo percorso con quello dei tuoi file docx da convertire
Worksheets("Foglio1").Select
Range("A1").Select
With ActiveCell
Worksheets("Foglio1").Range(.Cells(1, 2), .End(xlDown)).ClearContents
End With
ElencoFile Direct:=perc, Estens:="*.docx", 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 <> ""
i = i + 1
Inicell(i) = f
f = Dir
Wend
End Sub
angelino ha scritto:ho gli indirizzi dei destinatari di ciascun file
Torna a Applicazioni Office Windows
Problemi di stampa su carta adesiva lucida con Epson Et 2850 Autore: lukarello7 |
Forum: Discussioni Risposte: 5 |
sal vare doc in word in PDF editabile Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 2 |
Aggiornare automaticamente alcune parole ripetute in word Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Macro crea file word rinominato come dato in specifica cella Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 11 |
Visitano il forum: Nessuno e 60 ospiti