Object Required 424

I am getting Run-time error on this line;

If file <> "" Then
Set objWkb = objApp.Workbooks.Open(DL & file) < - Here
Else
Set objWkb = objApp.Workbooks.Open(DL & "Audit2.xlsm") < - Here
End If

Either line that is used. I checked the location, filename, and extension. All are ok.

It used to work.

Code Snippet:

      
        
          1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

        
        
          Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rs2 As Recordset
    Dim ssql As String, xlFile As String
    
    Dim objApp As Object, objWkb As Object, objSht As Object
    Dim DL As String, strFilter As String
    
    Dim LineNumberCount As Integer
    Dim StartSearch, SubLines As Integer
    Dim x, y As Integer
    Dim BlBorder, IBorder, ReviewDetail As Integer
    Dim file As String
    
    ReviewDetail = Forms!frmCodersReviews![frmQuarterlyReviews_subform].Form!ReviewNumber
    
    Select Case ReviewDetail
        Case 1
            TabNumber = 3
        Case 2
            TabNumber = 5
        Case 3
            TabNumber = 7
        Case 4
            TabNumber = 9
    End Select
    
    Set rs2 = CurrentDb.OpenRecordset("qryExportToExcel")
    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rs = db.OpenRecordset("ExportToExcel")
    
    Set objApp = CreateObject("Excel.Application")
    
    'xlApp.Workbooks.Add
    FirstName = Forms![frmCodersReviews]![FirstName]
    LastName = Forms![frmCodersReviews]![LastName]
    CoderName = FirstName & " " & LastName
    YearDone = DLookup("[DateofReview]", "[tblQuarterlyReviews]", Forms![frmCodersReviews]![frmLineNumbers_subform]![QuarterlyReviewID])
    Year1 = Year(YearDone)
    tempFileName = CoderName & " " & Year1
    
    DL = Forms![frmCodersReviews]![cboCurrentDirectoryLocation]
    
    file = Dir(DL & tempFileName & ".xlsm", vbNormal)
    
    'Check if Excel file is already open__________________________________________________________________________________________
    On Error Resume Next
    objApp.Quit
        
        If file <> "" Then
           Set objWkb = objApp.Workbooks.Open(DL & file)
         Else
           Set objWkb = objApp.Workbooks.Open(DL & "Audit2.xlsm")
        End If

        
      

Toggle Highlighting

Open in New Window

Select All

Solution: Object Required 424

PAQed with points refunded (250)

Computer101
EE Admin