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

[µo°Ý] ½Ð°Ýºô§}¥i¥H¥ÎÅܼƥN´À¶Ü¡H

[µo°Ý] ½Ð°Ýºô§}¥i¥H¥ÎÅܼƥN´À¶Ü¡H

½Ð°Ýºô§}¥i¥H¥ÎÅܼƥN´À¶Ü¡H
¥i¥Hªº¸Ü¡A¤£¾å±o»yªk¸Ó¦p¦ó¼g¡C

ÁÂÁ¡ã

¦^´_ 1# cji3cj6xu6
  1. Dim ÅÜ¼Æ as string
  2. ÅÜ¼Æ = "http://forum.twbts.com/"
½Æ»s¥N½X

TOP

Dear stillfish00¤j¤j¡A

Thanks

TOP

¥H¤U¡A¶]¤F¤§«á·|µo¥Í .Refresh BackgroundQuery:=False ¿ù»~¡A¦ý­Y¬Oª½±µ±Nºô§}©ñ¤W«hok¡A½Ð°Ý­n¦p¦ó­×§ï¡A
ÁÂÁ¡ã

Dim WebAddress as string
WebAddress = "http://tw.stock.yahoo.com/q/q?s=1101"

Range("a2").Select
    'With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://tw.stock.yahoo.com/q/q?s=" & [a1] & "", Destination:=Selection) '·s¼W¬d¸ß
     With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;WebAddress", Destination:=Selection) '·s¼W¬d¸ß
     
      
         
        .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

TOP

¦^´_ 4# cji3cj6xu6
  1. Option Explicit
  2. Sub EX()
  3.     Dim WebAddress As String
  4.     WebAddress = "http://tw.stock.yahoo.com/q/q?s=1101"
  5.     Range("a2").Select
  6.      With ActiveSheet.QueryTables.Add(Connection:= _
  7.         "URL;" & WebAddress, Destination:=Selection) '·s¼W¬d¸ß
  8.         .FieldNames = True
  9.         .RowNumbers = False
  10.         .FillAdjacentFormulas = False
  11.         .PreserveFormatting = True
  12.         .RefreshOnFileOpen = False
  13.         .BackgroundQuery = True
  14.         .RefreshStyle = xlInsertDeleteCells
  15.         .SavePassword = False
  16.         .SaveData = True
  17.         .AdjustColumnWidth = True
  18.         .RefreshPeriod = 0
  19.         .WebSelectionType = xlSpecifiedTables
  20.         .WebFormatting = xlWebFormattingNone
  21.         .WebTables = "6"
  22.         .WebPreFormattedTextToColumns = True
  23.         .WebConsecutiveDelimitersAsOne = True
  24.         .WebSingleBlockTextImport = False
  25.         .WebDisableDateRecognition = False
  26.         .WebDisableRedirections = False
  27.         .Refresh BackgroundQuery:=False
  28.         .Name = .ResultRange.Cells(3, 1)
  29.     End With
  30. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥i¥H work ¤F¡AÁÂÁÂG¤j¡ã

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD