Foxtable(狐表)用户栏目专家坐堂 → [求助]引用lxl的外部库出了问题(搞定,不是lxl的错,而是狐爸的引用代码说明有错)


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

主题:[求助]引用lxl的外部库出了问题(搞定,不是lxl的错,而是狐爸的引用代码说明有错)

帅哥哟,离线,有人找我吗?
舜风
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
[求助]引用lxl的外部库出了问题(搞定,不是lxl的错,而是狐爸的引用代码说明有错)  发帖心情 Post By:2010/1/10 1:32:00 [显示全部帖子]

把文件复制到foxtable目录下,
管理项目→外部引用→浏览→选中这个dll→添加
点命名空间选项卡→输入命名空间“Microsoft.Office.Interop.Excel”→输入自己的别名,如:mExcel
下面就可以根据情况写代码了。比如
Dim mApp As New mExcel.Application
Dim mBook As mExcel.Workbook = mApp.Workbooks.Open(ProjectPath & "reports\" & Name & ".xls")
Dim mSheet As mExcel.Worksheet = mBook.Sheets.Item(1)
mSheet.Calculate()
mBook.Save()
mApp.Visible = True



图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2010-1-10 11:30:54编辑过]

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


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
  发帖心情 Post By:2010/1/10 11:30:00 [显示全部帖子]

以下是引用ssqq在2010-1-10 10:45:00的发言:
关于外部引用还是需要更多的参考资料,

图片点击可在新窗口打开查看我已明白,不是lxl搞错了,而是狐爸的代码可能有问题

一旦加上了引用,就可以直接在代码中使用改库的功能:

Dim app As New Office.Excel.Application
Dim book As Office.Excel.Workbook = app.Workbooks.Open("C:\112.xls")
Dim sheet As Office.Excel.Worksheet = book.Sheets.Item(1)
app.Visible = True
sheet.PrintPreview()
book.Close()
app.Quit()


我把Office.Excel.Application
改为了orrice excel.application

这样就对了,而我郁闷的是,之前狐友们为何没发现此问题,或为何不提醒呢?


 回到顶部
帅哥哟,离线,有人找我吗?
舜风
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
  发帖心情 Post By:2010/1/11 23:53:00 [显示全部帖子]

以下是引用菜鸟foxtable在2010-1-11 16:20:00的发言:
图片点击可在新窗口打开查看楼主做个简单示例给大家学习学习嘛。最好能在webBrown里预览。

也没撒技巧,就是把狐爸的引用代码放在SAVE后面

点按钮就可预览方式打开指定的Execl表

不过有两点提示:
1、狐爸的错误前面已提到
2、本来在Execl里设置的表头并不能在生成后的打印预览中出现,所以设计表时注意一下图片点击可在新窗口打开查看也就是打印多页时没有表头,可能有点不方便


 回到顶部