매크로 코드 문의드립니다 (파워쿼리 편집기 실행)

2016버전이고 빨강색 부분에서 개속 에러가 납니다 이유가 뭘까요?

Sub 자동_파워쿼리_매크로()

Dim 폴더경로 As String

Dim 파일명 As String

Dim 엑셀파일 As Workbook

Dim 워크시트 As Worksheet

Dim 쿼리테이블 As QueryTable

Dim 쿼리편집기 As Object

' 폴더 경로 설정

폴더경로 = "C:\Users\Administrator\Desktop\중복값삭제전파일\"

' 폴더 내의 모든 파일에 대해 반복

파일명 = Dir(폴더경로 & "*.xlsx")

Do While 파일명 <> ""

' 엑셀 파일 열기

Set 엑셀파일 = Workbooks.Open(폴더경로 & 파일명)

' ART -A - PT 실행

' TODO: ART -A - PT 실행하는 코드를 추가하세요.

' 워크시트 선택

Set 워크시트 = 엑셀파일.Sheets(1)

' 파워 쿼리 테이블 찾기

For Each 쿼리테이블 In 워크시트.QueryTables

If 쿼리테이블.Name Like "Table_Query_from_*" Then

Exit For

End If

Next 쿼리테이블

' 고급 편집기 열기

Set 쿼리편집기 = 쿼리테이블.Workbook.Queries(쿼리테이블.Name).Formula

쿼리편집기.Show

' 코드를 붙여넣고 닫기 및 로드

쿼리편집기.CodeModule.AddFromString "let" & vbCrLf & _

" 원본 = Excel.CurrentWorkbook(){[Name=""표1""]}[Content]," & vbCrLf & _

" #""제거된 중복 항목 수"" = Table.Distinct(원본, {""출원번호""})" & vbCrLf & _

"in" & vbCrLf & _

" #""제거된 중복 항목 수"""

쿼리편집기.CodeModule.Window.Close

' 쿼리 편집기가 닫힐 때까지 대기

Do Until 쿼리편집기.CodeModule.Window.Visible = False

DoEvents

Loop

' 엑셀 파일 저장

엑셀파일.Save

' 엑셀 파일 닫기

엑셀파일.Close

' 다음 파일로 이동

파일명 = Dir

Loop

' 메시지 출력

MsgBox "작업이 완료되었습니다."

End Sub