有什么办法能把某个文件夹下面文件名全部自动输出成一个excel文件的…?
有什么办法能把某个文件夹下面文件名全部自动输出成一个excel文件的……
进CMD环境用dir命令。例: dir d:\game >>d:\list.txt 这个命令将D盘game目录下所有文件信息保存到D盘根目录下的list.txt文件中。 之后粘贴到excel中即可。
插入-超级链接
VBA里面有一个File System Object,也就是文件系统对象,这个对象可以对excel以外的文件或者文件夹进行操作,通过这个对象对用循环语句对文件夹内所有的文件逐个进行修改能实现。
在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
在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
在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
答:不知道你有没有使用过宏,如果有用过就不用看下面的说明了,如果没有用过,就请按我说的先对EXCEL进行一下设置,工具-选项-安全性-宏安全性-中-确定-确定。然后...详情>>
问:怎样用Camtasia Studio v2.0.3来制作媒体
答:这个软件有使用向导的,你新建一个文件,然后照着他的说明一步一步的走下去,就知道怎么用了,这个软件太小了,网上跟本找不到教程的,如果你确实还是不会的话,找个懂电脑...详情>>