返回列表 上一主題 發帖

显示E盘下所有xls文件：

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-6-28 23:59 | 只看該作者

显示E盘下所有xls文件：

Sub E盘下所有xls文件()
Set objshell = CreateObject("wscript.shell")
With objshell
.popup .exec("cmd.exe /c dir/s e:\*.xls").stdout.readall, , "显示"
End With
End Sub
收藏 分享
学习

zz5151353

帖子
206 
主題
3 
精華
0 
積分
218 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE 365 
閱讀權限
100 
性別
男 
來自
台灣台北 
註冊時間
2010-5-15 
最後登錄
2023-6-18 
2#
發表於 2010-6-29 08:27 | 只看該作者
是分享嗎 ? 很好 收藏學習 謝謝你 !!!
300 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題