求大神批代码，错在哪

龙鹏-Excell

Sub CopyN()
   Dim rng As Range, sht As Worksheet, wt As Workbook, Pth As String, sh As Worksheet
   Set sh = ThisWorkbook.Worksheets(1)
   Pth = Dir(TisWorkbook.Path & "\*.xlsx")
   Do While Pth <> ""
      If Pth <> ThisWorkbook.Name Then
   Set wt = Workbooks.Open(TisWorkbook.Path & "\" & Pth)
   For Each sht In wt.Worksheets
       If sht.Name <> "月数据" Then
          sht.Range(C9).Resize(10, 24).Copy ThisWorkbook.Sheets(1)
       End If
   Next sht
       End If
   Loop
End Sub

2489586288

复制的那一句代码，复制到哪里要具体到左上角单元格

龙鹏-Excell

2489586288 发表于 2017-11-24 13:37
复制的那一句代码，复制到哪里要具体到左上角单元格

Dir(TisWorkbook.Path & "\*.xlsx") --------------弄了半天，这里头ThisWorkbook,里少了一个字母，晕