Boston01a = Import["Boston-v01.xlsx", {"Data", 1}];

textStyle @
  Row[{"Number of entries in ", " file: ", Length[Boston01a]}]
timesStyle10 @
  Pane[
    Grid[Boston01a, Frame -> All],
    ImageSize -> {All, 200}, Scrollbars -> True]

(*Boston data set 1 data specification*)
Bo1 = Drop[Boston01a, 1, 2];
timesStyle10 @
  Pane[
    Grid[Bo1, Frame -> All],
    ImageSize -> {All, 200}, Scrollbars -> True];