Excel VBA : <워크 시트 클래스의 Activate 속성을 가져올 수 없습니다.>

Question

xlsm 템플릿 파일을 사용자에게 다운로드 중입니다. 다운로드 후 문서가 열리면 'ThisWorkbook.Sheets ("DataSheet") 줄의 "Worksheet 클래스의 Activate 속성을 가져올 수 없습니다."오류가 발생합니다.'inconsistently '를 활성화하십시오. 내가 뭘 잘못하고 있는지 이해할 수 없다. 내 코드는

,

Sub GetData(hostName As String, id As String) 

    'Construct the Complete URL to get the saved view data 
    Dim URL As String 
    URL = hostName + "/Controller/Action?param=" + id 

    ThisWorkbook.Sheets("DataSheet").Activate 
    ThisWorkbook.Sheets("DataSheet").Cells.ClearContents 

    With ActiveSheet.QueryTables.Add(_ 
     Connection:="URL;" + URL, _ 
     Destination:=Range("a1")) _ 
     .BackgroundQuery = True 
     .TablesOnlyFromHTML = True 
     .Refresh BackgroundQuery:=False 
     .SaveData = True 
    End With 
End Sub 

어떤 아이디어가?

업데이트 : 다운로드 후 처음 열 때만이 오류가 발생합니다 (내 앱에서 매크로 다운로드 문서 - XLSM에서 사용자에게 다운로드 중임). 내가 문서 다시 열기를 폐쇄되면, 그것은 작동하고 잘 :(

Answer 1

은 다음과 같이 코드를 변경해보십시오 :

Sub GetData(hostName As String, id As String) 

    'Construct the Complete URL to get the saved view data 
    Dim URL As String 
    URL = hostName + "/Controller/Action?param=" + id 

    ThisWorkbook.Sheets("DataSheet").Cells.ClearContents ' leaves formatting 

    With Sheets("DataSheet").QueryTables.Add(_ 
     Connection:="URL;" + URL, _ 
     Destination:=Range("a1")) _ 
     .BackgroundQuery = True 
     .TablesOnlyFromHTML = True 
     .Refresh BackgroundQuery:=False 
     .SaveData = True 
    End With 
End Sub