wkstrngs = StringJoin /@ Map[ToString, PadLeft[IntegerDigits /@ Range[52]], {-1}];
wkurls = Quiet["http://www.boxofficemojo.com/weekend/chart/?yr=2012&wknd=" ~~
# ~~ "&\p=.htm" & /@ wkstrngs[[;; 5]]] (* remove [[;;5]] for all 52 weeks *)
(* {"http://www.boxofficemojo.com/weekend/chart/?yr=2012&wknd=01&\\p=.htm",
"http://www.boxofficemojo.com/weekend/chart/?yr=2012&wknd=02&\\p=.htm",
"http://www.boxofficemojo.com/weekend/chart/?yr=2012&wknd=03&\\p=.htm",
"http://www.boxofficemojo.com/weekend/chart/?yr=2012&wknd=04&\\p=.htm",
"http://www.boxofficemojo.com/weekend/chart/?yr=2012&wknd=05&\\p=.htm"} *)
fiveweeks = Import[#, "Data"] & /@ wkurls;
data5wks = Cases[#, {_, _, _, _, _, _, _, _, _, _, ___, _?NumericQ}, Infinity] & /@
@fiveweeks; (*thanks: Mike fiveweeks;Honeychurch*)
Grid[#, Frame -> All] & /@ data5wks
