[µo°Ý] ³B²z¤@©w®É¶¡ ¤¤Â_°õ¦æ

li_hsien

³Ìªñ¦b¥ÎQueryTable ³sºô¯¸§ì¸ê®Æ

¦]¬°¦³¨Ï¥Î¨ì°j°é¨Ó³B²z

©Ò¥H°õ¦æ¤W¦³ÂI½wºC

¦³®É­Ô¦pªG¸ê®Æ¶q¤Ó¤j
Excel·|¶]¶W¤[

½Ð°Ý¦U¦ì¤j¤j

¯à§_¦b°õ¦æ¹Lµ{¤¤¥[¤J¤@­Ó¸g¹L®É¶¡ªº­pºâ

¦pªG³B²z®É¶¡¶W¹L¤@©w®É¶¡  «h¥ý¤¤Â_¨ú®ø°õ¦æ

¤£ª¾¯à§_³o¼Ë³B²z


ÁÂÁÂ

li_hsien

¦^´_ 16# GBKEE

·PÁª©¤j¨ó§U´£¨Ñ

§Ú¦A¨Ó¬ã¨s¬Ý¬Ý

TKS~

GBKEE

¦^´_ 15# li_hsien

http://forum.twbts.com/viewthread.php?tid=12029
http://forum.twbts.com/viewthread.php?tid=12322
http://forum.twbts.com/viewthread.php?tid=12044

li_hsien

¦^´_ 14# GBKEE

ª©¤j¯à§_´£¨Ñ¤å³¹³sµ²?

§Ú³ºµM¥u¯à·j´M¼ÐÃD@@

¤£¯à·j´M¥þ¤å

ÁÂÁÂ

GBKEE

¦^´_ 13# li_hsien

¤U¸ü (63 KB)

2014-9-15 17:14

¦p¹Ï·j¯Á¤@¤U,¥i¤F¸Ñ¦p¦ó¦bExcel§ì¨úºô­¶¸ê®Æ

li_hsien

¦^´_ 4# GBKEE

½Ð°Ýª©¤j

§Ú«á¨Óµo²{

ºô§}¤¤¦³­Ósessionid

·|ÅÜ°Ê= =

Åܦ¨±`±`§ì¤£¨ì¸ê®Æ

½Ð°Ý³o³¡¤À¦³¿ìªk§JªA¶Ü???

·PÁÂ!!!

GBKEE

getElementsByTagName§äºô­¶ªº¼Ðñ¦WºÙ
(¤£¹L¬Ýª©¤jªº¼gªk  ¬O¤£°Ï¤À¤j¤p¼g¶Ü?)
li_hsien µoªí©ó 2014/9/11 11:06

¬Oªº:¤£°Ï¤À¤j¤p¼gªº

li_hsien

¦^´_ 10# GBKEE

¹ï©óºô¯¸¸ê®Æªº¾Þ§@¦n­¯¥Í

·PÁª©¤j²LÅã©öÀ´ªº»¡©ú


ª©¤jªº§@ªkÀ³¸Ó¬O
¥ý¥ÎgetElementsByTagName§äºô­¶ªº¼Ðñ¦WºÙ
(¤£¹L¬Ýª©¤jªº¼gªk  ¬O¤£°Ï¤À¤j¤p¼g¶Ü?)

¦A§ì¨ú§¨¦b¼Ðñ¸Ì­±ªº¤å¦r(innertext)±Ô­z§a???


ÁÂÁª©¤j!!!

GBKEE

¦^´_ 9# li_hsien

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim URL As String, A As Object, B As String
   
4.     URL = "d:\aaa.htm"  '§A¤º³¡ºô­¶ªººô§}
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Navigate URL
   
7.         .Visible = True
   
8.         Do While .Busy Or .readyState <> 4:         Loop
   
9.         Set A = .document.getElementsByTagName("b").Item(0)
   
10.         '§A³oºô­¶¥u¬Ý¨ì¤@­Ó <B>  ªºElement¤¸¯À,©Ò¥H¬OItem(0)²Ä¤@­Ó
    
11.         B = A.innertext    '"²Ä 1 ­¶¡A¦@ 11 ­¶>>"
    
12.         B = Trim(Mid(B, InStr(B, "¦@") + 1, InStrRev(B, "­¶") - InStr(B, "¦@") - 1))
    
13.         
    
14.         'LTrim¡BRTrim »P Trim ¨ç¼Æ
    
15.         '¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim) ©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê¡C
    
16.         
    
17.         'InStr ¨ç¼Æ
    
18.         '¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
    
19.         
    
20.         'InStrRev¨ç¼Æ
    
21.         '¶Ç¦^¤@­Ó¦r¦ê¦b¥t¤@­Ó¦r¦ê¤¤¥X²{ªº¦ì¸m¡A±q¦r¦êªº¥½§Àºâ°_¡C
    
22.         
    
23.         MsgBox B
    
24.         .Quit
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

li_hsien

¦^´_ 8# GBKEE

½Ð±Ð¤@¤Uª©¤j

¤U¤è¬O§ÚºI¨ú³¡¤À¸ò­¶¼Æ¦³Ãöªº­ì©l½X

¦ý§Ú¤£ª¾¹D¸Ó¦p¦ó§ì¨úÁ`­¶¼Æ(11)

1. <SCRIPT LANGUAGE="JavaScript1.1">
   
2. <!--
   
3. function goToPage(s) {
   
4.    var thisForm = window.document.forms[0];
   
5.    var page_n = 11;
   
6.    var page_range = 100;
   
7.    var box_name = "go_to_page" + s;
   
8.    var search_link = **********;
   
9.    for (var i=0; i < thisForm.elements.length; i++) {
   
10.       var nextElement = thisForm.elements[i];
    
11.       if (nextElement.name == box_name) {
    
12.          go_to_page = nextElement.value;
    
13.       }
    
14.    }
    
15.    if (go_to_page == null || go_to_page == 0) {
    
16.       alert("±z¥²¶·¿é¤J 1 ¨ì 11 ¤§¶¡ªº¨ä¤¤¤@­Ó­¶½X¡C");
    
17.    }
    
18.    else if (1 <= go_to_page && go_to_page <= page_n) {
    
19.       var offset = (go_to_page - 1) * page_range
    
20.       location.href = search_link + offset;
    
21.    }
    
22.    else {
    
23.       alert("±z¥²¶·¿é¤J 1 ¨ì 11 ¤§¶¡ªº¨ä¤¤¤@­Ó­¶½X¡C");
    
24.    }
    
25. }
    
26. //end hiding -->
    
27. </SCRIPT>
    
28. &nbsp;<P><B>
    
29. ²Ä 1 ­¶¡A¦@ 11 ­¶<A HREF=**********>>></A>

½Æ»s¥N½X

·Ð½Ðª©¤j¸Ñ´b

ÁÂÁÂ!!!