应用程序在范围属性过程中定义了错误，是什么导致错误？

我感兴趣的是，为什么，为什么下面一行("Sheets("Euro_usd").Columns("A").End(xlDown).Offset(1, 0).Value = EURO_USD.t_date")导致应用程序在范围属性过程中定义了错误，是什么导致错误？

“应用程序定义或对象定义的错误”

用等价更换代码：Sheets("Euro_USD").Cells(rows.Count, "A").End(xlUp).Offset(1, 0).Value = EURO_USD.t_date使得以dissapear错误。

为什么错误出现？它是否必须做的是为column属性的结束（xldown）已经在堆栈中占用（不确定的术语），并因此新的请求产生错误？

Private Sub run() ' run the whole operation 

Dim HTTP_Req As Object: Set HTTP_Req = New HTTP_Req 
Dim EURO_USD As Object: Set EURO_USD = New EURO_USD 


If Sheets("EURO_USD").Columns("A").End(xlDown).Value = DateValue(EURO_USD.t_date) Then 
    Debug.Print "Date already exist" 
    Else 
    Sheets("Euro_usd").Columns("A").End(xlDown).Offset(1, 0).Value = EURO_USD.t_date <-- Error here! 

End If 

End Sub

来源

2014-10-01 uncool

查找最后一行然后添加值。你可能想看看[这]（http://stackoverflow.com/questions/11169445/error-finding-last-used-cell-in-vba）另外要检查一个日期是否在一列中，你可以使用'Application.WorksheetFunction.CountIf（）' – 2014-10-02 00:30:54

如果列A为空，则此语句会尝试在行中写入最大行之后的行中写入，这是不可能的。通过打印Sheets("Euro_usd").Columns("A").End(xlDown).Row进行检查。它可能等于Sheets("Euro_usd").Rows.Count（它给你最大的行数）。

如果列A为空，则第二条语句（xlUp）将生成第一行，从而将值写入第二行（Offset(1,0)）。

来源

2014-10-01 23:43:12 Barry

那么，事情是，列A不是空的...因此写作舍（“Euro_usd”）。列（“A”）。结束（xldown）.row返回3 – uncool 2014-10-03 22:11:20

当你写这个值时，EURO_USD.t_date的值和类型是什么？ – Barry 2014-10-04 07:40:05

也可以尝试设置表格（“Euro_usd”）。列（“A”）。结束（xlDown）.Offset（1，0）。值=日期。所有这些只是为了找出声明的哪一部分引起错误。 – Barry 2014-10-04 07:49:05

应用程序在范围属性过程中定义了错误，是什么导致错误？

回答

相关问题