HSIEN6001

¦^´_ 1# yuch8663

°Ñ¦Ò! ¶×²v.rar (20.08 KB)

¤U¸ü¦¸¼Æ: 12

2013-6-30 22:13

HSIEN6001

¦^´_ 3# GBKEE
½Ð±Ð,Ãö©ó Public ¤Î Call

Call ¼Ò²Õ¦WºÙ.µ{§Ç¦WºÙ
NOTE:¦bµ{§Ç¤¤¥i¥H©I¥s¦P¤@¼Ò²Õ¤¤ªº¥ô¦óµ{§Ç,¦ý¹ï©ó¨ä¥¦¼Ò²Õ¤¤ªºµ{§Ç¥u¯à©I¥s³]©w¬°Publicªº±M®×¤Î¼Ò²Õµ{§Ç¡C
¤W­±³o¬q»¡©ú¬O®Ñ¤W¼gªº¡A¦³ÂI§Ë¤£À´¡C

§Ú¦b°õ¦æ®É,Áö¤£¦P¼Ò²Õ,«o¥i©I¥s¤£¦P¼Ò²Õ,«o¨S³]©wPublic ªº¼Ò²Õ
½Ð°Ý³o·|¦³ °¸º¸ bugªº°ÝÃD?!

§í©Î.....§Úªº½d¨Ò,³o¼Ë¨â¦¸ call µ{§Çªº¼gªk¬O¿ùªº
¦]¬° "¦³®É" ·|¥X²{²Ä¤G¦¸©I¥s®É,¤u§@ªí¤Ï¶Âªºµe­±

¥t¥~¤@°Ý:
­Y§Q¥Î IE¤U¸üºô­¶¸ê®Æ®É,¤u§@ºÞ²z­ûªº³B²zµ{§Ç¸Ì
®É±`¦³¥¼Ãö³¬ªºiexplore.exe
³o¸Ó«ç»ò³B²z??

Public´£°Ý.rar (9.33 KB)

¤U¸ü¦¸¼Æ: 7

2013-7-1 09:03

HSIEN6001

¦^´_ 6# GBKEE

¹ï!
Ãþ¦ü³o¼ËªºVBA¶}±ÒªºIE
§Ú²q...¬O§_¨S¦³§ä¨ìtable®ÉªºOn Error Resume Next
©Ò¯d¤U¨Óªº,²Ö¿n¤Ó¦h´N¼vÅT«áÄò¤U¸ü
¥u¯à¤â°Ê¤@­Ó­Ó±j¨î "µ²§ô³B²zµ{§Ç" or ­«¶}¾÷
¦³¨S¦³µ{§Ç¥i¥HÃö³¬¨º¨Ç´Ý¯d....

1.     With CreateObject("InternetExplorer.Application")
   
2.         .Visible = False
   
3.         .navigate "http://...."
   
4.         Do Until .readyState = READYSTATE_COMPLETE
   
5.             DoEvents
   
6.         Loop
   
7.         Set A = .document.getElementsByTagName("table")
   
8.         With Workbooks.Add
   
9.             On Error Resume Next       '***¦³¨Çtable¨SRows¸ê®Æ·|²£¥Í¿ù»~ ¤£²z·|¥¦,µ{¦¡Ä~Äò¨«
   
10.                 For ii = 11 To A.Length - 1
    
11.                     For i = 0 To A(ii).Rows.Length - 1
    
12.                         k = k + 1       '
    
13.                         For j = 0 To 2
    
14.                             Cells(k + 1, j + 1) = A(ii).Rows(i).Cells(j).innerText
    
15.                         Next
    
16.                     Next
    
17.                 Next
    
18.         End With
    
19.         .Quit        'Ãö³¬ºô­¶
    
20.     End With

½Æ»s¥N½X

********************************
"¦³®É" ·|¥X²{²Ä¤G¦¸©I¥s®É,¤u§@ªí¤Ï¶Âªºµe­±.....¨º´N¤£¬O¦³¨S¦³¥[µùPublicªº°ÝÃD
§ÚÁÙ¨S§ä¨ì¬°¦ó "¦³®É" ¤u§@ªí·|¤Ï¶Âªº­ì¦]

HSIEN6001

¦^´_ 9# stillfish00


­ì¨Ó¬O¤¤Â_«á¯d¤U¨Óªº
SO...
¦pªG§ÚªºÅã¥Ü³o¼Ëiexplore.exe *32
À³¸Ó¬O§ï¬°³o¼Ë?!

1. Sub QuitIE()
   
2.   Dim oShellWindows As Object, obj As Object
   
3.   Set oShellWindows = CreateObject("Shell.Application").Windows
   
4. 
   
5.   If oShellWindows.Count > 0 Then
   
6.     For Each obj In oShellWindows
   
7.       If StrComp(Right(obj.FullName, 16), "iexplore.exe *32", vbTextCompare) = 0 Then obj.Quit
   
8.     Next
   
9.   End If
   
10. End Sub

½Æ»s¥N½X

But ­è­è´ú¸Õ...¨S¤ÏÀ³

HSIEN6001

¦^´_ 11# stillfish00
QueryTable ¦n¼Ëª¾¹D­C!  ..^_^..
¤j²¤À³¥Î´XºØ¤è¦¡±Æ°£:

(1)
Public Sub §R°£¥»¬¡­¶Ã¯¤¤©Ò¦³ªº©w¸q¦WºÙ()
For Each c In ActiveWorkbook.Names
   c.Delete
Next
End Sub
*****************
(2) ¤U¸ü¸ê®Æ to ·s¼W¬¡­¶Ã¯
*****************
(3)
·s¼W"¼È®É"¤u§@ªí
¥Î§¹Delete¸Ó¤u§@ªí
¤£¯d³s½u QueryTable
*****************
(4)
Dim QueryTable_Name As String   
.
.
.
QueryTable_Name = .Name         
.
.Names(QueryTable_Name).Delete   
---------------------
¤£ª¾¹D¬°¬Æ»ò,§Ú C:\
¦@¦³¨â­ÓProgram Files
Program Files
Program Files (x86)

1. Sub QuitIE()
   
2. Dim oShellWindows As Object, obj As Object
   
3. Set oShellWindows = CreateObject("Shell.Application").Windows
   
4.     FullName = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
   
5.    
   
6.     If oShellWindows.Count > 0 Then
   
7.         For Each obj In oShellWindows
   
8.             If StrComp(Right(obj.FullName, 12), "iexplore.exe", vbTextCompare) = 0 Then obj.Quit
   
9.         Next
   
10.     End If
    
11. End Sub

½Æ»s¥N½X

³o¼Ë¹ï¤£¹ï?!!
(¹ï¤£°_!!­Yµ{§Ç«Ü¦n¯º,§Ú¬O¯uªº¥~¦æ,¦³®ÉÀH«K®M¥Î¨Óªº)
§O¨£©Ç!!   ..^__^..

HSIEN6001

§Ñ¤F!!
(ªþ¹Ï)
¤U¸ü®É,¤u§@ªí¤Ï¶Âªº²{¶H¬O³o¼Ë

¤U¸ü (41.51 KB)

2013-7-1 15:41

¦³¨S¦³¤Hª¾¹D³o­Ó°ÝÃDªº²£¥Í­ì¦]