此主题相关图片如下：error.png
在已经安装了Excel是可以正常启动WPS表格的，但另外2台电脑没有装Excel就提示出错了，到底是哪里出了问题呢？多谢指教！
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\物料标签.xls")
App.DisplayAlerts=False
Dim dr As DataRow = Tables("送货.送货流水").Current.DataRow
'Wb.WorkSheets(1).name = Date.Today
Wb.WorkSheets(1).range("AC3").Value = dr("送货日期")
Wb.WorkSheets(1).range("AD3").Value = dr("送货单号")
Wb.WorkSheets(1).range("AH3").Value = dr("订购单号")
Wb.WorkSheets(1).range("AJ3").Value = dr("编码")
Wb.WorkSheets(1).range("AL3").Value = dr("内容")
Wb.WorkSheets(1).range("AM3").Value = dr("数量")
Wb.WorkSheets(1).range("AD15").Value = dr("备品")
Wb.Save()
App.Quit
Dim Proc As New Process
Proc.File = "d:\物料标签.xls"
Proc.Start()
加好友 
发短信
Post By：2016/4/6 9:50:00 [显示全部帖子]
Post By：2016/4/6 12:03:00 [显示全部帖子]
