How to execute and close file after 10 Seconds

[Aimin Ariff]

Guys, so I have doing cicode function, to execute excel file, the the values from the excel and extract it to the tags. The problem is, I dont know how to make it automatically close the excel file after read it. This is my cicode, please help me..

FUNCTION ReadData()
Exec("C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE C:\Users\USER\Desktop\Knowles\L1_Export_List.xlsx",6);
Temp1 = DDERead("Excel","Data Level1","R2C22");
Temp2 = DDERead("Excel","Data Level1","R4C22");
Temp3 = DDERead("Excel","Data Level1","R6C22");
Temp4 = DDERead("Excel","Data Level1","R7C22");
Temp5 = DDERead("Excel","Data Level1","R9C22");
Temp6 = DDERead("Excel","Data Level1","R11C22");
Temp7 = DDERead("Excel","Data Level1","R13C22");
Temp8 = DDERead("Excel","Data Level1","R16C22");
Temp9 = DDERead("Excel","Data Level1","R17C22");
Temp10 = DDERead("Excel","Data Level1","R19C22");
END


FUNCTION enginestart
WHILE (Start = 1) DO
ReadData()
Sleep(3);
END
END

 

[L33er]

FileClose("C:\Users\USER\Desktop\Knowles\L1_Export_List.xlsx")

 

[parky]

You could do it in the excel file:

Private Sub Workbook_Open()
StartTimer
End Sub


Const idleTime = 10 'seconds
Dim Start
Sub StartTimer()
Start = Timer
Do While Timer < Start + idleTime
DoEvents
Loop
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub

 

[widelto]

If the PLC is Allen Bradley you can use pylogix. Dustin (DMRoeder) can help you with your python program he has lots of examples.

 

[Aimin Ariff]

Thank you very much guys!!!! All of those solutions worked just great!!! I also try to create .bat file.. did the job as well