Automatisch Excel Liste erstellen/erweitern

Sascha123456

Hallo

ich hätte da folgendes Anliegen falls mir jemand solch ein Script schreiben könnte

Und zwar liegen in einem Ordner 269 Dateien in dem Format SSF (Programm-Format für eine Maschine), diese Dateien haben den Namen verschiedener Artikel zb 10105223 oder 1021566_A.Platine oder 10036876+58_gebogen etc usw...
Jetzt bräuchte ich eine Excel Liste all dieser Namen, jedoch nur die Nummer welche am Anfang steht als ab dem + oder dem _ oder Buchstaben etc soll der Name nicht mehr in die Excel Liste eingefügt werden.
Die Namen sollen dann in der Excel untereinander unter Artikelnummer stehen, also wie folgt:
Artikelnummer
10105223
1021566
10036876
usw

Die Excel Liste existiert noch nicht, möchte diese aber nun erstellen und bearbeiten.

Viele Grüße

**autoiter**

Hallo @Sascha123456,

Mir ist anhand deiner Beschreibung noch nicht klar, ob es Dubletten gibt, und wenn ja, ob es egal ist?
Wenn du immer das gleiche Verzeichnis einlesen willst und die vorhandenen Dateien immer im Verzeichnis bleiben, werden sie jedes mal erneut in die Liste geschrieben.

Sascha123456

Morgen @autoiter

der Mann für alles ^^, magst net gleich bei uns arbeiten?

Also es gibt in diesem Verzeichnis ein paar Nummern doppelt, jedoch sollte jede Nummer nur einmalig in der Excel auftauchen.

**alpines**

Wenn dir eine einfache CSV-Tabelle reicht, dann kannst du das ganze so machen. Sollte deine Excel-Liste etwas hübscher aussehen kannst du ja auf die Excel-UDF zurückgreifen.

Das gibt dir von einem Ordner "read" die Artikelnummern aus und ignoriert doppelte.
Testdateien waren ("102156_A.Platine" "102156_A.Platine 2" "10036876+58" "10036876+58 222" und "10105223"). Test ist im Anhang.

AutoIt

#include <File.au3>
#include <Array.au3>


$aList = _FileListToArray(@ScriptDir & "\read")
_ArrayDelete($aList, 0)


For $i = 0 To UBound($aList) - 1
	$aRegEx = StringRegExp($aList[$i], "(\d+)", 3)
	If UBound($aRegEx) Then $aList[$i] = $aRegEx[0]
Next


$aList = _ArrayUnique($aList)
_ArrayDelete($aList, 0)


$hFile = FileOpen("table.csv", 1)


For $i = 0 To UBound($aList) - 1
	FileWrite($hFile, $aList[$i] & ($i <> UBound($aList) - 1 ? ";" & @CRLF : ""))
Next


FileClose($hFile)

Alles anzeigen

**autoiter**

Hallo @Sascha123456,

Hier meine Bewerbung mit der Bitte um wohlwollende Prüfung.

Hinweise:
- Beim Einlesen werden doppelte Nummern entfernt. - Es wird aber nicht in der Excel-Datei geschaut, ob die Nummern durch alte Durchläufe bereits in die Datei geschrieben wurden. Das müsste man sonst noch einbauen.
-Erstellst du selbst eine leere Excel Datei, in die du schreiben lassen willst, wird in Zeile 2 gestartet.

Spoiler anzeigen

AutoIt

#cs ----------------------------------------------------------------------------


	AutoIt Version: 3.3.15.0 (Beta)
	Author:         myName


	Script Function:
	Führende Zahlen con Dateinamen aus einem Verzeichnis extrahieren, Dubletten entfernen und in Excel-Liste schreiben.


#ce ----------------------------------------------------------------------------
#include <Excel.au3>
#include <Array.au3>
#include <File.au3>




#Region --- Deine Einstellungen ---


Global $sExcelFile = "" ; Kompletter Pfad der Excel-Datei, sonst wird im Skriptverzeichnis die Datei "SSF-Dateiliste.xls" erstellt.


Global $sSearchFolder = "" ; SSF-Ordnerpfad. Wenn leer öffnet sich beim Skriptstart ein Ordnerauswahl-Dialog.


#EndRegion  --- Deine Einstellungen ---








If Not FileExists($sExcelFile) Then $sExcelFile = @ScriptDir & "\SSF-Dateiliste.xls"


If $sSearchFolder = "" Then $sSearchFolder = FileSelectFolder("Wähle den Ordner mit den SSF-Dateien", @ScriptDir)
If @error Then Exit


Global $aNumber = GetNumbers()
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Erstellen der Nummern-Liste: " & $aNumber & ")")


Global $sRet = WriteExcel($sExcelFile, $aNumber)
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Schreiben der Excel-Datei(Fehlermeldung der Excel-UDF: " & $sRet & ")")






Func GetNumbers()
	Local $aFiles = _FileListToArray($sSearchFolder, "*.ssf")
	If @error Then Return SetError(1, 0, "Fehler beim Erstellen der Dateiliste")


	Local $aNumber[$aFiles[0]], $iNumberTest, $iCount = 0


	For $i = 1 To $aFiles[0]
		$iNumberTest = Number($aFiles[$i])
		If $iNumberTest <> 0 Then
			$aNumber[$iCount] = $iNumberTest
			$iCount += 1
		EndIf
	Next


	If $iCount = 0 Then Return SetError(1, 0, "Keine SSF-Nummern gefunden.")
	ReDim $aNumber[$iCount]
	Local $aNumberUnique = _ArrayUnique($aNumber, 0, 0, 0, 0, $ARRAYUNIQUE_FORCE32)


	Return $aNumberUnique
EndFunc   ;==>GetNumbers


Func WriteExcel($sExcelFile, $aFiles)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $bExists = True


	If Not FileExists($sExcelFile) Then
		$bExists = False
		Local $oWorkbook = _Excel_BookNew($oExcel)
		If @error Then
			_Excel_Close($oExcel)
			Return SetError(2, 0, "Error creating the new workbook. Excel UDF: @error = " & @extended & ", @extended = " & @extended)
		EndIf
	Else
		Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, False, True)
		If @error Then
			$iError = @error
			$iExtended = @extended
			_Excel_Close($oExcel)
			Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
		EndIf
	EndIf
	Local Const $xlUp = -4162
	With $oWorkbook.ActiveSheet ; process active sheet
		$oRangeLast = .UsedRange.SpecialCells($xlCellTypeLastCell)
		$iRowCount = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column)).Rows.Count
		$iLastCell = .Cells($iRowCount + 1, "A").End($xlUp).Row
	EndWith


	If $bExists Then
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell + 1)
	Else
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell)
		_Excel_BookSaveAs($oWorkbook, $sExcelFile, $xlExcel8, True)
	EndIf


	_Excel_BookClose($oWorkbook)
	_Excel_Close($oExcel)


EndFunc   ;==>WriteExcel

Alles anzeigen

@alpines Da warst du mal wieder schneller

EDIT: @Sascha123456 Da ist mir doch glatt aufgefallen, dass das Skript so bei dir nicht funktionieren würde. Ich hatte zum Test au3-Dateien beim Auflisten der Dateien eingetragen. Daher konnten keine Ergebnisse mit .ssf-Dateien herauskommen.
Habs korrigiert.

**alpines**

Zitat von autoiter

@alpines Da warst du mal wieder schneller

Naja, du hast es halt mit der Excel-UDF gemacht. Ich dachte mir: Da wird eine csv schon reichen. Kommt ja letztlich eh aufs selbe hinaus.

**autoiter**

Stimmt, da hast du pragmatisch gedacht.

Sascha123456

Vielen Dank euch beiden :).

@autoiter klappt wunderbar, kann man es noch so machen das wenn man das Script ein weiteres mal anwendet er nur noch die neuen Nummer einfügt und die alten die schon in der Excel existieren unberührt lässt und nicht nochmal rein schreibt?
Wenn das zuviel Aufwand ist dann muss das aber nciht auch noch sein

**autoiter**

Kein Problem @Sascha123456,

ich habe da einfach eine Funktion von mir hinein kopiert. Ist etwas länger als notwendig, war jetzt aber für mich weniger Arbeit
Prüf mal, ob das nun passt.

Spoiler anzeigen

AutoIt

#cs ----------------------------------------------------------------------------


	AutoIt Version: 3.3.15.0 (Beta)
	Author:         myName


	Script Function:
	Führende Zahlen con Dateinamen aus einem Verzeichnis extrahieren, Dubletten entfernen und in Excel-Liste schreiben.


#ce ----------------------------------------------------------------------------
#include <Excel.au3>
#include <Array.au3>
#include <File.au3>




#Region --- Deine Einstellungen ---


Global $sExcelFile = "" ; Kompletter Pfad der Excel-Datei, sonst wird im Skriptverzeichnis die Datei "SSF-Dateiliste.xls" erstellt.


Global $sSearchFolder = "" ; SSF-Ordnerpfad. Wenn leer öffnet sich beim Skriptstart ein Ordnerauswahl-Dialog.


#EndRegion --- Deine Einstellungen ---








If Not FileExists($sExcelFile) Then $sExcelFile = @ScriptDir & "\SSF-Dateiliste.xls"
If Not StringInStr(StringRight($sExcelFile, 5), ".xls") Then $sExcelFile = $sExcelFile & "\SSF-Dateiliste.xls"


If $sSearchFolder = "" Then $sSearchFolder = FileSelectFolder("Wähle den Ordner mit den SSF-Dateien", @ScriptDir)
If @error Then Exit


Global $aNumber = GetNumbers()
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Erstellen der Nummern-Liste: " & $aNumber & ")")


Global $sRet = WriteExcel($sExcelFile, $aNumber)
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Schreiben der Excel-Datei(Fehlermeldung der Excel-UDF: " & $sRet & ")")






Func GetNumbers()
	Local $aFiles = _FileListToArray($sSearchFolder, "*.ssf")
	If @error Then Return SetError(1, 0, "Fehler beim Erstellen der Dateiliste")


	Local $aNumber[$aFiles[0]], $iNumberTest, $iCount = 0, $aExcelContent


	If FileExists($sExcelFile) Then $aExcelContent = ReadExcelToArray($sExcelFile)


	For $i = 1 To $aFiles[0]
		$iNumberTest = Number($aFiles[$i])
		If $iNumberTest <> 0 And _ArraySearch($aExcelContent, $iNumberTest) = -1 Then
			$aNumber[$iCount] = $iNumberTest
			$iCount += 1
		EndIf
	Next


	If $iCount = 0 Then Return SetError(1, 0, "Keine (neuen) SSF-Nummern gefunden.")
	ReDim $aNumber[$iCount]
	Local $aNumberUnique = _ArrayUnique($aNumber, 0, 0, 0, 0, $ARRAYUNIQUE_FORCE32)


	Return $aNumberUnique
EndFunc   ;==>GetNumbers




Func ReadExcelToArray($sExcelFile)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $iError, $iExtended


	Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, True, False)
	If @error Then
		$iError = @error
		$iExtended = @extended
		_Excel_Close($oExcel)
		Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
	EndIf


	With $oWorkbook.ActiveSheet ; Aus dem Wiki. Ermittelt den Bereich von A1 bis zur letzten benutzten Zelle. https://www.autoitscript.com/wiki/Excel_Range#Last_Cell
		$oRangeLast = .UsedRange.SpecialCells($xlCellTypeLastCell)
		$oRange = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column))
	EndWith


	Local $aArray = _Excel_RangeRead($oWorkbook, Default, $oRange)
	If @error Then
		$iError = @error
		$iExtended = @extended
		_Excel_Close($oExcel)
		Return SetError(4, 0, "Error reading from workbook. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
	EndIf


	_Excel_Close($oExcel)
	Return $aArray
EndFunc   ;==>ReadExcelToArray
#EndRegion _ReadExcelToArray




Func WriteExcel($sExcelFile, $aFiles)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $bExists = True


	If Not FileExists($sExcelFile) Then
		$bExists = False
		Local $oWorkbook = _Excel_BookNew($oExcel)
		If @error Then
			_Excel_Close($oExcel)
			Return SetError(2, 0, "Error creating the new workbook. Excel UDF: @error = " & @extended & ", @extended = " & @extended)
		EndIf
	Else
		Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, False, True)
		If @error Then
			$iError = @error
			$iExtended = @extended
			_Excel_Close($oExcel)
			Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
		EndIf
	EndIf
	Local Const $xlUp = -4162
	With $oWorkbook.ActiveSheet ; process active sheet
		$oRangeLast = .UsedRange.SpecialCells($xlCellTypeLastCell)
		$iRowCount = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column)).Rows.Count
		$iLastCell = .Cells($iRowCount + 1, "A").End($xlUp).Row
	EndWith


	If $bExists Then
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell + 1)
	Else
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell)
		_Excel_BookSaveAs($oWorkbook, $sExcelFile, $xlExcel8, True)
	EndIf


	_Excel_BookClose($oWorkbook)
	_Excel_Close($oExcel)


EndFunc   ;==>WriteExcel

Alles anzeigen

Sascha123456

@autoiter

kriege da ne Fehlermeldung wenn ich es das 2te mal anwende um neue Nummern mit einzufügen

**autoiter**

Hmm, ehrlich gesagt, keine wirkliche Ahnung.Was benutzt du denn für eine AutoIt Version?

Tausche doch mal deine Excel.au3 mit meiner. Leg die Datei erst einmal in das Skriptverzeichnis und ändere die include Zeile:

AutoIt

; Von:
#include <Excel.au3>


Zu:
#include "Excel.au3"

Sascha123456

@autoiter

wo ist denn das Scriptverzeichnis?

Ich hab die Version 3.3.14.1

Das Script sieht jetzt wie folgt aus:

**autoiter**

Mit Skriptverzeichnis meinte ich das Verzeichnis, in dem auch das Skript liegt, dass du ausführst. Wenn du #include "Excel.au3" schreibst, dann wird die Datei im eigenen Verzeichnis gesucht.

Mittlerweile habe ich mir das auch angesehen. Es gab ein paar Fehlerkorrekturen in der Excel.au3 seit dem letzten Release. Genau dort, wo der Fehler bei dir auftritt, ist nun noch eine Prüfung enthalten, die diesen Absturz verhindert.

Wenn das funktioniert, kannst du die Datei auch gleich in deinen AutoIt3\Include Ordner (und evtl auch in AutoIt3\Beta\Include - falls du den hast) verschieben. (<-- Da musst du aber den Schreibschutz für den Ordner kurz mal aufheben, damit du die Datei überschreiben kannst. Danach wieder setzen).

Sascha123456

Jetzt krieg ich ne andere Meldung

**autoiter**

Okay
Ich schau mir das mal an.

**autoiter**

Hmm, ich kann das bei mir nicht nachvollziehen..
Ich habe den Part mal rausgeschmissen. Probiere es bitte mal mit diesem Skript.

Spoiler anzeigen

AutoIt

#cs ----------------------------------------------------------------------------


	AutoIt Version: 3.3.15.0 (Beta)
	Author:         myName


	Script Function:
	Führende Zahlen con Dateinamen aus einem Verzeichnis extrahieren, Dubletten entfernen und in Excel-Liste schreiben.


#ce ----------------------------------------------------------------------------
#include "Excel.au3"
#include <Array.au3>
#include <File.au3>




#Region --- Deine Einstellungen ---


Global $sExcelFile = "" ; Kompletter Pfad der Excel-Datei, sonst wird im Skriptverzeichnis die Datei "SSF-Dateiliste.xls" erstellt.


Global $sSearchFolder = "" ; SSF-Ordnerpfad. Wenn leer öffnet sich beim Skriptstart ein Ordnerauswahl-Dialog.


#EndRegion --- Deine Einstellungen ---








If Not FileExists($sExcelFile) Then $sExcelFile = @ScriptDir & "\SSF-Dateiliste.xls"
If Not StringInStr(StringRight($sExcelFile, 5), ".xls") Then $sExcelFile = $sExcelFile & "\SSF-Dateiliste.xls"


If $sSearchFolder = "" Then $sSearchFolder = FileSelectFolder("Wähle den Ordner mit den SSF-Dateien", @ScriptDir)
If @error Then Exit


Global $aNumber = GetNumbers()
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Erstellen der Nummern-Liste: " & $aNumber & ")")


Global $sRet = WriteExcel($sExcelFile, $aNumber)
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Schreiben der Excel-Datei(Fehlermeldung der Excel-UDF: " & $sRet & ")")






Func GetNumbers()
	Local $aFiles = _FileListToArray($sSearchFolder, "*.ssf")
	If @error Then Return SetError(1, 0, "Fehler beim Erstellen der Dateiliste")


	Local $aNumber[$aFiles[0]], $iNumberTest, $iCount = 0, $aExcelContent


	If FileExists($sExcelFile) Then $aExcelContent = ReadExcelToArray($sExcelFile)


	For $i = 1 To $aFiles[0]
		$iNumberTest = Number($aFiles[$i])
		If $iNumberTest <> 0 And _ArraySearch($aExcelContent, $iNumberTest) = -1 Then
			$aNumber[$iCount] = $iNumberTest
			$iCount += 1
		EndIf
	Next


	If $iCount = 0 Then Return SetError(1, 0, "Keine (neuen) SSF-Nummern gefunden.")
	ReDim $aNumber[$iCount]
	Local $aNumberUnique = _ArrayUnique($aNumber, 0, 0, 0, 0, $ARRAYUNIQUE_FORCE32)


	Return $aNumberUnique
EndFunc   ;==>GetNumbers




Func ReadExcelToArray($sExcelFile)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $iError, $iExtended


	Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, True, False)
	If @error Then
		$iError = @error
		$iExtended = @extended
		_Excel_Close($oExcel)
		Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
	EndIf


	Local $aArray = _Excel_RangeRead($oWorkbook, Default, Local $aArray = _Excel_RangeRead($oWorkbook, Default, $oWorkBook.Activesheet.UsedRange))
	If @error Then
		$iError = @error
		$iExtended = @extended
		_Excel_Close($oExcel)
		Return SetError(4, 0, "Error reading from workbook. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
	EndIf


	_Excel_Close($oExcel)
	Return $aArray
EndFunc   ;==>ReadExcelToArray
#EndRegion _ReadExcelToArray




Func WriteExcel($sExcelFile, $aFiles)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $bExists = True


	If Not FileExists($sExcelFile) Then
		$bExists = False
		Local $oWorkbook = _Excel_BookNew($oExcel)
		If @error Then
			_Excel_Close($oExcel)
			Return SetError(2, 0, "Error creating the new workbook. Excel UDF: @error = " & @extended & ", @extended = " & @extended)
		EndIf
	Else
		Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, False, True)
		If @error Then
			$iError = @error
			$iExtended = @extended
			_Excel_Close($oExcel)
			Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
		EndIf
	EndIf
	Local Const $xlUp = -4162
	With $oWorkbook.ActiveSheet ; process active sheet
		$oRangeLast = .UsedRange.SpecialCells($xlCellTypeLastCell)
		$iRowCount = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column)).Rows.Count
		$iLastCell = .Cells($iRowCount + 1, "A").End($xlUp).Row
	EndWith


	If $bExists Then
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell + 1)
	Else
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell)
		_Excel_BookSaveAs($oWorkbook, $sExcelFile, $xlExcel8, True)
	EndIf


	_Excel_BookClose($oWorkbook)
	_Excel_Close($oExcel)


EndFunc   ;==>WriteExcel

Alles anzeigen

Sascha123456

Es mag noch nicht^^

**autoiter**

Ja, sorry. Ich habe es eben selbst gemerkt - copy&paste Fehler.

Spoiler anzeigen

AutoIt

#cs ----------------------------------------------------------------------------


	AutoIt Version: 3.3.15.0 (Beta)
	Author:         myName


	Script Function:
	Führende Zahlen con Dateinamen aus einem Verzeichnis extrahieren, Dubletten entfernen und in Excel-Liste schreiben.


#ce ----------------------------------------------------------------------------
#include "Excel.au3"
#include <Array.au3>
#include <File.au3>




#Region --- Deine Einstellungen ---


Global $sExcelFile = "" ; Kompletter Pfad der Excel-Datei, sonst wird im Skriptverzeichnis die Datei "SSF-Dateiliste.xls" erstellt.


Global $sSearchFolder = "" ; SSF-Ordnerpfad. Wenn leer öffnet sich beim Skriptstart ein Ordnerauswahl-Dialog.


#EndRegion --- Deine Einstellungen ---








If Not FileExists($sExcelFile) Then $sExcelFile = @ScriptDir & "\SSF-Dateiliste.xls"
If Not StringInStr(StringRight($sExcelFile, 5), ".xls") Then $sExcelFile = $sExcelFile & "\SSF-Dateiliste.xls"


If $sSearchFolder = "" Then $sSearchFolder = FileSelectFolder("Wähle den Ordner mit den SSF-Dateien", @ScriptDir)
If @error Then Exit


Global $aNumber = GetNumbers()
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Erstellen der Nummern-Liste: " & $aNumber & ")")


Global $sRet = WriteExcel($sExcelFile, $aNumber)
If @error Then Exit MsgBox(0, "Fehler", "Fehler beim Schreiben der Excel-Datei(Fehlermeldung der Excel-UDF: " & $sRet & ")")






Func GetNumbers()
	Local $aFiles = _FileListToArray($sSearchFolder, "*.ssf")
	If @error Then Return SetError(1, 0, "Fehler beim Erstellen der Dateiliste")


	Local $aNumber[$aFiles[0]], $iNumberTest, $iCount = 0, $aExcelContent


	If FileExists($sExcelFile) Then $aExcelContent = ReadExcelToArray($sExcelFile)


	For $i = 1 To $aFiles[0]
		$iNumberTest = Number($aFiles[$i])
		If $iNumberTest <> 0 And _ArraySearch($aExcelContent, $iNumberTest) = -1 Then
			$aNumber[$iCount] = $iNumberTest
			$iCount += 1
		EndIf
	Next


	If $iCount = 0 Then Return SetError(1, 0, "Keine (neuen) SSF-Nummern gefunden.")
	ReDim $aNumber[$iCount]
	Local $aNumberUnique = _ArrayUnique($aNumber, 0, 0, 0, 0, $ARRAYUNIQUE_FORCE32)


	Return $aNumberUnique
EndFunc   ;==>GetNumbers




Func ReadExcelToArray($sExcelFile)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $iError, $iExtended


	Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, True, False)
	If @error Then
		$iError = @error
		$iExtended = @extended
		_Excel_Close($oExcel)
		Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
	EndIf


	Local $aArray = _Excel_RangeRead($oWorkbook, Default, $oWorkBook.Activesheet.UsedRange)
	If @error Then
		$iError = @error
		$iExtended = @extended
		_Excel_Close($oExcel)
		Return SetError(4, 0, "Error reading from workbook. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
	EndIf


	_Excel_Close($oExcel)
	Return $aArray
EndFunc   ;==>ReadExcelToArray
#EndRegion _ReadExcelToArray




Func WriteExcel($sExcelFile, $aFiles)
	Local $oExcel = _Excel_Open(False, Default, Default, False, True)
	If @error Then Return SetError(2, 0, "Error creating the Excel application object. Excel UDF: @error = " & @error & ", @extended = " & @extended)


	Local $bExists = True


	If Not FileExists($sExcelFile) Then
		$bExists = False
		Local $oWorkbook = _Excel_BookNew($oExcel)
		If @error Then
			_Excel_Close($oExcel)
			Return SetError(2, 0, "Error creating the new workbook. Excel UDF: @error = " & @extended & ", @extended = " & @extended)
		EndIf
	Else
		Local $oWorkbook = _Excel_BookOpen($oExcel, $sExcelFile, False, True)
		If @error Then
			$iError = @error
			$iExtended = @extended
			_Excel_Close($oExcel)
			Return SetError(3, 0, "Error opening '" & $sExcelFile & "'. Excel UDF: @error = " & $iError & ", @extended = " & $iExtended)
		EndIf
	EndIf
	Local Const $xlUp = -4162
	With $oWorkbook.ActiveSheet ; process active sheet
		$oRangeLast = .UsedRange.SpecialCells($xlCellTypeLastCell)
		$iRowCount = .Range(.Cells(1, 1), .Cells($oRangeLast.Row, $oRangeLast.Column)).Rows.Count
		$iLastCell = .Cells($iRowCount + 1, "A").End($xlUp).Row
	EndWith


	If $bExists Then
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell + 1)
	Else
		_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aFiles, "A" & $iLastCell)
		_Excel_BookSaveAs($oWorkbook, $sExcelFile, $xlExcel8, True)
	EndIf


	_Excel_BookClose($oWorkbook)
	_Excel_Close($oExcel)


EndFunc   ;==>WriteExcel

Alles anzeigen

Sascha123456

Jetzt kommt beim 2ten Durchlauf wo er dann die neuen Artikelnummern einfügen soll wieder der Fehler mit Line133, wie vorhin.

Hab ich viellicht einen Fehler gemacht? Hab oben die beiden Pfade eingegeben und fertig.

Ok das muss mein Fehler sein, denn wenn ich den Pfad net angebe geht es

**autoiter**

Mann, mann, mann. Ich habe das Skript in Beitrag 18 nochmal geändert. Da hatte ich diesmal wieder das drinnen gelassen, was ich vorher gelöscht hatte.