1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub查看磁盘名与空间() Dim drive A衡痕贤伎s Object, fs As Object, Volume As Variant Volume=Application.InputBox("请输入磁盘名,只要字母，勿需冒号。", "磁盘名", "C", , , , , 2) If Volume=False Then Exit Sub '单击取消则退出 On Error GoTo err Set fs=CreateObject("Scripting.FileSystemObject") Set drive=fs.Getdrive(fs.GetDriveName(Volume & ":")) MsgBox "磁盘： " & UCase(Volume) & Chr(10) & "卷标名：" & drive.VolumeName & Chr(10) _ & "剩余空间：" & FormatNumber(drive.FreeSpace / 1024 / 1024, 0) & " MB"Exit Suberr:MsgBox "你输入的盘符不存在！", 64, "警告"End Sub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出磁盘名输入框，如图所示
