有关VB6.0 实现VBA replace方法的求助 谢谢大神指导

nanyuezhiyuan

VBA中代码如下sub rep()
With Sheets("表")
.Cells.Replace What:="", Replacement:="0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With

end sub

现在我正在用VB6.0封装这段代码,可是提示下界溢出,想到VBA有一些参数在VB6.0中无法使用,封装时只使用了如下部分:
VB6.0代码
Public xlApp As Object
sub main()
xlApp = GetObject(, "Excel.Application")
With xlapp.Sheets("表")
.Cells.Replace What:="", Replacement:="0"
End With

end sub

以上两段代码实现的功能基本是一致的(因为至少运行获得的结果是一致的),可是我还是担心,毕竟VB6.0中的参数少了那么多,怕发生意想不到的后果.
现在我有两个疑问:
第一:是否能像VB6.0中运行.Range("IV1").End(-4159).Column来实现VBA中.Range("IV1").End(xlToLeft).Column那样,来完善上述VB6.0的代码,我找了很久,没找到相关方法.
第二:是否有其他可能来完善VB6.0的代码,使其与VBA代码对等.


初来乍到,是个菜鸟,谢谢大神指点!

nanyuezhiyuan

按照第一种方法,问题已解决!