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

[µo°Ý] QueryTables

[µo°Ý] QueryTables

¤p§Ì¸Õ¹Ï­É§UVBA¦bEXCEL¤º§ì¨úºô­¶ , ÊI§}请参¦Òªþ¥ó¡C
¸Ì­±ªº§Þ³N¤ÀªR¨º­Ó³¡¤Àªº¸ê®Æ¡C ¥N½X¦p¤U

  1. Private Sub CommandButton1_Click()
  2.      With ActiveSheet.Add(Connection:= _
  3.         "URL; website pls refer to attachment", _
  4.         Destination:=Range("$A$1"))
  5.         .Name = "detail-quote.aspx?symbol=00388_1"
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .BackgroundQuery = True
  12.         .RefreshStyle = xlInsertDeleteCells
  13.         .SavePassword = False
  14.         .SaveData = True
  15.         .AdjustColumnWidth = True
  16.         .RefreshPeriod = 0
  17.         .WebSelectionType = xlSpecifiedTables
  18.         .WebFormatting = xlWebFormattingNone
  19.         .WebTables = """tbTI"""
  20.         .WebPreFormattedTextToColumns = True
  21.         .WebConsecutiveDelimitersAsOne = True
  22.         .WebSingleBlockTextImport = False
  23.         .WebDisableDateRecognition = False
  24.         .WebDisableRedirections = False
  25.         .Refresh BackgroundQuery:=False
  26.     End With
  27. End Sub
½Æ»s¥N½X


¦P´¶³qªºQUERYTABLE®t¤£¦h¡A ¥i¬O®³¤£¨ì¥ô¦ó¸ê®Æ¡C­Ó¤Hı±o¬O§_¦]¬°³o­Óºô­¶¤£¯àª½±µ¥´¤@­Óºô§}´N¥i¥Hª½±µ¶i¥h¡AÁٻݭnÂIÀ»¦h¤@¦¸ªÑ²¼¥N¸¹¦ì¸mªº¶i¤J«ö¶s¤~¯à¶i¤J¡A ¤£¹L¤£ª¾¦p¦ó¸Ñ¨M³o­Ó°ÝÃD¡C ½Ð±Ð®v¥S´£¨Ñ·N¨£¡A¦hÁ¡I

website.rar (144 Bytes)

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD