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

*.exe ±ý¨ú±o¥»¨­¤§ÀɦWÀ³¦p¦ó¤U»yªk

GetbaseName¸Ì­±¬O©ñ¸ô®|...
¤p§Ì·M¬N ¤£¤F¸Ñ±z´£°Ýªº"¥H¤WÂର*.exe"...
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

¨þ¨þ¨þ~
­ì¨Óyangjie¥S¬O·Q¶¹LEXCEL VBA¦w¥þ©Ê ¶}±ÒEXCEL...
³o­Ó§Ú¤]°µ¹L ¤£¹L§Ú¬O¥ÎVBS
¨ä¤è¦¡³£¬O»P±zªº¤j¦P¤p²§~
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

1.
½Ð°Ý±zªº¥Øªº¬O¤°»ò? ­n¥Îexcel ¤S¤£Åý¤H®a¶}excel.... ¦nÁ}²`ªº°ÝÃD>"<
¦pªG±zªº¥Øªº¥u¬O­nÅýusers¨S¦³¶}±Ò¥¨¶° ´N¬Ý¤£¨ì¸ê®Æ ¨ºª½±µ¨ìexcel°Ï¯Ò¤å ´N¥i¥H§ä¨ì¬ÛÃöªº¤å³¹..
¤£¹LµL½×¬O­þ¤@ºØ¤è¦¡ ³£·|¦³º|¬}... Excel ¶i¶¥°ÏªºHUNGCHILINª©¥D ´Nµo¦n¦hÃþªº¤å³¹..

2.
±z«e­±¤£¬O´N¦³¼g¨ì Set objXLApp = CreateObject("Excel.Application") ...
­n¤Þ¥Îexcel¶i¨Ó ¤~¥i¥H¨Ï¥Îexcel¥\¯à~

ÁÙ¦³VBS¤£»Ý­n¸òµÛ§ïÀɦW³á... µ½¥Î¤@¤U¨ç¼Æ^^
Replace(Wscript.ScriptFullName, Right(Wscript.ScriptFullName, 4), ".xls")
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD