Question

VB调用excel时遇到了奇怪的问题.困惑ing

Private Sub Form_Load()
Set xlapp = CreateObject("Excel.Application")
路径 = App.Path & "\data\重量.xlsm"
Set wb = xlapp.Workbooks.Open(路径)
Set sh = wb.Worksheets("sheet1")
xlapp.Visible = True
Me.Width = 4950
最后一行 = xlapp.Cells(Rows.Count, 1).End(xlUp).Row 'VB提示说要求对象
End Sub

在 "最后一行 = xlapp.Cells(Rows.Count, 1).End(xlUp).Row "停下来了,说是要求对象.到底是哪里缺少对象了?问怎么也检查不出来

Answer 1

=xlapp.wb.sh.Cells(Rows.Count, 1).End(xlUp).Row

没有指定具体表，当然会要求你提供对象

追问

很遗憾的告诉你:不是那样的,你说的不对.我已经试过了

追答

那你调试的时候看一下，WB和SH能被赋值么？
如果不能，说明是这两个变量的问题
如果能检查一下原始表的结构
也可以直接改成：=sh.Cells(Rows.Count, 1).End(xlUp).Row