Question

EXCEL VBA，想让一个工作薄中A列的所有名称，和另一个文件夹里的所有工作薄进行对比。

如题所示的VBA代码应该怎么写，多谢各位。

Answer 1

filename = dir("D:\实验文件夹\*.xls") ‘excel后缀需要注意版本

do while filename <>""
' filename 就是文件名

debug.print filename

filename = dir

loop

Answer 2

1、比较什么？或者说比较之后怎么办？
2、另一个文件夹和路径是什么？

追问

比较是否相同，路径就是D:\实验文件夹\所有的工作薄名称，想知道这句代码如何写，谢谢。

追答

Private Sub CommandButton1_Click()
Dim Mypath, MyFileName
Mypath = ("D:\实验文件夹\")
For i = 1 To [a1].End(xlDown).Row
MyFileName = dir(Mypath & "*.xls")
Do While MyFileName ""
If MyFileName = Cells(i, 1) Then Cells(i, 2) = "有"
MyFileName = dir
Loop
Next
End Sub