- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] MSExce (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85590)
-- 发布时间：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
此主题相关图片如下：00.jpg
-- 发布时间：2016/5/29 22:07:00
--
1、加入代码看弹出什么msgbox(D:\\ERP导出\\" & Tables("打板记录").current("款号") & ".xlsx")
2、最好是判断一下文件是否被打开了 http://www.foxtable.com/help/topics/2126.htm