execl表格從網(wǎng)頁里批量導(dǎo)入數(shù)據(jù)

yiyeqingcou

如何實現(xiàn)從網(wǎng)頁里一次性批量導(dǎo)入數(shù)據(jù)？
但導(dǎo)入的數(shù)據(jù)有吳？中獎號不是以行的形式排列的？
截圖


如何實現(xiàn)導(dǎo)入后行與列是以正確的方式排列？
網(wǎng)址 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

復(fù)制代碼

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>

復(fù)制代碼

<td>是單元格
<li>是行級元素

因此，當你導(dǎo)入Excel后，必須重新處理你的“中獎號碼”列，才能達到你想的要求 。

其實這種方案很慢，建議你使用xmlhttp可能要快得多.

yiyeqingcou

zhuyiwen 發(fā)表于 2012-6-17 12:14
這是因為中獎號碼是單獨用元素是單元格
是行級元素

感謝您的回復(fù)！