Hallo zusammen,
ich möchte gerne eine Excel-Tabelle öffnen und jedes Tabellenblatt einzeln als csv speichern.
Dafür habe ich folgende Code geschrieben.
[autoit]
#include <Excel.au3>
#include <Array.au3>
$sFilePath1 = @ScriptDir & "\input.xls" ;This file should already exist
$oExcel = _ExcelBookOpen($sFilePath1,0)
If @error = 1 Then
MsgBox(0, "Error!", "Unable to Create the Excel Object")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Error!", "File does not exist - Shame on you!")
Exit
EndIf
$aArray = _ExcelSheetList($oExcel)
[/autoit][autoit][/autoit][autoit]for $i = 1 to $aArray[0]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : debug = ' & $aArray[$i] & @crlf) ;### Debug Console
_ExcelSheetActivate($oExcel, $aArray[$i])
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Test_" & $aArray[$i], "csv", 0, 1, "ReadOnly","",1,3) ;Save the File as 'SaveAsExample2.xls"
next
_ExcelBookClose($oExcel,0,0)
[/autoit][autoit][/autoit][autoit]Exit
[/autoit]Das klappt auch soweit.
Jetzt hab ich aber das Problem, dass ich eine Excel-Tab habe in der unter Workbook_Open und Workbook_BeforeSave Code ausgeführt wird.
Dieser Code erzeugt bei obigem Script aber einen Fehler.
Weiß jemand ob ich eine Excel-Tab so öffnen kann, daß die in der Tab enthaltenen Makros nicht ausgeführt werden?
Danke
Superelmo