如题所述
å¯ä»¥å©ç¨VBAå¤ææå®è·¯å¾ä¸æ¯å¦åå¨æ个æ件夹ã
å·¥å ·ï¼Office2013
æ¹æ³å¦ä¸ï¼
1.å©ç¨VBAå¤å®å½åå·¥ä½ç°¿æå¨æ件夹ä¸ï¼æ¯å¦åå¨ä¸ä¸ªâé±¼æ¨æ··çªâçæ件夹ï¼
2.å¨Excelä¸æä¸Alt+F11ï¼è¾å ¥ä»£ç å¦ä¸ï¼
3.F5æ§è¡ä»£ç ï¼å¦ææ件夹åå¨ï¼å°±æ¾ç¤ºå¦ä¸å¾ï¼
ä¸åå¨ï¼æä¼å¼¹çªæ¾ç¤ºâä¸åå¨âã
温馨提示:答案为网友推荐,仅供参考
第1个回答 2016-11-23
Sub folderexists()
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
If fso.folderexists("d:\game") Then
MsgBox "存在"
Else
MsgBox "不存在!"
End If
End Sub本回答被网友采纳
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
If fso.folderexists("d:\game") Then
MsgBox "存在"
Else
MsgBox "不存在!"
End If
End Sub本回答被网友采纳