- ©«¤l
- 112
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 136
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- excel
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-12
- ³Ì«áµn¿ý
- 2022-11-29
|
¥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 |
|