如何利用VBA实现，把某个文件夹中的多个EXCEL文件名同步复制到另一张统计用的Excel表中，急啊！！！

Question

具体说就是，在A EXCEL表中设置一个更新按钮，A表中存有两列，一列为文件名，一列为更新时间。存在文件夹B，B中存放多个EXCEL表，并可能再次添加。现在的工作是，如果点击A表中的更新按钮，就比较A中的文件名列和B中的EXCEL文件名，若B中有A种没有的文件，就把B中多出来的EXCEL文件名自动复制到A表的文件名之下，同时自动更新当天日期。已达到同步。

Answer 1

给追加分哈
Private Sub CommandButton1_Click()

Dim FSO As New FileSystemObject
Dim myFolder As String
Dim Fld As Folder
Dim Fli As File
Dim i As Integer

myFolder = "C:\Documents and Settings\chaoliang_lv\Desktop\myfolder"
Set Fld = FSO.GetFolder(myFolder)

If Fld.Files.Count = Application.WorksheetFunction.CountA(Range("A:A")) - 1 Then
MsgBox "Already the lastest!"
Exit Sub
End If

Sheet1.Range("A1").CurrentRegion.Offset(1, 0).Clear
i = 2
For Each Fli In Fld.Files
Range("A" & i).Value = FSO.GetBaseName(Fli)
Range("B" & i).Value = Fli.DateLastModified
i = i + 1
Next Fli
MsgBox "Updated!"

End Sub

Answer 2

本例假设文件另存为:C:\aaa.xls,你可以自行修改
请在ThisWorkBook对象中输入如下代码:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="C:\aaa.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Answer 3

具体说就是，在A EXCEL表中设置一个更新按钮，A表中存有两列，一列为文件名，一列为更新时间。存在文件夹B，B中存放多个EXCEL表，并可能再次添加。现在的工作是，如果点击A表中的更新按钮，就比较A中的文件名列和B中的EXCEL文件名，若B中有A种没有的文件，就把B中多出来的EXCEL文件名自动复制到A表的文件名之下，同时自动更新当天日期。已达到同步

Answer 4

选一个最佳出来，我也同样想知道滴