返回列表 上一主題 發帖

如何將網站內的日期做成在excel用自動輸入

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-20 09:53 | 顯示全部帖子

如何將網站內的日期做成在excel用自動輸入

各位先進,
小弟在學vba 來控制web 查循 但出現欄位如何替代問題,請會的人幫忙
問題如下:想將這網址"URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201108/A11220110818ALLBUT0999_1.php?" _
        , Destination:=Range("A1"))
的repot後的 201108與  A11220110818ALLBUT0999_1.php?" 的20110818 做成可在excel 表格內直接輸入 不需要去網站欄改不知有何方法
收藏 分享
DREWCHEN1

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
2#
發表於 2011-8-20 22:32 | 顯示全部帖子
回復 2# oobird


    謝謝大大
^^
DREWCHEN1

TOP

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
3#
發表於 2011-8-20 22:50 | 顯示全部帖子
回復 2# oobird
大大版主,
小弟照方法改了後還是無法值行,我將整個程式貼出來看是要怎改才對
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201108/A11220110818ALLBUT0999_1.php?" _
        , Destination:=Range("A1"))
        .Name = "19"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "10"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
麻煩你了^^
DREWCHEN1

TOP

drewchen1

帖子
31 
主題
7 
精華
0 
積分
101 
點名
0  
作業系統
windowxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
高雄縣鳳山 
註冊時間
2011-2-16 
最後登錄
2017-8-8 
4#
發表於 2011-8-20 23:17 | 顯示全部帖子
回復 5# oobird


    感謝大大 ,原來是這樣做的
^^
DREWCHEN1

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題