返回列表 上一主題 發帖

一個很笨的問題

vavashop

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

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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"   '示範的日期
收藏 分享

vavashop

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

論壇贊助勳章
10#
發表於 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



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

這樣可以用了

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

TOP

vavashop

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

論壇贊助勳章
9#
發表於 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



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

TOP

vavashop

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

論壇贊助勳章
8#
發表於 2015-3-3 12:28 | 只看該作者
大大我有另一個問題 如果
http://iwarrant.capital.com.tw/warrants/wCanonical.aspx

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

勞煩大大費神

TOP

vavashop

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

論壇贊助勳章
7#
發表於 2015-3-3 12:26 | 只看該作者
感謝大大 不用邦我改了 我這樣夠用了
^^

TOP

vavashop

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

論壇贊助勳章
6#
發表於 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


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

TOP

vavashop

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

論壇贊助勳章
5#
發表於 2015-3-3 12:02 | 只看該作者
大大 所以我 這一段 執行後 有出現一個檔案 然後再把他複製貼上嗎？？

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2015-3-3 09:10 | 只看該作者
回復 3# vavashop
上櫃股票融資融券餘額網頁的表格資料,無法用WEB查詢得到資料.

按下這網頁上 [下載CSV檔(BIG5)]的按鈕下載一次, 後請在IE的歷程紀錄中取得 [下載CSV檔(BIG5)] 的網址
  1. Sub Ex()
  2.     Workbooks.Open Filename:= _
  3.         "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"
  4. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

vavashop

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

論壇贊助勳章
3#
發表於 2015-3-3 01:45 | 只看該作者
回復 2# lpk187


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

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

這個該怎麼做呢？？

TOP

lpk187

帖子
552 
主題
6 
精華
0 
積分
576 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2026-9-10 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-3-2 18:49 | 只看該作者
把這列刪掉就可以了
Range("A1") = "2011/12/20"   '示範的日期
上面程序已有指定
A = Range("A1").Value

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題