以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] MSExce (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85590) |
-- 作者:yupeng -- 发布时间:2016/5/29 16:13:00 -- [求助] MSExce 大师 请帮我看一下以下代码 最近几天出现错误 以前一直没有问题 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 |
-- 作者:大红袍 -- 发布时间:2016/5/29 22:07:00 -- 1、加入代码看弹出什么msgbox(D:\\ERP导出\\" & Tables("打板记录").current("款号") & ".xlsx")
2、最好是判断一下文件是否被打开了 http://www.foxtable.com/help/topics/2126.htm
|