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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-8-20 18:57 | 只看該作者

Sub Test()
URL = "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & [a1] & "/A112" & [a2] & "ALLBUT0999_1.php?"
Shell "explorer " & URL, 0
End Sub

a1儲存格放201108
a2儲存格放20110118

TOP

drewchen1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

3^#

發表於 2011-8-20 22:32 | 只看該作者

回復 2# oobird

謝謝大大
^^

DREWCHEN1

TOP

drewchen1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

4^#

發表於 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-8-20 23:11 | 只看該作者

x = [a1]
y = [a2]
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.twse.com.tw/ch/tradin ... NDEX/genpage/Report" & x & "/A112" & y & "ALLBUT0999_1.php?" _
      , Destination:=Range("b1"))
      .Name = "19"
      .FieldNames = True
後面都不變。執行情形看圖：

TOP

drewchen1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

6^#

發表於 2011-8-20 23:17 | 只看該作者

回復 5# oobird

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

DREWCHEN1

TOP

劉照雄

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: winxp
軟體版本: excelk
閱讀權限: 10
性別: 男
註冊時間: 2011-7-17
最後登錄: 2011-9-13

7^#

發表於 2011-9-1 08:42 | 只看該作者

On Error Resume Next
1: y = CLng(Application.InputBox(prompt:="輸入日期,日期格式(yyyymmdd)", Title:="輸入日期"))
x = Left(y, 6)
If y = False Then Exit Sub
If Len(y) <> 8 Or Err Then GoTo 1
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www.twse.com.tw/ch/tradin ... NDEX/genpage/Report" & x & "/A112" & y & "ALLBUT0999_1.php?" _
      , Destination:=Range("b1"))
      .Name = "19"
      .FieldNames = True

TOP