运行vba从HTA排序excel

如何使用HTA中excel Marco recorder记录的以下代码

Sub Macro1()
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:= _
        Range("M2:M9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:= _
        Range("B2:B9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:M9")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

我可以定义范围、图纸名称等。。但无法设置要排序的属性：

谢谢，

---

Anand

你尝试了什么，发生了什么？添加当前的vbscript是否有用？javascript？编码，并描述您遇到的错误。首先,，如果不在HTA脚本代码中定义它们，或者不使用它们的实际值替换它们（您可以通过Excel VB编辑器对象浏览器找到），则无法使用Excel特定的常量（如xlYes）。错误表示无效的属性分配或无效的数据使用断点，并查找发生错误的行。我想我只需要知道这些是如何将行ActiveWorkbook.WorksheetsSheet1.Sort.SortFields.Add键=\uRangeM2:M9，SortOn:=xlSortOnValues，Order:=xlAscending，DataOption:=\uxlSortNormal放入HTAFixed。。设置objRange1=objExcel.RangeM1设置objRange2=objExcel.RangeA1 objRange.Sort objRange1，xlassensed，objRange2，xlassensed，，xlYes

Set objRange1 = objExcel.Range("M1") Set objRange2 = objExcel.Range("A1") objRange.Sort objRange1, xlAscending, objRange2, , xlAscending, , , xlYes