- ©«¤l
- 66
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 99
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-12
- ³Ì«áµn¿ý
- 2023-10-26
|
ºô¶§ì¨ú¸ê®ÆºÃ°Ý
¥»©«³Ì«á¥Ñ reangame ©ó 2014-5-14 23:23 ½s¿è
½Ð±Ð¦U¦ì¤j¤j¡A¤U¤èµ{¦¡½X¬O¥H¿ý»s¤è¦¡¥X¨Óªº¡A¥i¬O¸Óºô¶¦³¥i¥H¤é´Á¬d¸ß¡A§Ú¸ÕµÛ¥Î¿ý»s¤è¦¡¥h§ìµ{¦¡½X¡A¥i¬O«o§ì¤£¨ì¿ï§¹¤é´Á«á¬d¸ßªºµ{¦¡½X¡A«ç»ò¶×¤J³£¬O·í¤é¸ê®Æ¡A½Ð°Ý¦p¦ó«ü©w¤é´Á¬d¸ß«á¶×¤JExcel?- [a1].Select
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_d.php#", _
- Destination:=Range("A1"))
- .name = "BWIBBU_d"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = False
- .RefreshOnFileOpen = False
- .BackgroundQuery = True
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingAll
- .WebTables = "8"
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
½Æ»s¥N½X ¶¶«Kªþ¤W§Úªº¥b¦¨«~ÀÉ®× |
|