运行宏时提示:执行阶段错误"9":阵列索引超出范围，应如何解决？

305117

每天需要将TXT档导入Excel，我就录制了一个宏，宏的作业步骤(鼠标位于A1)：删除A列与B列-->删除第1行、第2行、第3行、第4行、第6行-->全选(表格左上角，行与列的交叉处)-->排序-->选择我有标题栏-->依据A1内容(Delivery)排序-->全选(表格左上角，行与列的交叉处)-->双击A列，把所有列宽放到适中-->完毕。
在运行宏时提示:执行阶段错误"9":阵列索引超出范围，我是VBA的初学者，请大家帮忙指点，谢谢!!~~

宏的代码:
Sub ZQWM103()
'
' ZQWM103 巨集
' ZQWM103後臺Run資料錄入Excel整理
'

'
    Columns("A:B").Select
    Selection.Delete Shift:=xlToLeft
    Range("6:6,1:4").Select
    Range("A4").Activate
    Selection.Delete Shift:=xlUp
    Cells.Select
    ActiveWorkbook.Worksheets("0001").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("0001").Sort.SortFields.Add Key:=Range("A2:A55"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("0001").Sort
        SetRange Range("A1:AZ55")
        Header = xlYes
        MatchCase = False
        Orientation = xlTopToBottom
        SortMethod = xlPinYin
        Apply
    End With
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select
End Sub


[ 本帖最后由 305117 于 2010-12-19 21:04 编辑 ]

cflood

上传excel附件，有0001这个工作表吗？

305117

附件已经上传，请帮忙指点，谢谢!!~~

cflood

没发现问题。

305117

那怎么运行时提示：下标越界（错误 9）

cflood

哪个附件？0001还是003？

305117

003。在003里执行这个ZQWM103宏，提示的错误。

能不能将("0001")中的0001换成自动的名称？代码是什么？

[ 本帖最后由 305117 于 2010-5-5 22:02 编辑 ]

cflood

试试
Activesheets.Sort.SortFields.Clear

305117

测试结果：不能使用用。您再帮忙想想，谢谢!！

305117

找到了，我使用了：activeworkbook.activesheet