Question

Excel vba出现这个窗口下标越界怎么处理?怎么改?

Private Sub CommandButton1_Click()
t = Timer
Application.ScreenUpdating = False
Dim i, j, r, wk As Workbook, sh As Worksheet, rr
s = TextBox1.Text
Set sh1 = ThisWorkbook.ActiveSheet
rr = ThisWorkbook.Worksheets("sheet1").[B65536].End(xlUp).Row
If s <> "" Then
Set wk = Workbooks.Open(s)
r = wk.Sheets(1).[B65536].End(xlUp).Row
Set sh = wk.Sheets(1)
For i = 1 To rr
For j = 1 To 60
If Len(sh1.Cells(i, j)) > 0 Then sh.Cells(i + r - 1, j) = sh1.Cells(i, j)
Next j
Next i
wk.Close True
End If
t1 = Timer - t
MsgBox ("处理完成,用时" & t1 & "秒")
Application.ScreenUpdating = True
End Sub





Answer 1

可能是文件中，没有名称是sheet1的工作表吧。

追问

不对呀,另一个文件可以呀!

追答

宏代码所在文件有没有名称是：sheet1 的工作表？
你在看看可以的文件里有没有。

追问

没有了,被我改掉了,能让他自动得到当前工作表的名字吗?

追答

ThisWorkbook.ActiveSheet.Name
代替
"sheet1"

或者那行改为：
ThisWorkbook.ActiveSheet.[b65536].end(xlup).row