read.xls and name of worksheet

Hi,

I would like to some excel files with some worksheets. I tried this with
the following R script:

library(gdata)
i<-1
rc<-0
while(rc != "try-error") {

wksh<-try(read.xls("cluster-microarray-FW.xls",sheet=i,verbose=TRUE,perl="perl"))
  rc<-class(wksh)
  print(sprintf("------- i=%2d rc=%s ---------------",i,rc))
  if (rc != "try-error") {
    print("--- summary(wksh)= -----");  print(summary(wksh))
    i <- i+1
  }
}

At first I found the problem that xls2csv adds one space to the every
item in the last column. 
The second problem is, that I could not found an a possibility to save
the name of the worksheet. It is shown on the screen, if I use the last
script. I see something like 

Writing Sheet number 1 ('strenger') to file
'/tmp/RtmpFpSkBB/file327b23c6.csv'

The word in the single quotes is the name of the worksheet.
Therefore I tried to redirect the standard output to a file

library(gdata)
i<-1
rc<-0
while(rc != "try-error") {
  log=paste("text.log",i,sep="")
  print("log=");  print(log)
  #con<-file(log,open="wt")
  #sink(con, type=c("output","message"))
  #sink(con, type="output")
  #sink(con, type="message")
  sink(log)

wksh<-try(read.xls("cluster-microarray-FW.xls",sheet=i,verbose=TRUE,perl="perl"))
  sink()
  rc<-class(wksh)
  print(sprintf("------- i=%2d rc=%s ---------------",i,rc))
  if (rc != "try-error") {
    cmd<-paste("sed -n \"s/.*[(](.*)[)].*/\1/p\" ",log," > text.log")
    system(cmd)
                                        #unlink(log)
    print("--- summary(wksh)= -----");  print(summary(wksh))
    i <- i+1
  }
}

But now I don't find the information about Writing Sheet number in
text.log*. Any hint appreciated.

Regards