主题：excle报表出现这样的问题，是什么原因？

excel报表如下：

 

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

点击浏览该文件:pdb.xls

，启动代码是：

Tables("hfclkcpd").Select(0,0,Tables("hfclkcpd").Rows.Count-1,Tables("hfclkcpd").Cols.Count-1)
Dim Book As New XLS.Book(ProjectPath & "Attachments\pdb.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Book.Build() '生成细节区
Book.Save(ProjectPath & "reports\pdb.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "reports\pdb.xls"
'Proc.Verb =  "OpenAsReadOnly"
Proc.Start()

结果出现以下的错误提示，而变成挤成一团很难看的，而目的是打印一个个大标签，每个标签占用半张A4纸，我公司有半张A4纸以供使用的，这在之前也是可以用得好好的。

此主题相关图片如下：qq截图20111230114654.png

 

此主题相关图片如下：qq截图20111230114709.png

那是病毒？

我杀毒先