Aprire txt variabile



  • Aprire *.txt variabile
    di Tonaus70 (utente non iscritto) data: 01/04/2014 20:21:23

    Ciao,
    devo automatizzare l'importazione di un file txt in excel con una macro. Il file txt nel contenuto è sempre lo stesso, però il software da cui lo esporta gli assegna ad ogni estrazione un nome diverso.
    Sapendo che il file lo trovo sempre in data cartella (es c:/Stampe) come imposto la macro per scegliere il file da importare?
    Sarebbe possibile far scegliere alla macro il file txt all'interno della cartella con la data di creazione più recente?

    Grazie



  • di lepat (utente non iscritto) data: 02/04/2014 08:18:15

    prova questa macro
     
    Sub LastUpdatedFile()
            Set fs = CreateObject("Scripting.FileSystemObject")
            fpath = "c:/Stampe"
            Set f = fs.Getfolder(fpath)
            Set NFile = f.Files
            For Each pf1 In f.Files
                If pf1.Name = "" Then Exit Sub
                date3 = pf1.DateLastModified
                fName = pf1.Name
                If MDataUM < date3 Then
                    FpathName = pf1
                    MDataUM = date3
                    fnameExt = fName
                End If
            Next
            Cells(6, 1).Value = FpathName
    ' <<<<<<<<<<<< qui il codice per importare il file
    End Sub