如何得到全部的用户表名称?

海狸先生

用name函数另外，俺没研究过xls，呵呵，有空时帮你去看看

chul72

用name函数?没听说过.帮助里没有哇!

HeyEric

用if lcase(left(obj.Name,4))<>"msys"也同样的效果，哈哈。

海狸先生

以下是引用HeyEric在2005-5-28 10:41:00的发言：



用if lcase(left(obj.Name,4))<>"msys"也同样的效果，哈哈。

简单的事情复杂化了

HeyEric

以下是引用chul72在2005-5-27 22:02:00的发言：



原来写错个字母呀.哈哈哈......

但我改变那个d:\test.xls为TEST.X或别的什么的就发生运行时错误"3027".看来TransferSpreadsheet方法只支持XLS了,能不能在完成导出后,用代码将这个文件改成.BKP名呢?导入时先将名字改会来.再导入.

另外:当我导入时有什么办法同上述方法一般读出XLS中SHEET集合的每个名字呢?

第一个问题我想你应该用到FSO，用它来修改文件名很简单的说。

第二个问题，我刚在excel区里发了一个帖子，可以参考一下：

http://www.office-cn.net/forum.php?mod=viewthread&tid=27958

海狸先生

以下是引用chul72在2005-5-28 9:29:00的发言：

用name函数?没听说过.帮助里没有哇!

说错了，是name语句

Name oldpathname As newpathname

HeyEric

以下是引用海狸先生在2005-5-28 10:43:00的发言：

简单的事情复杂化了

HOHO，就用了两个系统函数而已啦。还好还好，HOHO。

海狸先生

原来可以不用一个函数实现的，为什么要加两个函数去实现呢？

chul72

其实我的问题是:我想在ACCESS应用中导出全部的用户表数据到一个XLS中作为备份,并为它加上密码.(感谢HeyEric已帮我解决),但还要为这个应用写个还原数据的功能呀.所以我要以XLS里的SHEET集合为循环条件,将所有的SHEET写回ACCESS的表中,再写回前我还要检查下第一行的每列的值来和ACCESS中的表结构是否相同.其实我也是不知道如何处理备份和还原的问题才想出这个笨办法的,海狸先生的备份和还原如何处理呢?

海狸先生

导来导去做什么呢？能不能说说看？