等高手帮忙解决--VB运行是报错57121

Private Sub CommandButton1_Click()

Dim each_sheet_name As String
Dim sheet_count As Integer

sheet_count = Worksheets.Count
For i = 1 To sheet_count Step 1
each_sheet_name = Worksheets.Item(i).Name
Worksheets("plot_Vg-Id").Cells(i + 8, 2) = each_sheet_name
Next i

End Sub

代码是没问题的 excel 2007 测试有效

你去下载vb sp6补丁 安装试试

搜一下：等高手帮忙解决--VB运行是报错57121