Lo puedes hacer el argumento `idcol = ` de la misma función `rbindlist` que estás usando. 

Asegúrate de que la lista `df_list` sea una lista nombrada y que los nombres de cada elemento sean el nombre del archivo.

Cuando unes a los data.frame usa `idcol = `COL3. No puedo verificarlo al no tener los archivos, pero debería funcionar. 



    lista1 <- list.files(pattern = "*.xls")
    
    df_list <- lapply(lista1,
                      FUN = function(files) {
                      read.table(files, header = TRUE, sep = "") })
    
    names(df_list) <- lista1
    
    library(data.table)
    
    tabla <- rbindlist(df_list, idcol = "COL3)