返回列表 上一主題 發帖

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

vavashop

帖子
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



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

maggie68038

帖子
4 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
win7 
軟體版本
office 
閱讀權限
10 
註冊時間
2014-9-2 
最後登錄
2016-8-19 
3#
發表於 2014-9-16 08:44 | 只看該作者
謝謝~~~~

TOP

vavashop

帖子
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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題