VBA在程序中溢出，求助！

Question

    本人因工作问题，需要将EXCEL多行3列的表格内容导出，要求为：以某列（例如：标题列）命名为文件名，每行分别导出为一个WORD的文件。     经在网上搜索，以下程序在EXCEL中尝试以下程序，湿示结果为溢出，溢出的语句为For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row,本人在网上百度过，能理解到此行程序的意思，但不太会改。求大师帮忙。
Sub 拆分()
Dim i As Long
Dim na As String
Application.ScreenUpdating = False
For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row
    na = Sheets("sheet1").Cells(i, 2).Value
    Sheets("sheet1").Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & na & ".xls"
    Rows(i).Copy Rows("2")
    Rows("3:" & Range("b65536").End(xlUp).Row).Delete
    ActiveWindow.Close savechanges:=True
    Next
    Application.ScreenUpdating = True
End Sub

Answer 1

dim j as longj =  Sheets("sheet1").Range("b65536").End(xlUp).RowFor i = 2 To j改成这样试试。

Answer 2

有没有名字是sheet1的工作表？可以的话，把文件发给我看看, [email protected]

Answer 3

    不是工作名字的问题，问题是出在下标溢出的问题。
如果没有sheet1的工作表，也会报下标溢出。

Answer 4

on error goto ...
on error resume next

Answer 5

什么意思？还请解释清楚。本人不是专用VBA软件的