智能设备项目中没有“项目——添加引用——com——microsoft excel 11.0 object library

[dsrjluyong]

在一般vb.net项目编程中有“项目——添加引用——com——microsoft excel 11.0 object library ”，可以用一下代码来创建excel。
但在用pocket智能设备项目中没有这个东西，那我应该如何创建excel文件呢？
Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序
Dim Xlsbook As Excel.Workbook '定义工作簿
Dim Xlssheet As Excel.Worksheet '定义工作表

[outou]

你可以去网上下载一个Interop.Excel.dll，然后引到里面就可以了。

[dsrjluyong]

那在pocket项目中如何使用呢

[dsrjluyong]

已经在引用中添加Interop.Excel.dll
但在调试时第一行就出现“由于以下错误: 类未注册 ，无法创建 CLSID 为“{00024500-0000-0000-C000-000000000046}”的 COM 对象。”的错误
代码如下：
Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序
Dim Xlsbook As Excel.Workbook '定义工作簿
Dim Xlssheet As Excel.Worksheet '定义工作表

Xls.Visible = True '显示excel 程序
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄

MsgBox("EXCEL档案创建完毕！")
Xlssheet.Cells(1, 1) = "这是一个创建EXCEL的示例"
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
Sdlg.FileName = "*.xls" '保存对话框的默认文件名
Sdlg.Filter = "EXCEL档案(*.Xls)|*.Xls" '过滤器设置
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
Xlsbook.SaveAs(Sdlg.FileName) '保存文件
End If
Xlssheet = Nothing '释放资源
Xlsbook.Close() '关闭工作簿
Xlsbook = Nothing '释放资源
Xls.Quit() '退出excel应用程序
Xls = Nothing

[ft2130854]

顶一下

[sunny_g2007]

顶...

[xingyuebuyu]

http://www.microsoft.com/downloads/details.aspx?familyid=3C9A983A-AC14-4125-8BA0-D36D67E0F4AD&displaylang=en
http://social.microsoft.com/Forums/en-AU/visualcshartzhchs/thread/a52899d4-bb23-4802-95cd-87b9a6983dd0

[一只熊猫]

关注!

[CloneCenter]

Pocket 设备中能用 EXCEL 吗？没有试过，不太清楚。

从 1 楼开始的回答基本上都是针对 PC 上的，没有说的是智能设备。

[兔子-顾问]

LS说的对。
原因说一下，是com组件是需要注册的，而ppc的组建需要在ppc上注册，所以在pc上无法添加，需要自己实现对组件的调入、申请空间，释放等操作，详见MSDN中，ppc上使用MediaPlayer的例子。
我不确定ppc上有没有excell的组件，应该有的，但使用方法可能不是直接添加进来，google貌似没搜索到例子。有空再想想。

[ChumpKlutz]

导成.csv文件得了

[悲伤龙吟]

顶、、、、