¤@­Ó«Ü²Âªº°ÝÃD

vavashop

¥H¤Uµ{¦¡½X¬O¶Q¯¸¬Ý¨ìªº
¥i¥H¥Î
¦ý¬O
Range("A1") = "2011/12/20"   '¥Ü½dªº¤é´Á
­n³]©w §ìA1Äæ¦ì ªº­n«ç»ò§ï

§Ú¤£·| ½ÐÀ°§Ú¤@¤U ʨ«Ü¤j


Sub EX()
  Dim A As Date
  Dim Rep_Ym As String
  Dim Rep_Day As String
    Range("A1") = "2011/12/20"   '¥Ü½dªº¤é´Á
    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)
            '¥þ³¡¤U¸ü¤[¤@ÂI
            .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"
            '³o¥þ³¡ªº­n¥Î   .WebTables = "10"
            '¨ä¥L¶µ¥Øªº­n¥Î .WebTables = "8"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False

Range("A1") = "2011/12/20"   '¥Ü½dªº¤é´Á

vavashop

Sub ¥¨¶°9()
'
' ¥¨¶°9 ¥¨¶°
'

'
    Sheets("¤W¥«").Select
    Range("B1").Select
    Sheets("¤WÂd¿Ä¸ê¾lÃB").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("¤W¥«").Select
    Range("B1").Select
End Sub



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

³o¼Ë¥i¥H¥Î¤F

¦ý¬O ·|¥X²{...½Æ»s¸ê®Æ¬O§_­nÄÀ©ñ
½Ð°Ý¤j¤j³o­Ó­n«ç»ò¸Ñ¨M³o°ÝÃD©O

vavashop

Sub EX()
  Dim A As Date
  Dim Rep_Ym As String
  Dim Rep_Day As String
    Range("A1") = "2011/12/20"   '¥Ü½dªº¤é´Á
    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)
            '¥þ³¡¤U¸ü¤[¤@ÂI
            .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"
            '³o¥þ³¡ªº­n¥Î   .WebTables = "10"
            '¨ä¥L¶µ¥Øªº­n¥Î .WebTables = "8"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False



---------------------
½Ð°Ý¤j¤j ­nÀÉ®×­n¶K¨ì  "¤W¥«¿Ä¸ê" ³o­Ó­n«ç»ò§ï¡H

vavashop

¤j¤j§Ú¦³¥t¤@­Ó°ÝÃD ¦pªG
http://iwarrant.capital.com.tw/warrants/wCanonical.aspx

³o¤@ºô¯¸ ¥k¤WÃ䦳¤@­Ó ¨C¤Ñ³Ì·sªº ¹F¤HÄ_¨å¤é´Á §Ú¥u»Ý­n²Ä¤@­Ó ³Ì·sªº
³o¼Ëªº ºô¯¸¤S§ï«ç»ò§ì¸ê®Æ©O¡H¡H

³Ò·Ð¤j¤j¶O¯«

vavashop

·PÁ¤j¤j ¤£¥Î¨¹§Ú§ï¤F §Ú³o¼Ë°÷¥Î¤F
^^

vavashop

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


¤j¤j§Ú·Q¥Î«ü©w¤é´Á ¦ý¬O§Ú³o¼Ë¥Î¤§«á §Úªº¤U¸ü¸ê®ÆÅܦ¨¨S¦³¤é´Á¤F
¥i¥H½Ð¤j¤j¨¹§Ú¸Ñµª¤@¤U¶Ü¡H

vavashop

¤j¤j ©Ò¥H§Ú ³o¤@¬q °õ¦æ«á ¦³¥X²{¤@­ÓÀÉ®× µM«á¦A§â¥L½Æ»s¶K¤W¶Ü¡H¡H

GBKEE

¦^´_ 3# vavashop
¤WÂdªÑ²¼¿Ä¸ê¿Ä¨é¾lÃBºô­¶ªºªí®æ¸ê®Æ,µLªk¥ÎWEB¬d¸ß±o¨ì¸ê®Æ.

«ö¤U³oºô­¶¤W [¤U¸üCSVÀÉ(BIG5)]ªº«ö¶s¤U¸ü¤@¦¸, «á½Ð¦bIEªº¾úµ{¬ö¿ý¤¤¨ú±o [¤U¸ü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

½Æ»s¥N½X

vavashop

¦^´_ 2# lpk187


¤Ñªü ªGµM¬O«Ü²Âªº°ÝÃD ¡ã¡ã
·PÁ¤j¤j¦^À³¡ã¡ã

¥i¥H¦h½Ð°Ý¤@¤U ¨º¤WÂd
http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw

³o­Ó¸Ó«ç»ò°µ©O¡H¡H

lpk187

§â³o¦C§R±¼´N¥i¥H¤F
Range("A1") = "2011/12/20"   '¥Ü½dªº¤é´Á
¤W­±µ{§Ç¤w¦³«ü©w
A = Range("A1").Value