- ©«¤l
- 60
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- w7-32
- ³nÅ骩¥»
- 2013.2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-23
- ³Ì«áµn¿ý
- 2016-6-6
|
¥u·|¿ý»s- Sub ¥¨¶°1()
- '
- Sheets(1).Select
- Sheets(1).Cells.Clear
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=" _
- , Destination:=Range("$A$1"))
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .BackgroundQuery = True
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .WebSelectionType = xlEntirePage
- .WebFormatting = xlWebFormattingNone
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
-
-
- Sheets(2).Select
- cy = Cells(2, "A")
- cy = cy & " -"
- Sheets(1).Select
- Set kx = Cells.Find(What:=cy, After:=Cells(1, 4))
- If Not kx Is Nothing Then Sheets(2).Cells(2, "B") = Cells(kx.Row, "J")
- Sheets(2).Select
- End Sub
½Æ»s¥N½X |
|