返回列表 上一主題 發帖

[發問] CreateObject("InternetExplorer.Application") 執行完有時會無法跳出??

Brandy

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

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 »
發表於 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

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題