ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excelºô­¶¥~³¡¸ê®Æ¶×¤J¥¢±Ñ¤§¸Ñ¨M(.Refresh BackgroundQuery:=False)

[µo°Ý] Excelºô­¶¥~³¡¸ê®Æ¶×¤J¥¢±Ñ¤§¸Ñ¨M(.Refresh BackgroundQuery:=False)

³Ìªñ»Ý­n¨Ï¥ÎVBA¨Ó§ì¨ú¤@¨Çºô­¶¤Wªº¸ê®Æ¡A©Ò¥H¨Ï¥Î¨ìºô­¶¥~³¡¸ê®Æ¶×¤J¡A

·í¶}©l¿ý»s¥¨¶°¡A´Nµo²{¥X²{¤F¿ù»~¡A­«½Æ´X¦¸¥ç¬O¦p¦¹¡AÀ˵ø¤F¤@¤Uµ{¦¡½X¡A

Á`¬O¦b .Refresh BackgroundQuery:=False ³o¦æµ{¦¡½X¥X²{¿ù»~¡A·Q°Ý­n¦p¦óÃÒ¤~¥¿½T?

'***********************
' ¤U¸ü¤W¥«¿Ä¸ê¾lÃB¸ê®Æ
'***********************
Sub WebQuery_TWII_Credit(theDATE As String)
                           
    Dim theURL, saveSheetName As String
        
    saveSheetName = "download2"
   
    With Sheets(saveSheetName)
        .Visible = True
        .Select
        .Cells.Clear
    End With
   
    theURL = "http://www.tse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN_2.php?select2=MS&type=list&input_date=" & theDATE
   
    With Sheets(saveSheetName).QueryTables.Add(Connection:="URL;" & theURL, Destination:=Range("A1"))
        .Name = "Credit"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
        .Delete  '°O±o¤â°Ê¥[¤J
    End With
        
End Sub

¦^´_ 1# long8448

http://club.excelhome.net/thread-874608-1-1.html

http://club.excelhome.net/thread-917808-1-1.html

³o¨â½g¬Ý§¹À³¸Ó¦³À°§U

ºô­¶§ì¨ú¦³«Ü¦h­nª`·Nªº¦a¤è¡A¤âªk¦n¦h

¤W¥«Âdªº¸ê®Æ±`±`·|´«¤âªk¡A¦Û¤v¦h½m²ß

¥Ø«e§ï¥Îpostªº¤èªk¤ñ¸û¦h¤@¨Ç

°Ñ¦Ò¬Ý¬Ý

TOP

¦^´_ 2# joey0415

½Ð°ÝJ¤j   https://www.dailyfx.com/sentiment?ref-author=Stanley

³oºô­¶¦³¿ìªk¯}¸Ñ¶Ü? ¸Õ¹L¨S¿ìªk¶×¤J,³Â·ÐJ¤j«ü¾É

TOP

¥»©«³Ì«á¥Ñ zyzzyva ©ó 2016-8-16 22:41 ½s¿è

¦^´_ 1# long8448
¼Ó¥D¬O­n§ì¤°»ò¸ê®Æ¡H§Ú´ú¸Õ¿Ä¸ê¨é¾lÃB¥i¥H¥¿±`¶×¤J­C¡H
´ú¸Õªº¬O³o­Óºô§}¡Ghttp://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php

TOP

ÁÂÁ¤j®aªº¦^ÂСA§A­Ì´£¨Ñªº¤èªk§Ú³£¸Õ¸Õ¬Ý¡A·P®¦~

TOP

http://club.excelhome.net/thread-398816-1-1.html

ª½±µ¶i   C:\Documents and Settings\¥Î户¦W\Application Data\Microsoft\Excel 删°£¸Ì­±ªº¤å¥ó¡A¦A­«·s¥´¶}´N¥i¥H¤F¡C
shuasa

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD