在Excel中，有一个应用VBA的实例，其功能为点击按钮即可打印出E盘的目录

excel中应用vba的实例(点击一个按钮就将e盘目录打印出来) 具体代码： Private Sub CommandButton1_Click() Dim i%, strFileName$, strDirectory$ i = 3 '从第3行开始 strDirectory = "E:\" strFileName = Dir(strDirectory, vbDirectory) Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then If (GetAttr(strDirectory & strFileName) And vbDirectory) = vbDirectory Then Range("A" & i).Select i = i + 1 ActiveCell.FormulaR1C1 = strFileName End If End If strFileName = Dir Loop End Sub 打开该excel文件时可能会提示是否启用宏，点击启用，进去后点击里面的按钮开始执行上面代码。 有些机器可能需要降低安全性，方法： 工具 - 安全性 - 选择“低” - 确定，然后重新打开该excel文件。