VB调用Excel数据怎么这么慢啊？

[jinjin336699]

请教前辈，我用VB调用Excel数据，用如下代码仅仅读出活动工作表A列最后一个非空单元格的行号，就需要7秒左右，而在VBA中，1秒也不到，请问如何优化啊？
Sub test()
Application.ScreenUpdating = False
Dim d As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("d:/测试.xlsx")
With xlBook.ActiveSheet
d = .Range("a65536").End(xlUp).Row
MsgBox d
End With
xlBook.Close False
Set xlApp = Nothing
Application.ScreenUpdating = True
End Sub

经测试，打开工作簿用了近一半时间，请问有没有提速的代码啊？