一個很笨的問題

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

2^#

發表於 2015-3-3 01:45 | 顯示全部帖子

回復 2# lpk187

天阿果然是很笨的問題～～
感謝大大回應～～

可以多請問一下那上櫃
http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw

這個該怎麼做呢？？

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

3^#

發表於 2015-3-3 12:02 | 顯示全部帖子

大大所以我這一段執行後有出現一個檔案然後再把他複製貼上嗎？？

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

4^#

發表於 2015-3-3 12:20 | 顯示全部帖子

Sub Ex()

  Dim A As Date
  Dim Rep_Ym As String
  Dim Rep_Day As String
  Dim param As String

A = Range("A1").Value
Rep_Ym = Format(A, "yyyyMM")
Rep_Day = Format(A, "yyyyMMDD")
param = (y - 1911) & "/" & m & "/" & d ' 民國年/月/日

Workbooks.Open Filename:= _
      "http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal_download.php?l=zh-tw" & Rep_Ym & "s=0,asc,1"
End Sub

大大我想用指定日期但是我這樣用之後我的下載資料變成沒有日期了
可以請大大邦我解答一下嗎？

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

5^#

發表於 2015-3-3 12:26 | 顯示全部帖子

感謝大大不用邦我改了我這樣夠用了
^^

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

6^#

發表於 2015-3-3 12:28 | 顯示全部帖子

大大我有另一個問題如果
http://iwarrant.capital.com.tw/warrants/wCanonical.aspx

這一網站右上邊有一個每天最新的達人寶典日期我只需要第一個最新的
這樣的網站又改怎麼抓資料呢？？

勞煩大大費神

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

7^#

發表於 2015-3-3 12:39 | 顯示全部帖子

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

---------------------
請問大大要檔案要貼到  "上市融資" 這個要怎麼改？

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

8^#

發表於 2015-3-3 14:15 | 顯示全部帖子

Sub 巨集9()
'
' 巨集9 巨集
'

'
Sheets("上市").Select
Range("B1").Select
Sheets("上櫃融資餘額").Select
Cells.Select
Selection.ClearContents
Range("A1").Select

   Workbooks.Open Filename:= _
      "http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal_download.php?l=zh-tw"

Columns("A:T").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Range("A1").Select
ActiveSheet.Paste
Windows("margin_bal_download.php").Activate
ActiveWindow.Close
Sheets("上市").Select
Range("B1").Select
End Sub

-----------------------

這樣可以用了

但是會出現...複製資料是否要釋放
請問大大這個要怎麼解決這問題呢