大师 请帮我看一下以下代码 最近几天出现错误 以前一直没有问题
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(projectPath & "Attachments\物料卡\" & Tables("打板记录").current("客户") & ".xlsx") ' 打开工作簿
Wb.WorkSheets("物料卡").range("D3").Value = Tables("打板记录").current("客户")
Wb.WorkSheets("物料卡").range("K3").Value = Tables("打板记录").current("品牌")
Wb.WorkSheets("物料卡").range("Q3").Value = Tables("打板记录").current("款号")
Wb.WorkSheets("物料卡").range("Y3").Value = Tables("打板记录").current("款式")
Wb.WorkSheets("物料卡").range("AF3").Value = Tables("打板记录").current("MR")
'Wb.WorkSheets("报价").range("B4").Value = Tables("打板记录").current("款号")
'Dim path As String = "\\Jiafei\erp文件\样板图片\" & Tables("打板记录").current("图片")
'If FileSys.FileExists(path) Then
'Wb.WorkSheets("物料卡").range("A5").Select()
'Wb.WorkSheets("物料卡").Shapes.AddPicture(path, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,3, 80, 160, 160)
'End If
Wb.SaveAs("D:\ERP导出\" & Tables("打板记录").current("款号") & ".xlsx") ' 工作簿另存为
App.Quit ' 关闭excel
此主题相关图片如下：00.jpg
加好友 
发短信
Post By：2016/5/29 16:13:00 [只看该作者]
