- ©«¤l
- 2
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- pro
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-5-18
- ³Ì«áµn¿ý
- 2015-11-27
|
½Ð°Ý¦U¦ì¤j¤j,¬°¤°»ò§Ú³o¼Ë¼g¨S¦³¿ìªk§ì¨ú pchome ªÑ²¼±Æ¦æ
¦p¥H¤Uºô§}: http://pchome.megatime.com.tw/rank/sto0/ock08.html
³£·|§ì¨ìªÅ¥Õ,
Sub §ì¨C¤ëÀ禬(weburl As String)
Sheets("Temp").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & weburl, Destination:=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 = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub |
|