全部答案

2014-11-26 17:07:01

•   1、在那个文件夹内新建一个。TXT文件（如wenjian。txt），用记事本单开输入
  dir> 1。txt
  保存退出
  将刚才的。TXT（wenjian。txt）更名为。bat文件（wenjian。bat）
  双击wenjian。bat文件运行一次，在文件夹内多出一个1。
    txt文件
  打开1。txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！
  2、VBA（2003版）
  在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码
  Sub Test()
  Dim i As Integer
  Dim strPath As String
  strPath = ThisWorkbook。
    Path
  With Application。FileSearch
         。LookIn = strPath
         。SearchSubFolders = True
         。Filename = "*。*"
        If 。
    Execute > 0 Then
           For i = 1 To 。FoundFiles。Count
                 Range("A" & i) = 。FoundFiles(i)
           Next i
        End If
  End With
  End Sub
  回到Excel表格中，工具——宏——宏——选择Sheet1。
    Test——执行
  看看效果吧！
  。

  全部
  

  脆***

  2014-11-26 17:07:01

  138 60 评论

  分享
  提交评论