以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何使导出表页面定位到最后  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72735)
--  作者：月亮天蝎
--  发布时间：2015/8/5 13:16:00
--  如何使导出表页面定位到最后
数据导出后（EXCEL），打开导出表后总是显示最顶部的数据，如何能让页面定位到数据的最后一行，使打开的导出表直接可以看到最后面的数据？
--  作者：大红袍
--  发布时间：2015/8/5 14:20:00
--  

用vba打开excel表格

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Select
Ws.Cells(ws.UsedRange.Rows.count, 1).Select\'选定单元格
App.Visible = True

 
--  作者：月亮天蝎
--  发布时间：2015/8/5 15:56:00
--  
出现提示：

无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。此操作失败的原因是对 IID 为“{000208D5-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。


我的代码如下：

Dim Proc As New Process 
Proc.File = "e:\\订单导出数据\\2015订单导出数据.xls"
 ’’Proc.Start()

用vba打开excel表格
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("e:\\订单导出数据\\2015订单导出数据.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(0)
Ws.Select
Ws.Cells(ws.UsedRange.Rows.count, 1).Select \'选定单元格
App.Visible = True

为什么呢

而且，即便是我把如下代码删除，也不行啊：
Dim Proc As New Process 
Proc.File = "e:\\订单导出数据\\2015订单导出数据.xls"
 ’’Proc.Start()
[此贴子已经被作者于2015/8/5 15:57:17编辑过]
--  作者：大红袍
--  发布时间：2015/8/5 16:12:00
--  

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54396&replyID=360697&skin=1