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

[µo°Ý] ¦p¦ó¨Ï¸Ó¸ê®Æ§¨µe­±ÁY¤p¦Ü(¹õ«á)¿Ã¹õ³Ì¤U¤@¦C©Î(®ø¥¢)

[µo°Ý] ¦p¦ó¨Ï¸Ó¸ê®Æ§¨µe­±ÁY¤p¦Ü(¹õ«á)¿Ã¹õ³Ì¤U¤@¦C©Î(®ø¥¢)

¥»©«³Ì«á¥Ñ yangjie ©ó 2017-12-1 01:03 ½s¿è

´N±Ð©ó¥ý¶i­Ì
¥ÎVB»s§@¶}¤@­Óexe°õ¦æÀÉ
¥i§_¦bVBµ{¦¡½X¤¤  Sub Main()..........
¤@¶}ÀY­n¨Ï¿Ã¹õ¤W¨ä¥L©Ò¦³Á`ºÞµøµ¡ÁY¤p¦Ü¿Ã¹õ³Ì¤U¤@¦C
¦]¬°­n°õ¦æexe°õ¦æÀɤ@©w­n¥ý¥´¶}¸ê®Æ§¨
µM«á¦Aexe°õ¦æÀɤWÂI¨â¤U°õ¦æexe
¦p¦ó¨Ï¸Ó¸ê®Æ§¨µe­±(ÁY¤p¦Ü¿Ã¹õ³Ì¤U¤@¦C)©Î(®ø¥¢)
¦Ó¨Ï·s°õ¦æªºform§e²{¦b³Ì¤W¼h
¦ÓVB»yªk¬°?
¹ê¦b¬O¹Á¸Õ¦h¦¸¥¢±Ñ'
¨D±ÏµLªù,´N±Ð©ó¥ý¶i­Ìª©¥D­Ì
ÁÂÁ«ü¾É

§Úı±o«äºû¤W§A¦³¨Ç»~°Ï  À³¸Ó¥Hrun ©Î call ªº§Î¦¡ °_°Êexe   
¦Ó§A²{¦bªº·Qªk¬O¥H¸}¥»§Î¦¡¨Óµo°Ê ; ­Y°í«ù­n¥H¸}¥»§Î¦¡°_°Êexe
vb ¤£¬O¤@­Ó¦nªº¸}¥»»y¨¥  §A¥i¥H¦Ò¼{¨ä¥L¤ñ¸û¤W²³æªº

TOP

¥»©«³Ì«á¥Ñ yangjie ©ó 2017-12-1 09:23 ½s¿è

¦^´_ 2# adrian_9832
¥D­n¬O­n¸õÂ÷Excel¦w¥þ©Ê¿ï¶µ
¦p¤U
Sub Main()
    Dim f1
    f1 = App.EXEName
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(f1 & ".exe")
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Dim objXLApp
    Dim objXLBook
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\M1 ¸ê®Æ®w\" & f1 & ".xls")
End Sub
VB¥i¦³ªk¤l³B¸Ì¸ê®Æ§¨µe­±©Î¨Ï©Ò¶}Excel¬°³Ì¤W¼h?
(­Y¥Î*.xlsª½±µ¶},©Ò¶}Excel¬°³Ì¤W¼h¨S°ÝÃD)
(¦¸­n§Ú¦b³B¸Ì¤@­Ó1.xls ¥iÅý¨â¤H¦P®É¶},³B²z2.xls¸ê®Æ¦Ó°{Á×°ßŪ)

TOP

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2017-12-1 10:28 ½s¿è

¨ä¹ê§Ú¤£¤ÓÀ´§A·Q°µ¤°»ò.........
¥uª¾¹D§A§Æ±æ§âwindow µe­±¤W©Ò¦³ªºµe­±/µ{¦¡/¸ê®Æ§¨ ³£¦¬°_ , ´N¦n¤ñÅã¥Ü®à­±ªº¥\¯à   
©ÎªÌ¬O §â§A¦Û¤v³]­pªºfrom §e²{ ¦b ³Ì¤Wªí¼h §Y¬O¦bwinactive  ¬O§a?

¥Hvb ªº¤è¦V §A¥i¥H§ä¤@¤Ualways on top ªº¥\¯à    always on top §Y¬O Á`¦b³Ì«e­± µL½×§A¥´¶}¤°»ò³n¥ó §A¦³always on top¨º­ÓÁ`¦b³Ì«e­± ¤£·|³Q»\¹L
§Ú¥u¥H¸}¥»¤Wªº»y¨¥¹Á¸Õ¹L ; vb ¨S¹ê»Ú¸ÕÅç¹L

TOP

¦^´_ 1# yangjie
§ä¨ì¤F,¥u­n¥[¤W
CreateObject("Shell.Application").MinimizeAll
§Y¥i
¨Ñ¤j®a°Ñ¦Ò

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD