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 strFileNam