MDB转MDE自定义函数(实例演示)

通过VBA实现MDB转换为MDE，下面就是自定义的MDB转换为MDE函数

'***********************************************

'函数功能：MDB转MDE自定义函数

'函数变量：DestinationFile字符串变量,目的文件

'                      SourceFile字符串变量,源文件

'                     AccApp应用程序对象变量

'应用实例：MakeMDE "C:\a.mdb", "C:\b.mde"

'***********************************************

Public Function MakeMDE(SourceFile As String, _

                                        DestinationFile As String, _

                                        Optional AccApp As Application) As Boolean

       Set AccApp = New Access.Application

             AccApp.SysCmd 603, SourceFile, DestinationFile

       Set AccApp = Nothing

End Function

演示实例下载：点击下载此附件