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

QueryTables­«½Æ¬d¸ß¡A¦p¦óÂл\¤W¤@µ§¬d¸ß

QueryTables­«½Æ¬d¸ß¡A¦p¦óÂл\¤W¤@µ§¬d¸ß

¦U¦ì¤j¤j¦w¦w
§Ú¨Ï¥ÎQueryTable§@¬d¸ß®É¡A
¨C¦¸¬d¸ß¤@­ÓªÑ»ù¸ê®Æ
´N·|§â«e¤@­Ó¤w¸g¬d¦nªºªÑ»ù¸ê®Æ©¹®ÇÃäÀ½
¨ì³Ì«áÀx¦s®æ´N·|¥ÎÁj
§Ú§Æ±æªº¬O¨C¦¸¬d¸ß³£¨Ï¥Î¦P¤@­Ó½d³òªºÀx¦s®æ¡A
·N§Y§â¤W¤@­Ó¬d¦nªºªÑ»ù¸ê®ÆÂл\(¤£­n©¹®ÇÃäÀ½)
§Ú¸Ó«ç»ò­×§ï©O¡H
µ{¦¡½X¦p¤U
            With ActiveSheet.QueryTables.Add(Connection:="URL;https://tw.finance.yahoo.com/q/q?s=" & stockID, Destination:=Sheets(10).Range("A1"))
                .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 = "6"
                .WebPreFormattedTextToColumns = True
                .WebConsecutiveDelimitersAsOne = True
                .WebSingleBlockTextImport = False
                .WebDisableDateRecognition = False
                .WebDisableRedirections = False
                .Refresh BackgroundQuery:=False
                .Name = .ResultRange.Cells(3, 1)
            End With

·P®¦¼Ó¤W¨â¦ì°ª¤Hªº¸Ñµª¡A¤w¸g¶¶§Q¸Ñ¨M°ÝÃD¤F:)

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD