Salve a tutti,
io devo importare n files .csv con nomi differenti e tutti nella stessa cartella all'interno di un file excel 2010 con il comando "carica dati esterni da testo".
leggendo su diversi forum e diverse discussioni sono riuscito a creare una macro che mi fa la scansione della cartella e mi importa i files correttamente, solo che non capendo i comandi utilizzati (ammetto di non essere forte in programmazione e ho copiato diversi pezzi di codice facendo un accrocchio) se volessi replicarla non sarei ingrado. qualcuno riesci a spiegarmi alcuni comandi (li ho sengati in rosso) presenti nel codice che vi allego? grazie
Sub macro1()
'
' macro1 Macro
'
'
a = 1
b = 1
Dim codice
Worksheets("Appoggio Macro").Activate
Cells(2, 1).Value = ""
Cells(4, 1).Value = ""
Cells(6, 1).Value = a
Cells(7, 1).Value = b
codice = InputBox("il mese da analizzare:", "testo ")
Cells(2, 1).Value = codice
Dim direct As String
Dim NomiFiles() As String
Dim f As Integer
direct = Cells(5, 1).Value
NomiFiles = ScanDir(direct)
end sub
questa è la macro di partenza che richiama la funzione:
Function ScanDir(pth As String) As Variant
Dim i As Integer
Dim aFiles() As String
i = 0
pth = pth & IIf(Right(pth, 1) <> "\", "\", "")
f = Dir(pth)
Do While f <> ""
If GetAttr(pth & f) <> vbDirectory Then
ReDim Preserve aFiles(i)
aFiles(i) = pth & f
i = i + 1
Cells(4, 1).Value = f
Call MacroAppoggio
End If
f = Dir
Loop
ScanDir = aFiles
End Function
la macro macroappoggio poi continua l'importazione e lavora i files importati ma su quella sono aposto.
Grazie mille