在word中计算excel中表的长度？？？

likedanni

我知道在excel中计算表的长度的代码为：

x% = Worksheets("sheet1").Columns(5).SpecialCells(xlLastCell).Row '---(1) MsgBox "LastRow" + Str(x%) 但不知道在word中怎么使用？请高手帮忙看看！谢谢1

守柔

以下代码供参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-6 11:28:12 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0005^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit '请在VBE/工具(T)/引用(R)中勾选对于"MICROSOFT EXCEL 10.0 OBJECT LIBRARY的引用 Sub GetExcApp() Dim xlObj As Excel.Application, xlWb As Excel.Workbook On Error Resume Next '忽略错误 '如果任务栏中有Excel程序则调用该现有程序,反之则创建一个新的EXCEL程序 If Tasks.Exists("Microsoft Excel") = True Then Set xlObj = GetObject(, "Excel.Application") Else Set xlObj = CreateObject("Excel.Application") End If xlObj.Visible = True '设为可见 Set xlWb = xlObj.Workbooks.Open("c:\ok.xls") '打开指定的工作薄 x% = xlWb.Worksheets("sheet1").Columns(5).SpecialCells(xlLastCell).Row MsgBox "LastRow" + Str(x%) xlObj.Quit '关闭Excel进程 Set xlObj = Nothing '释放对象变量 End Sub '----------------------

这只是一个简单地引用,有关比较正式的引用,可以搜索一下本论坛.