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

显¥ÜE盘¤U©Ò¦³xls¤å¥ó¡G

显¥ÜE盘¤U©Ò¦³xls¤å¥ó¡G

Sub E盘¤U©Ò¦³xls¤å¥ó()
Set objshell = CreateObject("wscript.shell")
With objshell
.popup .exec("cmd.exe /c dir/s e:\*.xls").stdout.readall, , "显¥Ü"
End With
End Sub
学习

¬O¤À¨É¶Ü ? «Ü¦n ¦¬ÂÃ¾Ç²ß ÁÂÁ§A !!!
300 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD