[已解决]下标越界的问题！！！

god668

在调试时一到With Workbooks("最后一步").Sheets(1)
下一句就下标越界，是为什么呢？

Public Sub HideDone()
Dim s1 As String, i As Long, j As Long, k As Long, l As Integer
h1 = WindowFromPoint(95, 56)
j = Range(ActiveCell, Cells(65535, ActiveCell.Column)).End(xlDown).Row
k = ActiveCell.Row
If ld1 = 0 Then ld1 = k
If ld1 <= j Then
    With Workbooks("最后一步").Sheets(1)
    s1 = .Cells(ld1, ActiveCell.Column).Value
    SendMessage h1, WM_SETTEXT, 0, ByVal s1
    .Cells(ld1, ActiveCell.Column + 1).Value = ld1 + 1 - k
    End With
    wsh.SendKeys "{f3}"
    Sleep 400
    wsh.SendKeys "%{s}"
    Sleep 400
    SendMessage h2, CB_SHOWDROPDOWN, True, 0&
    SendMessage h2, CB_SETCURSEL, 1&, 0&
    'Sleep 300
    'wsh.SendKeys "{f5}"
    'Sleep 300
    'wsh.SendKeys " "
End If
ld1 = ld1 + 1
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-27 13:35

1. With Workbooks("最后一步.xls").Sheets(1)

复制代码

或者你写全。

跳转到最佳答案楼层

hwc2ycy

1.     With Workbooks(thisworkbook.name).Sheets(1)

复制代码

hwc2ycy

直接用    With thisworkbook.Sheets(1) 就行了。

hwc2ycy

WORKBOOK.NAME是以文件名为准的。

hwc2ycy

1. With Workbooks("最后一步.xls").Sheets(1)

复制代码

或者你写全。

god668

hwc2ycy 发表于 2013-3-27 13:35
或者你写全。

我之前那样在公司也可以用，
但家里电脑和别人电脑就下标越界，
是为什么？版本不一样吗

hwc2ycy

你再看看，是不是设置了错误忽略了。