Office中国论坛/Access中国论坛

标题: execl表格从网页里批量导入数据 [打印本页]
作者: yiyeqingcou    时间: 2012-6-16 17:19
标题: execl表格从网页里批量导入数据
如何实现从网页里一次性批量导入数据？
但导入的数据有吴？中奖号不是以行的形式排列的？
截图
[attach]49410[/attach]

如何实现导入后行与列是以正确的方式排列？
网址 http://www.jlfc.com.cn/kaijiang/ ... 10&pageoffset=1
代码
  1. Sub 按钮1_Click()
  2. For ID = 1 To 3000
  3.     With ActiveSheet.QueryTables.Add(Connection:= _
  4.         "URL;http://www.jlfc.com.cn/kaijiang/?item=history&lotteryid=851&pagetotal=29515&pagesize=10&pageoffset=" & ID _
  5.         , Destination:=Range("A" & [A65536].End(xlUp).Row + 5))
  6.         .Name = "xxx.asp?id=1"
  7.         .FieldNames = True
  8.         .RowNumbers = False
  9.         .FillAdjacentFormulas = False
  10.         .PreserveFormatting = True
  11.         .RefreshOnFileOpen = False
  12.         .BackgroundQuery = True
  13.         .RefreshStyle = xlInsertDeleteCells
  14.         .SavePassword = False
  15.         .SaveData = True
  16.         .AdjustColumnWidth = True
  17.         .RefreshPeriod = 0
  18.         .WebSelectionType = xlSpecifiedTables
  19.         .WebFormatting = xlWebFormattingNone
  20.         .WebTables = "2"
  21.         .WebPreFormattedTextToColumns = True
  22.         .WebConsecutiveDelimitersAsOne = True
  23.         .WebSingleBlockTextImport = False
  24.         .WebDisableDateRecognition = False
  25.         .WebDisableRedirections = False
  26.         .Refresh BackgroundQuery:=False
  27.     End With
  28. Next
  29. End Sub
复制代码
作者: yiyeqingcou    时间: 2012-6-16 19:33
ding  qi
作者: zhuyiwen    时间: 2012-6-17 12:14
这是因为中奖号码是单独用<li>元素
  1. <tr>
  2.         <td height="56" align="center">0616081</td>
  3.         <td align="center">2012-06-16 13:30</td>
  4.         <td class="tdpad">
  5.                 <ul class="haoma" style="width:500px;">
  6.                         <li class="orange">06</li>
  7.                         <li class="orange">00</li>
  8.                         <li class="orange">01</li>
  9.                         <li class="orange">06</li>
  10.                         <li class="orange">00</li>
  11.                 </ul>
  12.         </td>
  13. </tr>
复制代码
<td>是单元格
<li>是行级元素

因此，当你导入Excel后，必须重新处理你的“中奖号码”列，才能达到你想的要求 。

其实这种方案很慢，建议你使用xmlhttp可能要快得多.
作者: yiyeqingcou    时间: 2012-6-18 22:08
zhuyiwen 发表于 2012-6-17 12:14
这是因为中奖号码是单独用元素是单元格
是行级元素

感谢您的回复！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3