在xp里面可以用dir /b>c:\dir.xls可以用dir显示结果输出到一个文件,而在win7下我用同样的方法输出的xlsx文件却始终打不开,有什么别的方法吗?
两位老师的答案都很好,很想把分都给你们,可是百度只能让我给一个人,我就把分给输出为dir.csv的吧,因为我觉得这种方法不用去复制粘贴了,可以直接用,只是不知道csv文件是一种什么文件呢?以前从来没有看到过,更没有用过。
总之,谢谢两位的回答!
å¯ä»¥å¨Excelè¡¨æ ¼ä¸ç¨ä¸é¢çVBAç¨åºææ件åè¾åºå°è¡¨æ ¼ï¼
Sub XWJM() 'åæ件åDim f$
Dim n&
Mypath = ThisWorkbook.Path & "\"
f = Dir(Mypath & "*.*")
Do While f > " "
n = n + 1
Cells(n, 1) = f
f = Dir
Loop
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-06-04
可以试下用 csv 做扩展名,一般 csv 也是用 excel 来打开的。
dir /b > c:\dir.csv本回答被提问者采纳第2个回答 2013-06-04
命令
dir /a >>c:\a.txt
c:\a.txt
然后把内容复制到Excel中就行了追问
dir /a >>c:\a.txt
c:\a.txt
然后把内容复制到Excel中就行了追问
你的答案也可以实现,谢谢你!