返回列表下一主題上一主題發帖

EXCEL 如何批次下載後更新資料

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-15 00:59 | 只看該作者

EXCEL 如何批次下載後更新資料

請問這個要怎麼做

買了一堆書
我還是做不出來
請問我要建立

web查詢（在工作表2）

然後把他依序貼到列的欄位

這個要怎麼做呢

檔案範例在這
https://www.dropbox.com/s/yfzark63r7jnjmp/demo2.xlsx

請好新人邦我打一下註解
實在看不懂阿:'(

樓主熱帖

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

2^#

發表於 2014-5-15 16:10 | 只看該作者

Sub 巨集1()
'
' 巨集1 巨集
'

'
Range("B1").Select
ActiveCell.FormulaR1C1 = _
      "http://demand.polaris.com.tw/z/zc/zcr/zcr_1101.ASP.HTM"
Sheets("工作表2").Select
Range("A1").Select
With Selection.QueryTable
      .Connection = "URL;http://demand.polaris.com.tw/z/zc/zcr/zcr_1101.ASP.HTM"
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "3"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Range("B3:B15").Select
Selection.Copy
Sheets("工作表1").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True

  Range("B2").Select
ActiveCell.FormulaR1C1 = _
      "http://demand.polaris.com.tw/z/zc/zcr/zcr_1102.ASP.HTM"
Sheets("工作表2").Select
Range("A1").Select
With Selection.QueryTable
      .Connection = "URL;http://demand.polaris.com.tw/z/zc/zcr/zcr_1102.ASP.HTM"
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "3"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Range("B3:B15").Select
Selection.Copy
Sheets("工作表1").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=True
End Sub

請問如何做迴圈
有的東西都一樣

TOP

maggie68038