- ©«¤l
- 12
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- offfice2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-8-6
- ³Ì«áµn¿ý
- 2022-11-27
|
¤p§Ì¸Õ¹ÏɧUVBA¦bEXCEL¤º§ì¨úºô¶ , ÊI§}请参¦Òªþ¥ó¡C
¸Ì±ªº§Þ³N¤ÀªR¨ºÓ³¡¤Àªº¸ê®Æ¡C
¥N½X¦p¤U
- Private Sub CommandButton1_Click()
- With ActiveSheet.Add(Connection:= _
- "URL; website pls refer to attachment", _
- Destination:=Range("$A$1"))
- .Name = "detail-quote.aspx?symbol=00388_1"
- .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 = """tbTI"""
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
- 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)
|