- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-6-23 07:19 ½s¿è
¦^´_ 7# HUNGCHILIN
ì¨Ó¦p¦¹¡I §Ú¤Ö¤F"¸ÑÀ£«á¤§°õ¦æ"¨BÆJ¡AÃø©Ç¨C¦¸§¡¥u¦³¸ÑÀ£¦ÓµL°õ¦æ¤§°Ê§@¡C
¸U¤ÀÁÂÁ±zªº«ü¾É¡I
ªþ¤W¦¨ªG¡I
ªÑ²¼¹Ïªí »P©ÔÅQ.vbs¡G- Dim oExcel,fn
- fn=Replace(WScript.ScriptFullName,Right(WScript.ScriptFullName,4),".xls")
- Set oExcel = CreateObject("Excel.Application")
- oExcel.Visible=True
- oExcel.Workbooks.Open fn
- Set oExcel = Nothing
- Wscript.Quit
½Æ»s¥N½X
ªÑ²¼¹Ïªí»P©ÔÅQ.rar (203.24 KB)
|
|