Board logo

標題: EXCEL 如何 批次下載 後 更新資料 [打印本頁]
作者: vavashop    時間: 2014-5-15 00:59     標題: EXCEL 如何 批次下載 後 更新資料

請問這個要怎麼做

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

web查詢（在工作表2）

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

這個要怎麼做呢

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



請好新人邦我打一下 註解
實在看不懂阿:'(
作者: vavashop    時間: 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



請問如何做 迴圈
有的東西都一樣
作者: maggie68038    時間: 2014-9-16 08:44

謝謝~~~~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)