某些用户的下标超出范围

时间:2014-03-21 18:21:07

标签: excel vba excel-vba

我在Excel 2010 VBA中编写了以下子文件,它从一个工作表中获取值,打开一个新工作簿并将其复制进来。这段代码非常适合我。我有另一个人试图运行此代码。他们碰巧使用Excel 2007并在下一行中获得了下标超出范围的错误:不确定该如何处理。

Workbooks("Log_File").Worksheets("Data").Range("A" & First_Blank_Row) =    Value1

代码:

Sub Open_Results()
Range("B14") = "=sum(A10:A20)"

Value1 = Range("B14").Value

'open the log file
Application.Workbooks.Open ("C:\Log\Log_File.xlsx")


First_Blank_Row = Cells(Rows.Count, 1).End(xlUp).Row + 1

'**ERROR STARTS AT THIS NEXT LINE**
Workbooks("Log_File").Worksheets("Data").Range("A" & First_Blank_Row) =    Value1

ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
End Sub

0 个答案:

没有答案