Question

怎样在ACCESS中获取一个文件夹中最新的文件的文件名

大家好，
我每天要从一个文件夹中找到最新的EXCEL文件，并将这个文件导入到ACCESS中，我希望这个过程能够在ACCESS 中自动化实现。那个文件夹中的EXCEL文件每天都会更新，更新的日期会显示在EXCEL文件的文件名最后，我希望在导入ACCESS时，这个日期也能够被读取并且附在ACCESS表格的最后一列。
但是我现在不知道怎样在ACCESS中用VBA程序读取这个文件的文件名（或者那个EXCEL文件的创建日期也可以），求高手帮助。。。。。

Answer 1

我曾经做过一个书目管理程序，就是将自己硬盘、光盘的书目名称做成数据库进行管理，想看什么书的时候，可以更快查找出来。
其中有引用文件名的语句，可能对你有帮助：
Dim str As String
'str用于存放文件的名称
Dim i
As Integer
l = Forms![新增书目]![导入地址] '可以用窗体输入地址，如果地址固定，也可以自己直接赋值
str = Dir(l)
'这里将字符串改为路径
Do While str <> ""

i = i + 1

文件名.Value = str
'保存文件名

书名.Value = Trim(Left(str, InStrRev(str, ".", -1) - 1)) ’去掉扩展名，就是书名

DoCmd.GoToRecord , "读取子窗体", acNewRec

str = Dir

'得到下一个文件名
Loop

以上为参考，请根据自己的文件名起名特点，自行用字符函数提取相关数据信息。