爱问知识人 爱问教育 医院库

有什么办法能把某个文件夹下面文件名全部自动输出成一个excel文件的…?

首页

有什么办法能把某个文件夹下面文件名全部自动输出成一个excel文件的…?

有什么办法能把某个文件夹下面文件名全部自动输出成一个excel文件的……

提交回答

全部答案

    2013-07-22 21:43:17
  • 进CMD环境用dir命令。例:
    dir d:\game >>d:\list.txt
    这个命令将D盘game目录下所有文件信息保存到D盘根目录下的list.txt文件中。
    之后粘贴到excel中即可。

    匿名

    2013-07-22 21:43:17

  • 2013-07-22 18:46:57
  • 插入-超级链接

    _***

    2013-07-22 18:46:57

  • 2013-07-22 08:58:28
  • VBA里面有一个File System Object,也就是文件系统对象,这个对象可以对excel以外的文件或者文件夹进行操作,通过这个对象对用循环语句对文件夹内所有的文件逐个进行修改能实现。

    刷***

    2013-07-22 08:58:28

  • 2013-07-22 08:18:20
  • 在sheet1上直接加一个按钮 打开vb编辑器 把下面的代码复制到sheet1的代码页上 Private Sub CommandButton1_Click() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("E:\data")'假设文件位置是:E:\data Set fc = f.Files For Each f1 In fc ActiveCell.Value = f1.nameActiveCell.Offset(1, 0).Activate Next End Sub

    桂***

    2013-07-22 08:18:20

  • 2013-07-21 22:34:10
  • 在sheet1上直接加一个按钮 打开vb编辑器 把下面的代码复制到sheet1的代码页上 Private Sub CommandButton1_Click() Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("E:\data")'假设文件位置是:E:\data Set fc = f.Files For Each f1 In fc ActiveCell.Value = f1.nameActiveCell.Offset(1, 0).Activate Next End Sub

    琉***

    2013-07-21 22:34:10

  • 2013-07-21 19:11:14
  • 在sheet1上直接加一个按钮 
    打开vb编辑器 
    把下面的代码复制到sheet1的代码页上 
    Private Sub CommandButton1_Click() 
    Dim fs, f, f1, fc, s 
    Set fs = CreateObject("Scripting.FileSystemObject") 
    Set f = fs.GetFolder("E:\data")'假设文件位置是:E:\data 
    Set fc = f.Files 
    For Each f1 In fc 
    ActiveCell.Value = f1.name
    ActiveCell.Offset(1, 0).Activate 
    Next 
    End Sub

    丝***

    2013-07-21 19:11:14

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):