Question

我的MS Access（ACCDB文件）已损坏。错误是通用“Microsoft Access数据库引擎无法找到对象'数据库'。我尝试搜索Google，尝试使用Stellar Phoenix软件恢复数据库，并尝试将数据库导入新数据库。已经努力恢复表格。数据是安全的，因为它存储在SharePoint中。

有没有人知道将表格从这个损坏的数据库导出到BAS文件的方法？我根本无法打开这个数据库，最近的备份是在3周前（显然我的计算机没有备份到远程服务器它本来应该是什么以及发现它的方法）。

感谢任何帮助！

Answer 1

如果将以下脚本保存到VBScript文件，例如Decompile.vbs，并将损坏的数据库的副本拖放到脚本文件中，或者只需使用消息框输入路径副本，您有可能恢复您的表格。我使用的是Windows 7 64位，但我认为MS Access的路径应该可行。

Option Explicit

Dim WSHShell
Dim fs, sPath, sPathTemp, sAccessPath, sKey


    Set fs = CreateObject("Scripting.FileSystemObject")

    If WScript.Arguments.Count > 0 Then
        sPath = WScript.Arguments.Item(0)
    Else
        sPathTemp = Left(WScript.ScriptFullname, _
            InStrRev(WScript.ScriptFullname, "\"))

        sPath = InputBox("Enter Path and Name of .mdb or accdb", "Decompile", sPathTemp)
    End If

    If sPath = "" Or fs.FileExists(sPath) = False Then
        MsgBox "Not a valid file: " & vbCrLf & sPath, 64, "Decompile" '64=vbInformation
    Else
       Set WSHShell = CreateObject("WScript.Shell")
       sKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE\"
       sAccessPath = WSHShell.RegRead(sKey)
       WSHShell.Run  Chr(34) & sAccessPath & Chr(34) & " " & Chr(34) & sPath & Chr(34) & " /decompile"
    End If

访问已损坏/尝试导出表单

1 个答案: