if (FALSE) {
# mtcars xlsx file from demoFiles subfolder of package XLConnect
demoExcelFile <- system.file("demoFiles/mtcars.xlsx", package = "XLConnect")
# Load workbook
wb <- loadWorkbook(demoExcelFile)
# Query the last row of the 'mtcars' worksheet
getLastRow(wb, "mtcars")
# Query the last row of the 'mtcars2' worksheet
getLastRow(wb, "mtcars2")
# Query the last row of the 'mtcars3' worksheet
getLastRow(wb, "mtcars3")
}
Run the code above in your browser using DataLab