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

[µo°Ý] ºô­¶¸ê®Æ¤U¸ü¦¨pdf²§±`¦aºC?

¦^´_ 10# ­ã´£³¡ªL

¶Ù~
·PÁ¦^ÂÐ!
¬Ý§¹³o¨Çµ{¦¡½X¤S¦h¾Ç¤F¤@¨ÇªF¦è :P
dim «á­±ªº$©M&¬O«ü©w«¬§Oªº·N«ä§a?

¸g¹L´ú¸Õ
¨Ï¥Îget¥u¦³²Ä¤@¦¸¦³®Ä
post«h¯à¤@ª½Àò¨ú·í«e®É¶¡
¤£¹Lget«ápost¨ÌµM¦³®Ä
¥i¬O¤£¤F¸Ñ¬°¤°»ò....?

¥t¥~¤@®É¿³°_´N¸ÕµÛ§âµ{¦¡½X²¤Æ¦p¤UXD
  1. Sub ´ú¸Õ_1()
  2. Dim QcURL$
  3. On Error GoTo 101
  4. QcURL = "http://www.post.gov.tw/post/internet/index.jsp"
  5. With CreateObject("Microsoft.XMLHTTP")
  6.      .Open "post", QcURL, False
  7.      .send
  8.      test1 = Split(Split(.responseText, "¥xÆW®É¶¡¡G</span> <span class='time'>&nbsp;")(1), "&nbsp;GMT+8:00  </span></td>")(0)
  9. End With
  10. [A65536].End(xlUp)(2) = Replace(Replace(test1, "&nbsp", ""), ";", "")
  11. 101: End Sub
½Æ»s¥N½X

TOP

¦^´_ 11# lalalada

¢°¡Ddim «á­±ªº$©M&¬O«ü©w«¬§Oªº·N«ä§a?
¡Ä¡Ä¥i¥H°Ñ¦Ò¶W¯Åª©¥Dªº»¡©ú¡Ghttp://forum.twbts.com/redirect. ... 22366&ptid=3820

¢±¡D¡eget¡f¡epost¡f¬°¦ó¦³®t¡H
¡Ä¡Ä¤£¬Oexcel¤Îvba¥¿¬ì¡A®Ú¥»¤£À´¨ä¾÷¨î¡A¬Ý¹L¶W¯Åª©¥Dªºµ{¦¡½X«D±`¹D¦a¦Ó±M·~¡A©Î³\¥i¥H´£¨Ñ±M·~ª¾ÃѤÀ¨É¡I
¡@¡@¥t¡A¦bºô§}¤W¥[¤JÅܰʰѼơA¨Ï¥Î¡eget¡f¤]¥i§ì¥X³Ì·s¼Æ¾Ú¡A¦ý¥i¯àµLªk¾A¥Î©Ò¦³ªººô§}¡A¨Ò¦p¡G
¡@¡@QcURL = "http://www.post.gov.tw/post/internet/index.jsp?" & Rnd
¡@¡@³o¤]¬Oª¾¨äµM¦Ó¤£ª¾¨ä©Ò¥HµM¡A¤j·§ie¦³¦Û°Ê®Õ¥¿ºô§}ªº­ì¦]§a¡I¡]²q¡^

¢²¡D´ú¸Õ½X¦]±q´X­Ó¤lµ{§Ç¤¤´ê¦¨¡A¤@®É±N´N¡F¸g¶Q¤âºë²«á¡A¬Ý°_¨Ó²M²n³\¦h¡I^ ^
¡@¡@¦]¬°¦³¤ÏÂШú«ü©w¦r¦ê»Ý¨D¡A¤@¯ë·|¥H¤lµ{§Ç©Îfunction¨Ó©I¥s¡A¬ù²¤¦p¤U¡G
Sub ¨ú±o«ü©w¦r¦ê()
Dim uTxt$, T1$, T2$
uTxt = "©Ò¦b¦a¡G¥xÆW¡A¤é´Á¡G102¦~5¤ë19¤é¡A¬P´Á§O¡G¬P´Á¤é¡A®É¶¡¡G12:52:24(TM)"
T1 = "¤é´Á¡G": T2 = "¡A¬P´Á"
MsgBox Get_String(uTxt, T1, T2)
T1 = "®É¶¡¡G": T2 = "(TM)"
MsgBox Get_String(uTxt, T1, T2)
End Sub

Function Get_String(xStr$, xT1$, xT2$) As String
Dim X1%, X2%
X1 = InStr(xStr, xT1)
If X1 > 0 Then X2 = InStr(X1 + Len(xT1), xStr, xT2)
If X2 = 0 Then Exit Function
Get_String = Mid(xStr, X1 + Len(xT1), X2 - X1 - Len(xT1))
End Function

«D¥¿²Îªºµ{¦¡½X¡A¬Ý¬Ý´N¦n¡I

TOP

¦^´_ 12# ­ã´£³¡ªL

®@®@¤F¸Ñ! ·PÁ§A~

¥[¤J¶Ã¼Æ¦³®Ä¬O¦]¬°?«á­±ªºªF¦è´N¬O¨Ï¥Îpost®É¥á³£¶i¥hªº°Ñ¼Æ
¬JµM¥á¤F°Ñ¼Æ
¹ï¤è¦øªA¾¹´N·|¦^À³ ©Ò¥H¥i¥H¨ú±o³Ì·s¸ê®Æ
¦]¬°¥¦¹ê»Ú¤W´N¸òpost¤@¼Ë
¤£¾A¥Îªº±¡ªp¦P²z

¬Ý¨Óget¬O¥h¨ú±o¼È¦sÀÉ(?)

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD