execl表格从网页里批量导入数据

yiyeqingcou

如何实现从网页里一次性批量导入数据？
但导入的数据有吴？中奖号不是以行的形式排列的？
截图


如何实现导入后行与列是以正确的方式排列？
网址 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

ding  qi

zhuyiwen

这是因为中奖号码是单独用<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

zhuyiwen 发表于 2012-6-17 12:14
这是因为中奖号码是单独用元素是单元格
是行级元素

感谢您的回复！