Ошибка путаницы в VBA

Question

Я новичок в кодировании здесь. Я пытаюсь выполнить код ниже, но excel всегда выскакивает с этими двумя ошибками:

Ошибка времени выполнения 1004: Ошибка «Range 'объекта object__global».

и

"Применение - определяется или объект - определить ошибку."

Что случилось с моим кодом?

Sub CreatePivotTable() 
Dim PTCache As PivotCache 
Dim PT As PivotTable 
    Set PTCache = ActiveWorkbook.PivotCaches.Create(_ 
    SourceType:=xlDatabase, _ 
    SourceData:=Range(“A1”).CurrentRegion) 

Worksheets.Add 

Set PT = ActiveSheet.PivotTables.Add(_ 
PivotCache:=PTCache, _ 
TableDestination:=Range(“A3”)) 

With PT 
.PivotFields(“Region”).Orientation = xlPageField 
.PivotFields(“Month”).Orientation = xlColumnField 
.PivotFields(“SalesRep”).Orientation = xlRowField 
.PivotFields(“Sales”).Orientation = xlDataField 
.DisplayFieldCaptions = False 
End With 
End Sub 

Answer 1

Похоже, что это «вызывает проблемы». Заменив "сделал код работать нормально на моей машине:

'replaced “ ” with " 
Sub CreatePivotTable() 
    Dim PTCache As PivotCache 
    Dim PT As PivotTable 
     Set PTCache = ActiveWorkbook.PivotCaches.Create(_ 
     SourceType:=xlDatabase, _ 
     SourceData:=Range("A1").CurrentRegion) 

    Worksheets.Add 

    Set PT = ActiveSheet.PivotTables.Add(_ 
    PivotCache:=PTCache, _ 
    TableDestination:=Range("A3")) 

    With PT 
     .PivotFields("Region").Orientation = xlPageField 
     .PivotFields("Month").Orientation = xlColumnField 
     .PivotFields("SalesRep").Orientation = xlRowField 
     .PivotFields("Sales").Orientation = xlDataField 
     .DisplayFieldCaptions = False 
    End With 
End Sub