| 查看: 144 | 回复: 1 | |||
| 当前主题已经存档。 | |||
idccu木虫 (小有名气)
|
[交流]
【请教】多个网页导入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"  .SelectCells = "" 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 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
面上合作单位盖章
已经有9人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
-
为什么国自然不能直接公布
已经有5人回复
-
梦想
已经有7人回复
-
学科评审组评审是指会评吗？
已经有4人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有14人回复
-
小白求助 投论文要求的highlights应该如何写
已经有4人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有12人回复
-
怎么看青基中了没有啊
已经有6人回复
sihao0564
铁杆木虫 (知名作家)
- 博学EPI: 2
- 应助: 0 (幼儿园)
- 金币: 7744.4
- 散金: 2
- 红花: 3
- 沙发: 7
- 帖子: 5221
- 在线: 120小时
- 虫号: 577192
- 注册: 2008-06-22
- 专业: 生化分析及生物传感
2楼2009-09-01 21:01:41
投票:
