English
资源说明：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文件。
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
