Excel VBA 此事件工作表

Question

我确信这真的很简单，但我找不到任何相关信息。

我有一个 Excel 宏，其中包含以下内容:

    ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Data21 Oct 12 11-05").Sort.SortFields.Add Key _
    :=Range("W1:W23"), SortOn:=xlSortOnValues, Order:=xlDescending, _
    DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05").Sort
    .SetRange Range("A1:BZ23")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

我想做的是将其设为全局宏，但文件名硬编码在宏中。如何更改代码以使其引用“此”当前打开的文件？

Answer 1

好的，我发现您需要将其更改为:

ActiveWorkbook.Worksheets("Data 21 Oct 12 11-05").Sort.

至:

ActiveWorkbook.ActiveSheet.Sort

归功于this SO item on creating a button in Excel