主题：请各位老师看一下导入数据公式能不能简化？

有近40多个文件，文件名相同（结构一致），但目录不同，若按下列语句需写40多条：
ImportDBFile("X:\房源采集软件\Data\58同城\SpiderResult.mdb",1,"fangyuan")
（在“X:\房源采集软件\Data\***\SpiderResult.mdb”中的路径仅“***”号处不同）
请教各位老师一下，看能不能简化？

“路径仅“***”号处不同”

增加一表（k）、一字符型列（p）,在p列中填上不同的路径“***”。
简化公式如下试试？

Eval("ImportDBFile(""X:\房源采集软件\Data\"+Substitute(ListFor("k","p"),"|","\SpiderResult.mdb"",1,""fangyuan"") And ImportDBFile(""X:\房源采集软件\Data\")+"\SpiderResult.mdb"",1,""fangyuan"")")

谢谢老革命！

这样导入数据就方便多了，以后增加数据仅需修改K表中相关内容即可。