- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 51# zyzzyva
§Ú·Qnªº¥X¨Óµ²ªG¬O¡G(¦p ¤U)- Sub Ex()
- Dim strURL$ '«Å§istrURL¬°ÅܼÆ
- strURL = "http://www.taifex.com.tw/chinese/3/7_12_3.asp" '©w¸qstrURLÅܼƤº®e
- [a1].CurrentRegion.ClearContents ' ²M°£¤å¦r¨S²M°£®æ¦¡(¬ü¤Æ¦nªºªí®æ)
-
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;" & strURL, Destination:=Range( _
- "$A$1"))
- .Name = "´Á³f«´¬ù"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = False
- .RefreshOnFileOpen = False
- .BackgroundQuery = False
- .RefreshStyle = xlOverwriteCells
- .AdjustColumnWidth = False
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "3" ' ²Ä 3 Ó Table
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = True
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- .Delete
- End With
- End Sub
½Æ»s¥N½X
|
|