library(readxl) emp_minor2 <- read_excel("~/emp.xlsx", sheet = "Sheet3",na="NA", skip=0, col_names=TRUE) View(emp_minor2)