麻辣家族討論版版 - Powered by Discuz! Board

標題: 一個很笨的問題 [打印本頁]

作者: vavashop 時間: 2015-3-2 17:29 標題: 一個很笨的問題

以下程式碼是貴站看到的
可以用
但是
Range("A1") = "2011/12/20" '示範的日期
要設定抓A1欄位的要怎麼改

我不會請幫我一下囧很大

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

Range("A1") = "2011/12/20" '示範的日期

作者: lpk187 時間: 2015-3-2 18:49

把這列刪掉就可以了
Range("A1") = "2011/12/20" '示範的日期
上面程序已有指定
A = Range("A1").Value

作者: vavashop 時間: 2015-3-3 01:45

回復 2# lpk187

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

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

這個該怎麼做呢？？

作者: GBKEE 時間: 2015-3-3 09:10

回復 3# vavashop
上櫃股票融資融券餘額網頁的表格資料,無法用WEB查詢得到資料.

按下這網頁上 [下載CSV檔(BIG5)]的按鈕下載一次, 後請在IE的歷程紀錄中取得 [下載CSV檔(BIG5)] 的網址

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

複製代碼

作者: vavashop 時間: 2015-3-3 12:02

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

作者: vavashop 時間: 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

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

作者: vavashop 時間: 2015-3-3 12:26

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

作者: vavashop 時間: 2015-3-3 12:28

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

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

勞煩大大費神

作者: vavashop 時間: 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

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

作者: vavashop 時間: 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

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

這樣可以用了

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)