Visual Basic:导出Excel表格的访问权限| VBA

我的项目是45%，我需要帮助将access数据转换为excel电子表格， *是我使用Visual Studio 2013时遇到问题的代码

我要将access 2013表格导出到excel 2013

'将ACCESS数据库中的表导出到EXCEL

    Dim strExcelFile As String
    Dim strWorksheet As String
    Dim strDB As String
    Dim strTable As String
    * Dim objDB As Database

    strExcelFile = "|DataDirectory|\ExportedData.xls"
    strWorksheet = "WorkSheet1"
    strDB = "C:\My Documents\MyDatabase.mdb"
    strTable = "MyTable"

    * objDB = OpenDatabase(strDB)

    If Dir(strExcelFile) <> "" Then Kill(strExcelFile)

    objDB.Execute _
      "SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _
       "].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
    objDB.Close()
    objDB = Nothing

>

---

当为对象类型变量赋值时，应该使用Set，因为它起作用了。但我现在使用的是objDB.OpenCurrentDatabasestrDB。第二个错误是objDB.DoCmd.TransferSpreadsheetacExport，8，可打印，strExcelFile，True，strWorksheet我在acExport上有错误，

    Dim objDB As Object
    Dim strExcelFile As String
    Dim strWorksheet As String
    Dim strDB As String
    Dim strTable As String
    strExcelFile = "|DataDirectory|\ExportedData.xls"
    strWorksheet = "sheet1"
    strDB = "|DataDirectory|MyDatabase.mdb"
    strTable = "MyTable"

    objDB.OpenCurrentDatabase(strDB)
    objDB.DoCmd.TransferSpreadsheet(acExport, 8, strTable, strExcelFile, True, strWorksheet)

    objDB.CloseCurrentDatabase()
    objDB = Nothing

Set objDB = OpenDatabase(strDB)