nathan_csv_reader_issue000_DROPPED.R

read_xlsb <- function(x){
  require("RDCOMClient")
  message(paste0("Reading ", x, "...\n"))
  df <- excel.link::xl.read.file(filename = x, header = TRUE,
                                 xl.sheet = Worksheet_name)
  df$filename <- x
  df <- as.data.frame(df)
  return(df)
}