kareldezutter Posted November 8, 2011 Posted November 8, 2011 I have an autoit script which runs fine but it does not seem to close of the actual excel process. When going to the task manager the excel.exe is still running. I am using Windows 7 and MS Excel 2003. I also found an other post concerning the same topic but this did not bring a solution either Here my script: expandcollapse popupTraySetToolTip("3M Datei suchen...") $search = FileFindFirstFile("\\9.165.152.39\Lu_Erfurt\TeamReports\3M\" & @YEAR & "\" & @MON & "\*.xls") If $search <> -1 Then $all="" While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $all=$all & $file & @CRLF WEnd FileClose($search) $gefunden=0 For $tag=@MDAY to 1 step -1 if $tag<10 then $tag="0" & $tag $3mtag="3M" & $tag & @mon & stringright(@year,2) & ".xls" if StringInStr($all,$3mtag)>0 then $gefunden=1 ExitLoop EndIf Next If $gefunden<>0 then $oExcel = _ExcelBookOpen("\\9.165.152.39\Lu_Erfurt\TeamReports\3M\" & @YEAR & "\" & @MON & "\" & $3mtag,0) TraySetToolTip("3M-Reporting-Daten kopieren...") _ExcelSheetActivate($oExcel,"summary") $zeile=0 $total="" while $total<>"total" $zeile=$zeile+1 $total = _ExcelReadCell($oExcel, $zeile, 2) WEnd _ExcelSheetActivate($oExcel,"summary_Ger") $db_de_off=_ExcelReadCell($oExcel, $zeile, 4) $db_de_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_UK") $db_uk_off=_ExcelReadCell($oExcel, $zeile, 4) $db_uk_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_BE") $db_be_off=_ExcelReadCell($oExcel, $zeile, 4) $db_be_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_IT") $db_it_off=_ExcelReadCell($oExcel, $zeile, 4) $db_it_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_FR") $db_fr_off=_ExcelReadCell($oExcel, $zeile, 4) $db_fr_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_AT") $db_at_off=_ExcelReadCell($oExcel, $zeile, 4) $db_at_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_SP") $db_es_off=_ExcelReadCell($oExcel, $zeile, 4) $db_es_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_CH") $db_ch_off=_ExcelReadCell($oExcel, $zeile, 4) $db_ch_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_PT") $db_pt_off=_ExcelReadCell($oExcel, $zeile, 4) $db_pt_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_NL") $db_nl_off=_ExcelReadCell($oExcel, $zeile, 4) $db_nl_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_Nordics") $db_no_off=_ExcelReadCell($oExcel, $zeile, 4) $db_no_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelSheetActivate($oExcel,"summary_PL") $db_pl_off=_ExcelReadCell($oExcel, $zeile, 4) $db_pl_han=_ExcelReadCell($oExcel, $zeile, 6) _ExcelBookClose($oExcel, 0) $file_3m=FileOpen("db_3m.txt",2) FileWriteLine($file_3m,$db_de_off & ";" & $db_de_han) FileWriteLine($file_3m,$db_uk_off & ";" & $db_uk_han) FileWriteLine($file_3m,$db_be_off & ";" & $db_be_han) FileWriteLine($file_3m,$db_it_off & ";" & $db_it_han) FileWriteLine($file_3m,$db_fr_off & ";" & $db_fr_han) FileWriteLine($file_3m,$db_at_off & ";" & $db_at_han) FileWriteLine($file_3m,$db_es_off & ";" & $db_es_han) FileWriteLine($file_3m,$db_ch_off & ";" & $db_ch_han) FileWriteLine($file_3m,$db_pt_off & ";" & $db_pt_han) FileWriteLine($file_3m,$db_nl_off & ";" & $db_nl_han) FileWriteLine($file_3m,$db_no_off & ";" & $db_no_han) FileWriteLine($file_3m,$db_pl_off & ";" & $db_pl_han) fileClose($file_3m) TraySetToolTip("Datei aufs Share kopieren...") FileCopy("db_3m.txt","db_3m.csv",1) $3MDate = @YDAY $3MToolTip = "3M report imported: " & $3mtag ;& @MDAY & "/" & @MON & "/" & @YEAR EndIf Else FileClose($search) EndIf
water Posted November 8, 2011 Posted November 8, 2011 I think it depends on the version of AutoIt you use. Please give the latest beta a try. My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now