分析了一下楼主给的两个页面，发现其实页面是通过其他链接再加上页码参数，进行Get请求
之后返回json数据再显示在页面上的。

代码以楼主给的两个链接为例，可以用下面的python代码进行数据拉取。

几个参数：
pre是各营业部获取数据的连接，page_num是对应营业部数据的页数。
最后保存为csv文件，我自己保存在D盘，楼主可以自己调整。


# -*- coding: utf-8 -*-

import urllib2
from bs4 import BeautifulSoup, SoupStrainer
import json
import csv

pre="http://data.10jqka.com.cn/interface/market/yybzjsl/CTZQGFYXGSWLDHBLZQYYB/"
#pre="http://data.10jqka.com.cn/interface/market/yybzjsl/HTZQGFYXGSCDSJLZQYYB/"

data_all=[]
page_num=43
#page_num=86

getonly = SoupStrainer('table')

for id_url in range(1,page_num+1):
    print "Start to get url:"+str(id_url)
    url=pre+str(id_url)
    content = urllib2.urlopen(url).read()  
    obj=json.loads(content)
    datapart = obj["data"]  
    table = BeautifulSoup(datapart, parse_only=getonly)

    for id,row in enumerate(table("tr")):
      if((id_url!=1 and id==0)or(id==1)):continue  
      text = ''.join(row.findAll(text=True))
      data = text.strip()
      data_split = data.split('\n')
      data_all.append(data_split)

cvsfile=open('D:\\eggs.csv', 'wb')
recordwriter=csv.writer(cvsfile,delimiter=',')
for line in data_all:
    temp_list=[]
    for field in line:
        temp_list.append(field.encode('gbk'))   
    recordwriter.writerow(temp_list)

cvsfile.flush()
cvsfile.close()

print "file has been created!"

require(XML)
require(RCurl)

第二步：抓取网页的源代码。
  webpage<-getURL(link)
  webpage <- readLines(tc <- textConnection(webpage)); close(tc)
  pagetree <- htmlTreeParse(webpage, error=function(...){}, useInternalNodes = TRUE)

第三步：选表格。
用html语言@限定
  tablehead <- xpathSApply(pagetree, "//table//th", xmlValue) ＃这里是抓表格的标题
  result<-xpathSApply(pagetree,"//table//td",xmlValue) ＃这里是表格内容

谢谢！能否给出完整的代码呢？

import urllib
from bs4 import BeautifulSoup, SoupStrainer

baseurl="http://data.10jqka.com.cn/market/yybzjsl/HTZQGFYXGSCDSJLZQYYB"
page = urllib.urlopen(baseurl)
getonly = SoupStrainer('table')
table = BeautifulSoup(page, parse_only=getonly)

for row in table("tr"):
  text = ''.join(row.findAll(text=True))
  data = text.strip()
  print data

自己给自己回答一部分吧，但是这里的DATA怎么整成data frame的形式？还有就是这里只能取一页，我想取所有页的数据，请高手指教！谢谢

用rvest也可以很容易拿到一页的数据，不过没有1楼那个选表格，之后处理方便。
同样有问题的是如何才能拿到整几页的数据。研究了网页代码，没看到页码切换部分，貌似用JS还是啥的切换的
同求有心人研究一下下面是尝试拿的一部分代码，包括名字，date，还有原因。用遨游的元素审查看的。
library(rvest)
url<-"http://data.10jqka.com.cn/market/yybzjsl/"
raw<-html(url,encoding="UTF-8")
#get stock
stock_list<-raw %>% html_nodes("tr")
date<-stock_list %>% html_nodes("td.first.tc")
reason<-stock_list %>% html_nodes("td.tl")
stock<-sapply(stock_list,function(n) n[3]$td)
stock


----------
补充：
用以下可以快速得到table （html_table())
d<-raw%>%html_nodes("table.m_table") %>% html_table(fill=TRUE)
d