访问VBA打开Temp.xls而不是设置文件路径

问题描述

我在Access中有代码，可以打开一个excel模板，然后根据文件路径保存它。然后关闭模板，并在其中放入将打开最近保存的文件的代码。但是，打开的文件是temp.xlsm。 我花了数小时试图找出我要去哪里，但没有运气，除非我问Google错误的问题。 这是我的代码部分，用于打开模板，将其另存为，然后关闭模板以重新打开保存的文件。调试提供了正确的文件路径，所以我不明白为什么临时文件会一直打开。

    Dim objXLApp As Object
    Dim objXLBook As Object
    Dim objXLBookNew As Object
    Dim FilePath As String
    Dim strPath As String
    Set objXLApp = CreateObject("Excel.Application")
    
    FilePath = Forms!fm_MainMenu!fm_FilePath_Template.Form!File_Path & "\" & Forms!fm_MainMenu!fm_FilePath_Template.Form!File_Name & "." & Forms!fm_MainMenu!fm_FilePath_Template.Form!File_Type
  
Debug.Print FilePath
    
    Set objXLBook = objXLApp.Workbooks.Open(FilePath)
    objXLApp.Application.Visible = True
    
    Maxletter = DMax("LetterID","tbl_ReportNo","[JobNo]= '" & [Forms]![fm_JobHeader]![Job_No] & "'")
    Me.ReportNo = DLookup("Letter","tbl_LetterID","Letter_ID = " & Maxletter)

    objXLBook.ActiveSheet.Range("AI13") = [Forms]![fm_JobHeader]![Job_No] & DLookup("Letter","Letter_ID = " & Maxletter)
    objXLBook.ActiveSheet.Range("N15") = [Forms]![fm_JobHeader]![Client].Column(1)
    objXLBook.ActiveSheet.Range("AF14") = [Forms]![fm_JobHeader]![PONo]
    objXLBook.ActiveSheet.Range("S17") = [Forms]![fm_JobHeader]![JobDescription]
    objXLBook.ActiveSheet.Range("AT15") = Now()
    objXLBook.ActiveSheet.Range("T13") = Me.discipline.Column(1)
    objXLBook.ActiveSheet.Range("Z13") = Me.Type.Column(1)
    objXLBook.ActiveSheet.Range("AT16") = Me.RequestWONo
    objXLBook.ActiveSheet.Range("S19") = Me.SiteLocation.Column(1)


Dim path_ As String
    path_ = Forms!fm_MainMenu!fm_FilePath_Report.Form!File_Path & "\" & [Forms]![fm_JobHeader]![Job_No] & DLookup("Letter","Letter_ID = " & Maxletter)

Dim name_ As String
    name_ = [Forms]![fm_JobHeader]![Job_No] & DLookup("Letter","Letter_ID = " & Maxletter) & ".xlsm"

Debug.Print path_
Debug.Print name_

With CreateObject("Scripting.FileSystemObject")
    If Not .FolderExists(path_) Then .CreateFolder path_
End With

objXLBook.SavecopyAs FileName:=path_ & "\" & name_
objXLBook.Close False
Set objXLBook = nothing

Dim path2_ As String
    path2_ = Forms!fm_MainMenu!fm_FilePath_Report.Form!File_Path & "\" & [Forms]![fm_JobHeader]![Job_No] & DLookup("Letter","Letter_ID = " & Maxletter)

Dim name2_ As String
    name2_ = [Forms]![fm_JobHeader]![Job_No] & DLookup("Letter","Letter_ID = " & Maxletter) & ".xlsm"
   Set objXLApp = CreateObject("Excel.Application")
Set objXLBookNew = objXLApp.Workbooks.Open(path2_ & "\" & name2_)
Debug.Print path2_
Debug.Print name2_
    objXLApp.Application.Visible = True
    
DoCmd.Hourglass False ' turn off hourglass

Set objXLBookNew = nothing
Set db = nothing
Set rec = nothing

---

Debug of file_ C:\Users\OneDrive\Current Working Docs\Reports Database\ABC123AY
Debug of path_ ABC123AY.xlsm
Debug of file2_ C:\Users\OneDrive\Current Working Docs\Reports Database\ABC123AY
Debug of path2_ ABC123AY.xlsm

但是正在打开的文件是

C:\Temp\Temp.xlsm

也许我已经看了太久了，明显的表情盯着我，但我越来越沮丧。任何帮助都非常感谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）