[發問] 2003之VBA內容於 Excel版本2010無法使用

rouber590324

DEAR ALL 大大
1.如圖一 於 2003版可正常執行,但於版本2010無法使用
   停於  Sh.Copy after:=a.Sheets(a.Sheets.Count)
1.1 請問如何處理 THANKS*10000

圖一
Sub yy()
    Dim a As Workbook, f$, fn$, k%
   Dim p$, Sh As Worksheet
   Set a = ThisWorkbook
   p = "C:\AAA\"
   f = Dir(p & "*.TXT")
   Application.ScreenUpdating = False
   Do While f <> ""
     Workbooks.Open p & f
     k = 0
     For Each Sh In Worksheets
       If Not IsEmpty(Sh.UsedRange) Then
       fn = IIf(k = 0, Replace(f, ".TXT", ""), Replace(f, ".TXT", "_") & k)
       Sh.Copy after:=a.Sheets(a.Sheets.Count)
       ActiveSheet.Name = fn
       k = k + 1
       End If
     Next
     Windows(f).Close True
     f = Dir
   Loop
   Application.ScreenUpdating = True
   MsgBox "銅面積.TXT 資料抓取至EXCEL-OK"
  Sheet1.Select
  Range("A1").Select
End Sub