- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
8#
發表於 2014-8-13 13:02
| 只看該作者
回復 7# pupai
試試看- Option Explicit
- Sub EX()
- Dim A As Date
- Dim Rep_Ym As String
- Dim Rep_Day As String
- Range("A1") = "2011/12/20" '示範的日期
- A = Range("A1").Value
- Rep_Ym = Format(A, "yyyyMM")
- Rep_Day = Format(A, "yyyyMMDD")
- With ActiveSheet
- If .QueryTables.Count = 0 Then
- With .QueryTables.Add("URL;about:Tabs", .[B1])
- .Refresh BackgroundQuery:=False
- End With
- End If
- With .QueryTables(1)
- '全部下載久一點
- .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report" & Rep_Ym & "/A112" & Rep_Day & "_1.php"
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "10"
- '這全部的要用 .WebTables = "10"
- '其他項目的要用 .WebTables = "8"
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
- End With
- End Sub
複製代碼 |
|