主题：[求助]

我在命令窗口中试验了一段典型的用模板创建Excel报表的代码（注释掉的是帮助文件中粘贴来的）： Dim Book As New XLS.Book(ProjectPath & "Attachments\项目开发费用大类分类统计01.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0)     Sheet(3,3).Value = "项目名称:" Book.Build() Dim fl As String = ProjectPath & "Reports\BBB.xls" Book.Save(fl) Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Start() 'Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板 'Dim Sheet As XLS.Sheet = Book.Sheets(0) 'Sheet(6,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息 'Book.Build() '生成细节区 'Book.Save("c:\reports\test.xls") '保存工作簿 'Dim Proc As New Process '打开工作簿 'Proc.File = "c:\reports\test.xls" 'Proc.Start() 执行代码后报错，不执行（换过好多代码都试过，结果一样）！报错内容如插图，请问问题出在哪里？

　　不好意思，这两天在写输入窗口部分，所以没有及时回复。

　　本来想在表主体解决后，先做报表输出的出口部分（统计分析应该可以在这部分解决），输入窗口和查询窗口部分放到后面来处理，但遇到上述问题，只好先改做入口部分（输入窗口），现在基本解决了，不求专业，只求按工作要求能用。

　　但上面这个问题阻碍了出口的编写，如果不解决，估计前功尽弃。

　　现将程序全部上传，请老师帮看看，问题出在“报表输出”部分，希望是选择了项目后，按项目名称筛选数据，打印输出。代码我检查过应该不会出现后缀.xls写成.xlsx的问题。程序报错后能运行，只是跳过了“报表事件”的那段代码，问题就应该出在“报表事件”的代码上面。

　　谢谢！

 

　　晕死。等了将近20min，也不知道附件上传上来了没有，是“.rar”文件，“上传中，请稍后...”的提示早没有了，但帖子中未出现上传好的文件，浏览器是IE11，只好再把报错的截图插入帖子了，也不知道你们能不能看见插入的".png"图片，但我在帖子中能看见。

是不是rar文件18M太大了，总是长传不了，试了试把报错的截图作为附件上传，终于提示“1个文件上传成功”，怕再出问题，先发了再说。

原来文件夹里面有其它东东，怪不得这么大，现在好，rar文件上传好了，麻烦帮忙看看。谢谢！

此主题相关图片如下：aaa.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工程项目数据管理.rar

这次终于看见上传的文件了，应该可以了吧。

谢谢，问题找到了，不是文件名的问题（图片是我改过前截的），是我在一个窗口的单选框的Click事件中写了代码，又在表事件中写了部分重复的代码，删除表事件中的代码就OK了。

另外请教个问题：

表：第一列　第二列

　　AAA      123

      BBB      789

Dim dr,lr As String，当dr = "AAA",我想取得　lr = "123"，我把DataRow和String联系不起来。