24小时热门版块排行榜

>论坛更新日志 (1273)
>虫友互识 (34)
>论文投稿 (24)
>导师招生 (23)
>考研 (21)
>基金申请 (17)
>教师之家 (17)
>硕博家园 (17)
>找工作 (17)
>考博 (16)
>公派出国 (16)
>休闲灌水 (15)
>博后之家 (14)
>论文道贺祈福 (11)
>有机交流 (11)
>文献求助 (9)

返回列表

当前主题已经存档。

idccu

木虫 (小有名气)

应助: 1 (幼儿园)
金币: 1664.6
散金: 517
红花: 1
帖子: 263
在线: 45.7小时
虫号: 342335
注册: 2007-04-09
性别: GG
专业: 有机化学

[交流] 【请教】多个网页导入excel中编码问题

小弟在网上找了个可将多个连续网页导入excel中的编码，

但是运行后只是重复将第一个网页导入，不知什么原因？请高手指点一下。

编码如下：
Sub Macro1()
Dim rows As Long, n As Long, url As String
url = "URL;http://my.taobao.com/mytaobao/ra ... ;snap_id=0#RateType"
Sheets("Sheet3"

.Select
Cells = ""
For n = 0 To 30000 \ 40
rows = [c65536].End(xlUp).Row + 1
Cells(rows, 1).Activate
With ActiveSheet.QueryTables.Add(Connection:=Replace(url, "@", n + 1), Destination:=Cells(rows, 1))
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlAllTables
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Next
MsgBox "OK"
End Sub

回复此楼