integrazione estrazione stringa dati

Hai un problema con Excel?

Nuova discussione

integrazione estrazione stringa dati
di mb data: 23/11/2016 15:00:59
Ciao per completare le mie conoscenze su estrazione di stringhe dati chiedo ancora la vostra cortese collaborazione
partendo sempre dalle nostre 2 celle in colonna B
paperino 22_11_2016.xls
pippo 22_11_2016.xls

con la sub sotto riportata in colonna
ottengo questo risultato

paperino 22_11_2016
pippo 22_11_2016

E' corretta o se poteva scrivere meglio ??

2 ed ultima domanda

e se in colonna A volessi solo riportare la data ??

22_11_2016
22_11_2016

Grazie

Sub LeggeFileInDirxls()
Dim strFile As String
Dim r As Integer
mFolder = "c:incassi" ' directory di cui ottenere in colonna A la lista file
strFile = Dir(mFolder & "*.*")
r = 5
Do While strFile <> ""
    cells(r, 2) = strFile    'copia i nomi dei file della cartella in colonna B
    p = InStr(strFile, ".")  '
    cells(r, 1) = Left(strFile, p -1) ' scrive il testo estratto prima dello spazio
    strFile = Dir                  ' ritorna sulla directory er cercare se ci sono altri file
    r = r + 1                       ' aumenta il numeratore di 1 per passare all'inserimento successivo
    Loop
    
   
 End Sub

di patel data: 23/11/2016 15:20:55
c'è sempre un solo spazio in queste stringhe ? se sì

Sub LeggeFileInDirxls()
Dim strFile As String
Dim r As Integer
mFolder = "c:incassi" ' directory di cui ottenere in colonna A la lista file
strFile = Dir(mFolder & "*.*")
r = 5
Do While strFile <> ""
    cells(r, 2) = strFile    'copia i nomi dei file della cartella in colonna B
    p = InStr(strFile, ".")  
    strFile= Left(strFile, p -1)
    p = InStr(strFile, " ")     
    cells(r, 1) = Right(strFile, len(strFile) - p) 
    strFile = Dir                 
    r = r + 1             
    Loop
 End Sub

di mb data: 23/11/2016 16:28:44
Ciao patel meglio di così non potevo ottenere
confermo che c'è solo uno spazio

ecco i risultati
paperino paperino 22_11_2016.xls
pippo pippo 22_11_2016.xls

22_11_2016 paperino 22_11_2016.xls
22_11_2016 pippo 22_11_2016.xls

paperino 22_11_2016 paperino 22_11_2016.xls
pippo 22_11_2016 pippo 22_11_2016.xls

ci sono tutti i casi possibili

peccato che sul video non si vedono i risultati delle 3 casistiche

alla prossima e grazie di cuore..
di mb data: 23/11/2016 16:29:42
Grazie

Vuoi Approfondire?