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

chul72

我想将全部的用户表一次导出到*.XLS中,但我如何才能得到全部的用户表名称呢?

    Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

            ' Print name of obj.

            Debug.Print obj.Name

    Next obj



我用此方法得到的表包含了系统自带隐藏的表,这不是我要的.

海狸先生

用名字判断一下不就可以了？

chul72

在我的程序里每次导入外部数据作为程序的基本数据时会自动生成一个表来存放原始数据，（后面还有更复杂的操纵等这个问题解决后再请教）而表的名字由用户＆日期自动生成．用名字判断不现实吧？如果能得到所有的用户表名，就可以一次将它们导出到一个电子表格*.ＸＬＳ中来进行备份数据了．海狸先生有什么更好的办法来进行备份和还原操作呢？

海狸先生

呵呵，系统表的名字是固定的嘛，我的意思是判断是否系统表，而不是判断是否是你的表

chul72

喔，原来如此．我用下列方法可实现一次将全部用户表导出到d:\test.xls文件中去．Private Sub cmdBackUp_Click()

    Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

        If obj.Name <> "MSysAccessObjects" And obj.Name <> "MSysAccessXML" And obj.Name <> "MSysACEs" And obj.Name <> "MSysIMEXColumns" And obj.Name <> "MSysIMEXSpecs" And obj.Name <> "MSysObjects" And obj.Name <> "MSysQueries" And obj.Name <> "MSysRelationships" Then

            DoCmd.TransferSpreadsheet acExport, 8, obj.Name, "d:\test.xls", True, ""

        End If

    Next obj

End Sub

当然在程序中可以由用户指定路径和文件名．但导出的这个文件任何人都可以打开，这样数据安全何从谈起！．现在问题来了：如何保证这个文件的数据安全，又不会造成程序导入时有麻烦？最好是用ＥＸＥＣＬ不认识它．

海狸先生

If obj.Name not like "MSys*" then  不就可以了。。。。名字改一下？不要用.xls，用.x试试

chul72

谢乐！再试下．

chul72

提示：编译错误：缺少表达式．指向like ???????

海狸先生

   Dim obj As AccessObject, dbs As Object

    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

        If Not obj.Name Like "MSys*" Then

            MsgBox obj.Name

        End If

    Next obj

chul72

原来写错个字母呀.哈哈哈......但我改变那个d:\test.xls为TEST.X或别的什么的就发生运行时错误"3027".看来TransferSpreadsheet方法只支持XLS了,能不能在完成导出后,用代码将这个文件改成.BKP名呢?导入时先将名字改会来.再导入.另外:当我导入时有什么办法同上述方法一般读出XLS中SHEET集合的每个名字呢?