RT
以前我使用vb6.0时，只要使用P=[A65536].End(xlUp).Row就可以得到A列最后一行的位置，
可是现在使用，在使用同样的语句时就是错误的：

        xlapp = CreateObject("Excel.Application")
        xlapp.Visible = False
        xlbook = xlapp.Workbooks.Open(Application.StartupPath() & "\app\data.xls")
        xlsheet = xlbook.Worksheets("LIST")
        p = xlapp.Evaluate("[A65536].End(xlUp).Row")
        MsgBox(p)

我已经在最前面添加了

Imports Microsoft.Office.Interop

为什么运行结果得到的P是“-2146826273”呢？

请各位大侠帮忙！

Imports Microsoft.Office.Interop
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xlapp As New Excel.Application
        Dim xlbook As Excel.Workbook = xlapp.Workbooks.Open(Application.StartupPath() & "\app\data.xls")
        Dim xlsheet As Excel.Worksheet = xlbook.Worksheets("LIST")
        Dim p As string = xlsheet.Range("A65536").End(Excel.XlDirection.xlUp).Row.ToString()  ' 注意，非 End(xlUp).Row
        MsgBox(p)
        xlapp.Quit()

    End Sub
End Class

记得我好像回答过这样的问题

xinya123

等　级：新手上路
帖　子：1
专家分：0
注　册：2010-12-4
结帖率：0/0

此ID至今就这一个贴子