|
#2
不说也罢2010-12-04 15:43
 程序代码：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 |
以前我使用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)
我已经在最前面添加了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”呢？请各位大侠帮忙！