Ho già letto un altro topi similare:
viewtopic.php?f=26&t=103754
cui ho preso spunto la macro che segue:
- Codice: Seleziona tutto
Public perc As String, Ws1 As String, f As String, WB1 As String
Sub ElencoFileXls()
Application.ScreenUpdating = False
Application.Calculation = xlManual
perc = ThisWorkbook.Path
If Dir(perc & "\ArchivioXls", vbDirectory) = "" Then
MkDir (perc & "\ArchivioXls")
End If
WB1 = ThisWorkbook.Name
Ws1 = "Foglio1"
Worksheets(Ws1).Select
Range("A1").Select
ElencoFile Direct:=perc, Estens:="*.xls*", Inicell:=ActiveCell
Columns("A:AZ").EntireColumn.AutoFit
Range("A1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub ElencoFile(Direct As String, Estens As String, Inicell As Range)
Dim i As Integer, f As String
ChDir Direct
f = Dir(Estens)
If f = "" Then Exit Sub
While f <> ""
If f <> ThisWorkbook.Name Then
Application.Workbooks.Open perc & "\" & f
URF = Workbooks(f).Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
URR = Workbooks(WB1).Worksheets(Ws1).Range("A" & Rows.Count).End(xlUp).Row
Workbooks(f).ActiveSheet.Rows("1:" & URF).Copy Destination:=Workbooks(WB1).Worksheets(Ws1).Range("A" & URR + 1)
Workbooks(f).Close savechanges:=False
FileCopy perc & "\" & f, perc & "\ArchivioXls\" & f
Kill perc & "\" & f
End If
f = Dir
Wend
End Sub
e ho seguito le istruzioni accennate nel forum postato, ho creato la cartella archivio etc...
Ma ho diversi problemi:
- i file in mio possesso (che cambiano ogni mese) sono file XML e facendo una ricerca mi è parso di capire che non si possa applicare la macro, quindi li devo convertire? Avete suggerimenti su come fare? Senza aprirli uno per uno.
- la colonna A di ogni file è sempre popolata per tutte le righe, ma le altre colonne possono avere dei campi vuoti, incide? (allego immagine)
- sempre nell'altro topic si citava di sostituire il percorso della cartella sulla stringa della macro, ma non è ben capito dove esattamente. Ho fatto delle prove ma tutte mi portano sempre ad un errore.
Credo di aver finito con le problematiche
