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

[µo°Ý] ¦³Ãö¥¨¶°¦h­¶¦^°é°ÝÃD

[µo°Ý] ¦³Ãö¥¨¶°¦h­¶¦^°é°ÝÃD

¥»©«³Ì«á¥Ñ lovefree0707 ©ó 2019-11-16 15:01 ½s¿è

½Ð±Ð¦U¦ì¤j¤j°ª¤â¡A§Ú¦b°µ§@·~
¦³Ãö¥¨¶°°j°é°ÝÃD~§Ú§ì¤µ±m539ªº¦U´Á¶}¼ú¸ê®Æ´«ºâ¾÷²v

¥i¬O§Ú¥Î¥¨¶°§@¸ê®Æªº®É­Ô¡Aµo²{¦pªG»Ý­n¾ú¦~¸ê®Æ¥L¦³«Ü¦h­¶°Ú
§Ú¥ý¥ÎWEB§ó·s¸ê®Æ¡A¦ý«Ü¦h­¶§Ú¤£«ç»ò«ç»ò§ï¦³¤j¤j¥i¥H±Ð§Ú¶Ü??·PÁÂ~~
³o³¡¥÷§ÚÁÙ¦b¾Ç²ß½Ð¤j¤j°ª¤â«e½ú­Ì«ü¾É¤@¤U¡A·PÁÂ!!

Sub ¦h­¶¼Ö³z¸¹½X()
'
' ¦h­¶¼Ö³z¸¹½X ¥¨¶°
'
' §Ö³tÁä: Ctrl+Shift+P
'
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://lotto.bestshop.com.tw/539/list.asp

        ", Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "list"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "9"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=30
End Sub


Â^¨ú.PNG
2019-11-16 14:57

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD