学写代码时报错了，初学不懂，请指教下！！

辉太狼－2014

Sub 汇总()

Dim Wirtesht As Worksheet
Set Wirtesht = ActiveSheet

Dim Location As String, FileName As String
Location = "C:\Users\Administrator\Desktop\汇总VBA\"
FileName = Dir(Location)

Dim OpenBok As Workbook
Do While FileName <> ""
  Set OpenBok = Workbooks.Open(Location & FileName)
  With OpenBok.Sheets(1).UsedRange
    .Row(1).Copy Wirtesht.Range("A1")

  End With
  FileName = Dir

Loop

End Sub


学着写，汇总同格式表格内容，写到这里（划线部分），按案例是运行可以提取表头，到当前文件的A1这里，但是运行后出现如图报错

ynzsvt

1. Sub 汇总()
   
2. 
   
3. Dim Wirtesht As Worksheet
   
4. Set Wirtesht = ActiveSheet
   
5. 
   
6. Dim Location As String, FileName As String
   
7. Location = ThisWorkbook.Path & "" ' "C:\Users\Administrator\Desktop\汇总VBA"
   
8. FileName = Dir(Location & "*.xl*") '要打开的文件类型
   
9. 
   
10. Dim OpenBok As Workbook
    
11. Do While FileName <> ""
    
12.   Set OpenBok = Workbooks.Open(Location & FileName)
    
13.   With OpenBok.Sheets(1).UsedRange
    
14.     .Rows(1).Copy Wirtesht.Range("A1") 'Rows
    
15. 
    
16.   End With
    
17.   FileName = Dir
    
18. 
    
19. Loop
    
20. 
    
21. End Sub

复制代码

辉太狼－2014

调取的表头应该是放在当前编辑代码的文件，运行没看到表头，我看的案例，写到这里运行会把表头复制到当前文件！