Foxtable(狐表)用户栏目专家坐堂 → 如何使导出表页面定位到最后


  共有2349人关注过本帖树形打印复制链接

主题:如何使导出表页面定位到最后

美女呀,离线,留言给我吧!
月亮天蝎
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:930 威望:0 精华:0 注册:2015/7/6 10:24:00
如何使导出表页面定位到最后  发帖心情 Post By:2015/8/5 13:16:00 [只看该作者]

数据导出后(EXCEL),打开导出表后总是显示最顶部的数据,如何能让页面定位到数据的最后一行,使打开的导出表直接可以看到最后面的数据?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 


 回到顶部
美女呀,离线,留言给我吧!
月亮天蝎
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:930 威望:0 精华:0 注册:2015/7/6 10:24:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/5 16:12:00 [只看该作者]


 回到顶部