如何更新TransferSpreadsheet的文件名称

lemon0809

我通过宏功能TransferSpreadsheet可以导入指定的同一excel文件的若干工作表.
但当excel文件存储路径发生了变化,需要手工逐一修改宏预先设定的文件名称.有没有好办法一次更改宏所有的文件名?

例:
1. 同一路径下保存c:\2009\01\Sales0109.mdb 和c:\2009\01\Sales0109.xls两个文件
2. 通过Sales0109.mdb宏TransferSpreadsheet设置excel文件名称 c:\2009\01\Sales0109.xls, 运行宏逐一导入工作表customer,country,sales
3. 新建文档c:\2009\02\Sales0209.mdb (拷贝c:\2009\01\Sales0109.mdb) 和c:\2009\02\Sales0209.xls
4. 为了获取新建文档c:\2009\02\Sales0209.xls的数据, 手工修改Sales0109.mdb宏TransferSpreadsheet设置excel文件名称后再运行宏导入新工作表customer,country,sales
5. 如何避免步骤4的手工修改,用VBA直接更改宏TransferSpreadsheet设置中所有的excel文件名称为指定的新文件??
请高手指点.谢谢.

Renco

1.没见附件,

2.请使用VBA直接编程,更方便,宏的代替VBA代码你可以参照宏转换VBA的菜单命令,在  主菜单==>工具===>宏   里