VBA 런타임 오류 1004 : Excel 2013에서 테이블을 만들려고 할 때 개체 _Global의 메서드 범위가 실패했습니다.

이 오류와 유사한 질문이 이전에 게시되었음을 이해하지만 표 서식 지정과 관련하여 아무것도 발견하지 않았으므로 닫지 마십시오. MS Access 2013의 VBA 코드에서 MS Access에서 Excel로 데이터를 내 보냅니다. 6 개의 쿼리가 각각 다른 워크 시트에있는 하나의 Excel 파일로 내보내집니다. 이것은 잘 작동합니다. 그런 다음 표에 모든 데이터를 포함하도록 각 시트의 서식을 지정합니다. 사용자가 파일을 저장할 경로를 선택할 수있는 양식이 있습니다. 파일을 처음 만드는 경우 제대로 작동합니다. 동일한 디렉토리에 파일을 두 번째로 생성하면 작동하지 않고 오류가 발생합니다.

런타임 오류 1004 : 개체 _Global의 메서드 범위가 실패했습니다.

파일을 삭제하고 다시 만드는 대신 파일을 덮어 쓰기 때문이라고 생각했습니다. 그래서 파일이 있는지 확인하기 위해 일부 코드를 추가하고 존재하는 경우 삭제합니다. 중단 점을 추가하고 코드의이 부분을 실행하는 동안 문서 폴더를보고있었습니다. 파일이 성공적으로 삭제 된 다음 내가 원하는대로 다시 생성되었습니다. 여전히 그 오류가 발생했습니다. 수동으로 파일을 삭제 한 다음 코드를 다시 실행했습니다. 제대로 작동했습니다.

코드를 다시 실행하기 위해이 파일을 수동으로 삭제해야하는 이유는 무엇입니까? 아니면 문제를 일으키는 다른 것이 있습니까? 전체가 게시하기에 너무 길기 때문에 내 코드의 중요한 부분은 다음과 같습니다.

'Checks if a file exists, then checks if it is open
Private Sub checkFile(path As String)

Dim openCheck As Boolean
'If file exists, make sure it isn't open. If it doesn't, create it
If Dir(path) <> "" Then
    openCheck = IsFileLocked(path)
    If openCheck = True Then
        MsgBox "Please close the file in " & path & " first and try again."
        End
    Else
        deleteFile (path)
    End If
Else

End If

End Sub

Sub deleteFile(ByVal FileToDelete As String)

    SetAttr FileToDelete, vbNormal
    Kill FileToDelete

End Sub

Private Sub dumpButton_Click()

On Error GoTo PROC_ERR

Dim path As String
Dim testBool As Boolean

path = pathLabel4.Caption
path = path & Format(Date, "yyyy-mm-dd") & ".xlsx"

checkFile (path)
dumpQueries (path)
formatFile (path)

'Error Handling
PROC_ERR:

If Err.Number = 2001 Then
    MsgBox "A file may have been sent to " & path
    Exit Sub
ElseIf Err.Number = 2501 Then
    MsgBox "A file may have been sent to " & path
    Exit Sub
ElseIf Err.Number = 3021 Then
    MsgBox "A file may have been sent to " & path
    Exit Sub
ElseIf Err.Number = 2302 Then
    MsgBox "A file may have been sent to " & path
    Exit Sub
ElseIf Err.Number = 0 Then
    MsgBox "Your file has been stored in " & pathLabel4.Caption
    Exit Sub
Else
    MsgBox Err.Number & ": " & Err.Description & vbCrLf & vbCrLf & "New Error. Please contact the IT department."
End If


Private Sub dumpQueries(path As String)

Dim obj As AccessObject, dB As Object

Set dB = Application.CurrentData
For Each obj In dB.AllQueries
    testBool = InStr(obj.name, "Sys")
    If testBool <> True Then
        If obj.name = "example1" Or obj.name = "example2" Then
                DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, obj.name, path, True, editWorksheetName(obj.name)
        End If
    End If
Next obj

End Sub


'Autofits the cells in every worksheet
Private Sub formatFile(path As String)

Dim Date1 As Date, strReportAddress As String
Dim objActiveWkb As Object, appExcel As Object

Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = False
appExcel.Application.Workbooks.Open (path)

Set objActiveWkb = appExcel.Application.ActiveWorkbook
With objActiveWkb
    Dim i As Integer
    For i = 1 To .Worksheets.count
        .Worksheets(i).Select
        .Worksheets(i).Cells.EntireColumn.AutoFit
        .Worksheets(i).ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).name = "myTable1"         
    Next
End With

appExcel.ActiveWindow.TabRatio = 0.7
objActiveWkb.Close savechanges:=True
appExcel.Application.Quit
Set objActiveWkb = Nothing: Set appExcel = Nothing

End Sub

코드 하단 근처에서 오류가 발생합니다. 라인입니다 :

.Worksheets (i) .ListObjects.Add (xlSrcRange, Range ( "A1"). CurrentRegion,, xlYes) .name = "myTable1"

내가 빠뜨린 몇 가지 기능이있을 수 있지만 제대로 작동하며 질문에 답하는 데 필요하지 않아야합니다.