½Ð°Ý¦p¦ó§ì¨újavascriptªº*.csvÀɮסH
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-6-7
- ³Ì«áµn¿ý
- 2014-1-25
|
½Ð°Ý¦p¦ó§ì¨újavascriptªº*.csvÀɮסH
·Q½Ð±Ð¤@¤U¡A§Ún¥Î§å¦¸§ì¨úºô¶¤¤ªº*csvÀÉ¡AµM«á§â¸Ì±ªº¸ê®Æ©ñ¤Jexcelªºªí®æ¤¤¡A¦ýºô¶¤¤ªºÀɮ׳sµ²¬O¥ÎjavascriptÂð_¨Ó¡A®×¨Ò¦p¤U¡G
http://prtr.epa.gov.tw/resultEMS.aspx?emsno=A36A0770&tab=Panel5
§Ú¥´ºâ¦s©ñªºexcelÀɤw¸g¦³ºÞ¨î½s¸¹¦Cªí¡AµM«á´N®Ú¾Ú³oÓ¦Cªí¥h§ì¨ú»Ýnªº¸ê®Æ¡A¤£¹L¦b§ì*csv³oÓ¦a¤è´N¥d¦í¤F¡C
ÁÂÁÂ
|
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# torrent
¨t²Î¦£¸L¤¤¡A½Ðµy«á¦A¦¸¬d¸ß¡C
¨t²ÎÃa¤F¶Ü¡A¤â°Ê³£¤£¯à¤U¸ü¡C¡C¡C |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-6-7
- ³Ì«áµn¿ý
- 2014-1-25
|
¦n¹³¬OC¡A§Ú«e´X¤Ñ¸ÕÁÙ¥¿±`¡C |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-6-7
- ³Ì«áµn¿ý
- 2014-1-25
|
¤Ó·PÁ¤F¡I
§Úµo²{¦³¨Çªí®æ¬O¦h©ó¤@µ§¸ê®Æªº¡A©Ò¥H¤@ÓºÞ¨î½s¸¹ªº¸ê®Æ¦³¥i¯à·|¦³¤@µ§¡B¨âµ§¬Æ¦Ü10µ§¡A¨Ò¦p³o¸Ì¡G
http://prtr.epa.gov.tw/resultEMS.aspx?emsno=E4901607&tab=Panel5
§Úª¦¤F¤@¤U¤å¨Ãgoogle¡A¥»¨Ó·Q¥ÎResultRange.Rows.Count³oÓ«ü¥O¨Óºâtableªº¦C¼Æ«á¡A¥ý¥HRange().EntireRow.insert´¡¤J©Ò»Ýnªº¦C¼Æ¡AµM«á¦A¥HResultRange.Rows(i)¥[¤J¼Æ¾Ú¡A¦ý«ç»ò¸Õ³£¬OªÅ¥Õ¡A¤£ª¾¹D¤j¤j¦³¨S¦³¦nªº¿ìªk¡H
ÁÂÁÂ |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-6-7
- ³Ì«áµn¿ý
- 2014-1-25
|
¤Ó·P¿E¤F¡A§Ú³o´X¤Ñ×¥¿¤F¤@¨Ç¸Ì±ªºµ{¦¡½X¡AÅý¥¦¤]¥i¥H§ì§Oªº¸ê·½¡C«D±`·PÁ¡I
¶¶«K°Ý¤@¤U¡A³o¸Ì¤£§ìcsv¦Ó¬O§ìºô¶ªºtable¡A¬O¦]¬°csv¤¤¤å¶i¨Ó¬O¶Ã½X¦Ó¤SµL¸Ñªºì¦]¶Ü¡H |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-6-7
- ³Ì«áµn¿ý
- 2014-1-25
|
¤£¦n·N«ä¡A§Ú¬O¦]¬°«á¨Ón¨ìÀô«O¸p¥t¤@Óopendataºô¯¸§ìcsvªº®ÉÔµo²{§ì¶i¤u§@ªí³£·|Åܦ¨¶Ã½X¡A©Ò¥H¤~Áp·Q¨ì¡C
http://opendata.epa.gov.tw/Data/Contents/EMS/
³oÓºô¯¸©M¤§«e¨ºÓ²Ä¤@¼Óªººô¯¸À³¸Ó¬O³qªº¡A¦ý³o¸Ìcsv´Nª½±µ´£¨Ñ©Ò¦³³æ¦ìªººÞ¨î½s¸¹¡A¦ý¤@¦¸´£¨Ñ1000µ§¡A©Ò¥HÁ`¦@7¸U¦hµ§n¤U¸ü71¦¸csvÀɮסC
ÁöµM§Ú¥u¬On³Ì«nªººÞ¨î½s¸¹¡A¦ý¨ä¥¦³£¶Ã½XÁÙ¬Oı±o«Ü©Ç¡A¥H¤U¬O§Úªºcode¡A§ÚÁÙ¬Oªì¾ÇªÌ¡A¥Î³Ì²³æªºdo/loop¨Ó³B²z°j°é¡A¶]¨ì¤@¥b´N¥d¦í¤F¡A¤£ª¾¹D¥X¤F¤°»ò¨Æ±¡¡A¦hÁ¡I- Sub csv()
- Dim i As Integer, k As Integer, emsUrl As String
-
- Set i = 0
-
- Set k = 1000
-
- emsUrl = "http://opendata.epa.gov.tw/ws/Data/EMS/?$orderby=RegistrationNo&$skip=" & i & "&$top=" & k & "&format=csv"
-
- With ActiveSheet.QueryTables.Add(Connection:="URL;" & emsUrl, Destination:=Range("A2"))
-
- .BackgroundQuery = True
- .RefreshStyle = xlOverwriteCells
- .RefreshPeriod = 0
- .AdjustColumnWidth = False
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
-
- End With
-
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-6-7
- ³Ì«áµn¿ý
- 2014-1-25
|
©êºp¡Aèè¶K¿ùcode¤F¡A¦ý¤w¸g¤£¯à½s¿è¡G- Sub csv()
- Dim i As Integer, k As Integer, emsUrl As String, Rng As Range
-
- i = 1
-
- k = 1000
- Do Until k = 71000
- Set Rng = Sheets("Sheet1").Range("A" & i & "")
- emsUrl = "http://opendata.epa.gov.tw/ws/Data/EMS/?$orderby=RegistrationNo&$skip=" & i & "&$top=" & k & "&format=csv"
-
- With ActiveSheet.QueryTables.Add(Connection:="URL;" & emsUrl, Destination:=Rng)
-
- .BackgroundQuery = True
- .RefreshStyle = xlOverwriteCells
- .RefreshPeriod = 0
- .AdjustColumnWidth = False
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
-
- End With
-
- i = i + 1000
- k = k + 1000
- Loop
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|