CreateObject("InternetExplorer.Application") 執行完有時會無法跳出?? - Excel程式區

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

9^# 跳轉到 »

發表於 2014-1-10 18:33 | 只看該作者

日期改為1/8 會變成兩個資料框(都需要匯入)
第一個匯出會變成1/9 (當日)(今日資料晚上才會update)
第 ...
t8899 發表於 2014-1-9 14:37

請教一下
1 ==> webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php

2 ==> With CreateObject("InternetExplorer.Application")
.Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"

1,2有何不同?? 第二個可以用改用第一個方法 ??

TOP

Brandy

中學生 Rank: 2

帖子: 34
主題: 7
精華: 0
積分: 71
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2012-11-12
最後登錄: 2022-5-2

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

8^#

發表於 2014-1-9 23:33 | 只看該作者

回復 6# t8899

在with 裡面加上 .AdjustColumnWidth = False，就好了，可以自己用錄製巨集看看錄出什麼程式碼

Option Explicit
Sub TWSE_交易資訊()
Dim YMD_day As String, N As Name, webURL As String
YMD_day = InputBox("輸入民國年度 : 102/10/07", "下載特定日期的資料", Format(Date - 1, "E/MM/DD")) '民國年度 "102/10/07"
With ActiveSheet  '可指定工作表
      '當日沖銷交易標的及統計
      webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php?input_date=" & YMD_day & "&login_btn=查詢.dat"
      '鉅額交易日成交資訊
      'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=查詢.dat"
      'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=%ACd%B8%DF.dat"
      If .QueryTables.Count = 0 Then
         .QueryTables.Add Connection:=webURL, Destination:=.Range("A1")
      Else
         .QueryTables(1).Connection = webURL
      End If
      .Cells.Clear
      With .QueryTables(1)
         .AdjustColumnWidth = False
         .WebSelectionType = xlSpecifiedTables
         .WebFormatting = xlWebFormattingNone
         ' .WebTables = "data_table"  '鉅額交易日成交資訊    :資料匯入的Tables
         .WebTables = "9,11"       '當日沖銷交易標的及統計 :資料匯入的Tables
         .Refresh BackgroundQuery:=False
      End With
End With
End Sub

TOP

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

7^#

發表於 2014-1-9 19:55 | 只看該作者

回復 t8899
GBKEE 發表於 2014-1-9 15:43

再請教一下，如何不要自動調整欄寬??

TOP

t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

6^#

發表於 2014-1-9 18:36 | 只看該作者

回復 t8899
GBKEE 發表於 2014-1-9 15:43

您也把鉅額交易日成交資訊也放進來, 謝謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-1-9 15:43 | 只看該作者

回復 3# t8899

Option Explicit
Sub TWSE_交易資訊()
Dim YMD_day As String, N As Name, webURL As String
YMD_day = InputBox("輸入民國年度 : 102/10/07", "下載特定日期的資料", Format(Date - 1, "E/MM/DD")) '民國年度 "102/10/07"
With ActiveSheet '可指定工作表
'當日沖銷交易標的及統計
webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php?input_date=" & YMD_day & "&login_btn=查詢.dat"
'鉅額交易日成交資訊
'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=查詢.dat"
'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=%ACd%B8%DF.dat"
If .QueryTables.Count = 0 Then
.QueryTables.Add Connection:=webURL, Destination:=.Range("A1")
Else
.QueryTables(1).Connection = webURL
End If
.Cells.Clear
With .QueryTables(1)
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
' .WebTables = "data_table" '鉅額交易日成交資訊 :資料匯入的Tables
.WebTables = "9,11" '當日沖銷交易標的及統計 :資料匯入的Tables
.Refresh BackgroundQuery:=False
End With
End With
End Sub