Set ex = CreateObject("Excel.Application") Set exwbook = Nothing Set exwbook = ex.Workbooks.Open(Trim(StrPath))就写的这几句打开的,然后这样引用Trim(ex.Cells(1, IntCol).Value)引用数据是没问题的,可是好像用完这个excel文件就关不上了,而且打开提示副本什么的呜呜呜
Set ex = CreateObject("Excel.Application") Set exwbook = Nothing Set exwbook = ex.Workbooks.Open(Trim(StrPath))......用完后加上 ex.ActiveWorkbook.Close Set exwbook = Nothing Set ex = Nothing
没有彻底关闭。
进程里已经有一个Excel.exe了。
所以无法继续打开。
vbexcel.ActiveWorkbook.SaveAs FileName:="D:\OQC_Report\Report\Customer_Report\" & Trim(rsLotInfo("FABLOT")) & " " & ReportDate & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ConflictResolution:=xlLocalSessionChanges, CreateBackup:=False
vbexcel.ActiveWorkbook.Close False, "D:\OQC_Report\Use\Customer_Report.xls"
Set exwbook = Nothing
Set exwbook = ex.Workbooks.Open(Trim(StrPath))......用完后加上
ex.ActiveWorkbook.Close
Set exwbook = Nothing
Set ex = Nothing
exwbook.close
ex.quit