He hecho un script que hace lo que yo quería. Carga el sistema y lo tengo
que pasar en dos veces (En el trabajo uso Windows con un ordenador viejo)
Aquí os lo dejo por si a alguien más le sirve:

rm(list=ls())

library(RODBC)    #Librería que permite leer en excel y hacer consultas sql
library(XLConnect)
setwd("C:/Documents and Settings/UIB/Mis
documentos/Dropbox/Paco/Bayes/Bayes Analisis Javier/Comportamentales")

fileXLS<-"plantillas_ngc.xls"
x<-odbcConnectExcel(fileXLS)
xT<<-sqlTables(x)
Nhojas<-length(xT$TABLE_NAME)
rm(x,xT)


NgrandeRow<-1500    #Un numero grande de columnas para que no nos dejemos
ninguna
i<-1
for(i in 1:Nhojas){
  print(paste(i, "de", Nhojas))

  datosAux<- readWorksheetFromFile(fileXLS
                                    , sheet = i
                                    ,header = T
                                    ,startCol = 1
                                    ,startRow = 4
                                    ,endCol = 21
                                    ,endRow = NgrandeRow
                             )
  datosAux<-datosAux[-1,]
  datosAux<-datosAux[!is.na(datosAux$Trial),]
  datosAux<-datosAux[datosAux$Event.Type=="Picture",c("Subject"
,"Trial","Code","code","RT","Err"  )]

  if(i==1){
    datos<-datosAux
  }else{
    datos<-rbind(datos,datosAux)
  }

}




head(datos,20)


tail(datos,20)

#write.table(datos,file="aux.csv", sep="\t",quote=F,row.names=F)

i
NgrandeRow
Nhojas

	[[alternative HTML version deleted]]

