handsometrowa

¦^´_  handsometrowa
ºô¸ô·j´M CreateObject("InternetExplorer.Application") ¦³³\¦h¥iºCºC¤F¸Ñ
GBKEE µoªí©ó 2013-9-11 10:16

    ·PÁÂG¤jªº«ü¾É¡A
¥t¥~§Ú¦bºô¸ôª¦¤å¡Aµo²{MSDN «Ü¦hÃö©ó³o­Óª«¥óªº±Ô­z¦ü¥G¦³ÂIÃø¬d¸ß
¹ï©¤ªºªB¤Í¦³¥H¤Uªº¬ö¿ýºô­¶   

¥H¤UÂà¸ü
http://blog.csdn.net/darkread/article/details/7241098
(·PÁ¤À¨É)

§Úı±o¼gªº«Ü¸Ô²Ó¡AÁöµM¥L¤]¬O±qMSDN¤W§ì¤U¨Óªº¡A¤£¹L¹ï©ó¶}±Òºô­¶ª«¥ó¦³«Ü¸Ô²Óªº»¡©ú¡C
ª¦¤@¤U¤åÀ³¸Óª¾¹D¦Û¤v­n§ä­þ¨ÇªF¦è¡C
§Æ±æ¤j®a³£¯à¦bIEª«¥ó¤W¦h¥[±j^^

GBKEE

¦^´_ 33# handsometrowa
ºô¸ô·j´M CreateObject("InternetExplorer.Application") ¦³³\¦h¥iºCºC¤F¸Ñ

handsometrowa

¦^´_ 2# GBKEE


    ½Ð¯qG¤j

Ãö©ó³o­Óª«¥ó With CreateObject("InternetExplorer.Application")

¦³¨S¦³§ó¸Ô²Ó¤@ÂIªº»¡©ú¡A¥i¥H¾Ç²ßªº©O? §Ú¦³¤W¤º«Ø¸Ñ»¡¡A¦ü¥G¹ï³o­Óª«¥ó¨S¦³°µ¸ÑÄÀ

³o­Ó¬O¤£¬OÄÝ©óActiveXªº½dÃ¥©O@@?

GBKEE

¦^´_ 31# t8899
12:00:15 ===>­â±á12:00:15 ¶}©l§ó·s?? 15¬í§ó·s¤@¦¸??  ¹ïªºÃþ±À   #00:00:01#    1¬íÄÁ,    #00:01#  1¤ÀÄÁ
³o¨â­Ó¥¨¶°¥i§_©ñ¦b¦P¤@­Ó¬¡­¶Ã¯?(¤Ö¤@­Óexcel ,¸û¬Ù¸ê·½)     ¸Õ¸Õ¬Ý°Ú,DeeªºÀɮפ¤µ²¦X2­Óµ{§Ç

1. Option Explicit
   
2. Sub TwOSub()
   
3.     Application.OnTime Time + #12:00:01 AM#, "twosub"
   
4.     SUB_A
   
5.     SUB_B
   
6. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

Application.OnTime Time + #12:00:15 AM#, "ThisWorkbook.EX"
12:00:15 ===>­â±á12:00:15 ¶}©l§ó·s?? 15¬í§ó·s¤@¦¸??
¥i§_§ï¬° 12:00:05 ¶}©l§ó·s?15¬í§ó·s¤@¦¸? (§Y 12:00:05¡A12:00:20, 12:00:35....)

³o¨â­Ó¥¨¶°¥i§_©ñ¦b¦P¤@­Ó¬¡­¶Ã¯?(¤Ö¤@­Óexcel ,¸û¬Ù¸ê·½)

ÁôÂõøµ¡¤w§ä¨ì "HiddeX " ¸Ñ¨M (   http://dejavu.narod.ru/hiddex.html   )

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

¤£ª¾§Ú°µªº¹ï¤£¹ï??
¤T­Óexcel ¿W¥ßµøµ¡¦U¦Û¦b¶]??¥t¥~¨â­Óµøµ¡¥i§_ÁôÂÃ?

t8899

¦^´_  t8899 ½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡
GBKEE µoªí©ó 2013-9-10 15:12

ªþÀɸ̨S¦³ BOOK2 .XLS ?

GBKEE

¦^´_ 27# t8899

1. Sub zzzzz()
   
2. 'Application.Interactive = False
   
3. Application.ScreenUpdating = False
   
4. Application.EnableEvents = False
   
5. Application.DisplayStatusBar = False
   
6. ActiveSheet.DisplayPageBreaks = False
   
7. Dim sh As Worksheet
   
8. Set sh = ActiveSheet
   
9. 'timestock   ¤£­n°õ¦æ
   
10. 'º¦¶^°±    ¤£­n°õ¦æ

½Æ»s¥N½X

½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡

Dee.rar (60.17 KB)

¤U¸ü¦¸¼Æ: 11

2013-9-10 15:55

t8899

¦^´_ 2# GBKEE
Book1.rar (60.37 KB)

¤U¸ü¦¸¼Æ: 11

2013-9-9 10:51

GBKEE

¦^´_ 1# t8899
¤W¶Ç¾ã­ÓÀɮ׬ݬÝ