ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý:¦p¦ó¤U¸üPDF? ³sµ²¦³ÂI¯S§O(§t¦³ javascriptªº<a>³sµ²)

½Ð°Ý:¦p¦ó¤U¸üPDF? ³sµ²¦³ÂI¯S§O(§t¦³ javascriptªº<a>³sµ²)

§Ú·Q­n°µ¦Û°Ê¤U¸üªººô§}¦³ÂI¯S§O(§t¦³javascriptªº<a>³sµ²)¡A¦pªþ¹Ï¡C

HTML¹Ï

test.JPG
2011-4-30 03:40

¦]¬°¨Ï¥Î¥H¤Uµ{¦¡½X¡B¥i¥H¥´¶} DOC ÀɮסA
¦ý¤£ª¾¹D¬°¤°»ò¡A¨Ã¤£¯à¶}±ÒPDFªººô­¶³sµ²¡C¦]¬°¥´¶}³sµ²«á¤~¯à¦A«ö¥kÁä¡A¥t¦s·sÀÉ¡C
½Ð°Ý¤j¤j¡A¸Ó¦p¦ó°µ¤~¦n? ÁÂÁÂ!!
  1. Sub Test()
  2.   Set IE = CreateObject("InternetExplorer.Application")
  3.   IE.Navigate ("http://doc.twse.com.tw/server-java/t57sb01?step=1&colorchg=1&co_id=3013&year=99&mtype=F&")
  4.   IE.Visible = True
  5.   searchText = "2010_3013_20100609F02.pdf"
  6.   Do While IE.ReadyState <> 4
  7.   Loop

  8.   countLinks = IE.Document.Links.Length
  9.   For i = 0 To countLinks - 1
  10.     currentText = IE.Document.Links(i).innerText
  11.      If currentText Like searchText Then
  12.      oldURL = IE.LocationURL
  13.      Debug.Print i, oldURL
  14.       IE.Document.getElementsByTagName("a").Item(i).Click
  15.      Do While oldURL = IE.LocationURL
  16.     '  javascript:readfile2("F","3013","2010_3013_20100609F02.pdf");
  17.      Loop
  18.      i = countLinks
  19.    End If
  20.   Next

  21. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD