EXCEL中有一些文件的名字列表，一个文件夹中有包含列表中的文件，怎样从文件夹中快速选出列表中的文件

Question

如题所述

Answer 1

1、双击我的电脑
2、选择“搜索”
3、在要搜索的文件或文件夹名里填入*.xls
4、在包含文字里面输入你所知道的包含的文字
5、选择搜索范围（文件夹名）追问

不行啊，文件夹中的文件不是excel，有好几种格式的文件，

Answer 2

选出来干什么用？追问

想把它选出来剪切到另一个文件夹中

追答

用vba，我前两天刚做了一个，你看看借鉴一下
http://zhidao.baidu.com/question/1575441826656574140
他这个是复制后改名，你的事剪切，修改一下代码应该就行

追问

大神你好！我看了下你的代码，虽然不是太懂（VBA初学），但也稍微看出点眉目，列表中的文件名是要放到你发的那个“重命名.xls”中的“原文件名”下吗？也就是从B6单元格开始吗？我觉得你的数组arr好像不是从B6开始读取的吧？不太懂，能在每个语句后加个说明就好了。还有就是我的文件不是一种格式，能只读取文件名而不用读取格式来选吗？

追答

Sub 修改()

Dim Path1$, Path2$, Filetype$, arr, Fs

Path1 = Sheet1.Range("B1") & "\" & Sheet1.Range("B3") & "\"

Path2 = Sheet1.Range("B1") & "\" & Sheet1.Range("B4") & "\"

'Filetype = Sheet1.Range("B2")

Set Fs = CreateObject("Scripting.FileSystemObject")

arr = Sheet1.Range("B2:C" & Sheet1.Range("B65536").End(xlUp).Row)

For i = 1 To UBound(arr)

If Dir(Path1 & arr(i, 1) "" Then

Fs.movefile Path1 & arr(i, 1) , Path2 & arr(i, 1)

End If

Next

End Sub

这样你试试吧，原文件名填上包括扩展名的文件全名，这样目标文件名就不用填了，反正不用改名，你试试吧，我没测试。

追问

运行程序没反应啊！

程序set后面的就看不懂了



追答

文件直接带上扩展名，B2的扩展名没用了，
就是B6直接填GD10-1.ASC,下面依次类推，C列不用填了

追问

出现问题了



追答Sub Yidong()
   Dim Path1$, Path2$, Filetype$, arr, Fs
   Path1 = Sheet1.Range("B1") & "\" & Sheet1.Range("B3") & "\"
   Path2 = Sheet1.Range("B1") & "\" & Sheet1.Range("B4") & "\"
   'Filetype = Sheet1.Range("B2")
   Set Fs = CreateObject("Scripting.FileSystemObject")
   arr = Sheet1.Range("B6:C" & Sheet1.Range("B65536").End(xlUp).Row)
   For i = 1 To UBound(arr)
   If Dir(Path1 & arr(i, 1)) <> "" Then
   Fs.movefile Path1 & arr(i, 1), Path2 & arr(i, 1)
   End If
   Next
End Sub

不好意思，没有测试，应该是B6开始的，这样应该没问题了，测试过了。

本回答被提问者采纳

Answer 3

设置超链接追问

文件夹中有400多个文件啊！EXCEL中只有200多个文件名，设置超连接不行吧，我是想把这些文件选出来，放到另一个文件夹中