不支持宏excel 2003

我有一個問題我不能解決這個代碼在Excel 2007中工作正常，但在2003年他們不能適應它請幫助我嗎？不支持宏excel 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

來源

2014-01-10 ReDStOrM

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

來源

2014-01-10 21:52:24 GSerg

0123並澄清，在2003年，您無法對整個工作表進行排序，但可以對範圍進行排序。請參閱[文檔]（http://msdn.microsoft.com/en-us/library/office/aa213557（v = office.11）.aspx） – guitarthrower

不支持宏excel 2003

回答

相關問題