不支持宏Excel 2003

Question

我有一個問題，我無法解決此代碼在excel 2007中無法正常工作，但在2003年他們無法適應它，請幫助我嗎？

   Set h1 = ThisWorkbook.ActiveSheet
    wpath = ThisWorkbook.Path
    u = Range("A" & Rows.Count).End(xlUp).Row
        With ActiveWorkbook.Worksheets("Hoja1").Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("G2:G" & u), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("A1:P" & u)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

Answer 1

Excel 2003中不存在Worksheet.Sort屬性，因為該功能是在以后添加的。
沒有什么可以替代它。 您的代碼根本不支持Excel 2003。