[已解决]在vba中加IF

759857387

判断有无插入U盘，然后MsgBox "找不到指定u盘"
IF.rar (10.35 KB, 下载次数: 4)

2016-7-9 12:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-9 13:16

这样？

1. Sub test()          '没有问题
   
2. Dim fs, d
   
3. Set fs = CreateObject("Scripting.FileSystemObject").Drives
   
4.     For Each d In fs
   
5.         If d.DriveType = 1 Then
   
6.             'MsgBox d.Path
   
7.             i = i + 1
   
8.             Cells(i, 1) = d.Path
   
9.         End If
   
10.         
    
11.     Next
    
12.     If i = 0 Then MsgBox "找不到指定U盘"
    
13. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

这样？

1. Sub test()          '没有问题
   
2. Dim fs, d
   
3. Set fs = CreateObject("Scripting.FileSystemObject").Drives
   
4.     For Each d In fs
   
5.         If d.DriveType = 1 Then
   
6.             'MsgBox d.Path
   
7.             i = i + 1
   
8.             Cells(i, 1) = d.Path
   
9.         End If
   
10.         
    
11.     Next
    
12.     If i = 0 Then MsgBox "找不到指定U盘"
    
13. End Sub

复制代码