Moin,
ich hab eine kurze Frage. Besteht die Möglichkeit mit Autoit herauszufinden welche Zeile die nächst freie ist?
Zum Beispiel sind die ersten drei Zeilen besetzt und das Script soll dann was automatisch in die nächste freie Zelle also hier im Beispiel die Vierte schreiben.
Für einen Tipp wäre ich sehr dankbar. 
CIAO
du kannst in einer Schleife durchgehen
[autoit]For $i = 1 To 10000
If _excelreadcell($oExcel, $i, 1) = "" Then
Msgbox(0, "Gefunden", "Leer Zeile nr. "&$i&" gefunden"
EndIf
Next
Ich kenne deine Exceldatei nicht 
Der geht nur die erste Spalte durch und schaut ob da was drin steht, nicht die Zeile. Du musst schon festlegen,welche Spalte oder welche Spalten leer sein müssen
Also bei mir klappt es
Die Datei heißt test.xls und liegt auf dem Desktop
#include <Excel.au3>
$oExcel = _Excelbookopen(@DesktopDir&"\test.xls")
For $i = 1 To 10000
If _excelreadcell($oExcel, $i, 1) = "" Then
Msgbox(0, "Gefunden", "Leer Zeile nr. "&$i&" gefunden")
EndIf
Next
Besteht die Möglichkeit mit Autoit herauszufinden welche Zeile die nächst freie ist?
Selbstverständlich geht das (und ohne jede Schleife ;)). Excel hält dafür die Methode UsedRange bereit:
$sFilePath = 'C:\test1.xls'
[/autoit][autoit][/autoit][autoit]$oExcel = ObjCreate("Excel.Application")
$oExcel.Workbooks.Open($sFilePath)
; === letzte Zeile
ConsoleWrite('Anzahl Zeilen: ' & $oExcel.Worksheets(1).UsedRange.Rows.Count & @CRLF)
; === letzte Spalte
ConsoleWrite('Anzahl Spalten: ' & $oExcel.Worksheets(1).UsedRange.Columns.Count & @CRLF)
Welche Excelversion hast du? Bei Office 2010 hat sich da was verändert
; #FUNCTION#
;===============================================================================
; Function Name: _ExcelSaveAs($oExcel, $Fileformat, $NewFilepath, $Close = True)
; Description: Speichert eine Exceldatei in einem bestimmten Format ab
; Parameter(s): $oExcel Ein Excelobject, wie es von _ExcelbookOpen oder _ExcelbookNew zurückgegeben wird
; $Fileformat Der Dateityp, in dem gespeichert werden soll (xlsx, xlsb, xlsm, xls, csv, txt, prn)
; $NewFilepath Speicherort und Dateiname der neuen Datei
; $Close = True Soll nach dem Speichern das Objekt geschlossen werden? (Standard = True)
; Return Value(s): Erfolg Gibt 1 zurück
; Fehler @error 1 - $oExcel ist kein Objekt
; 2 - $Fileformat ist keine bekannte Dateiendung oder Formatnummer
; Author(s): TheLuBu ([email='LuBu@veytal.com'][/email])
; Copyright: TheLuBu ([email='LuBu@veytal.com'][/email])
;===============================================================================
Func _ExcelSaveAs($oExcel, $vFileformat, $vNewFilepath, $bClose = True)
If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
Switch $vFileformat
Case 51, "xlsx", ".xlsx"
$vFileformat = 51
Case 50, "xlsb", ".xlsb"
$vFileformat = 50
Case 52, "xlsm", ".xlsm"
$vFileformat = 52
Case 6, "csv", ".csv"
$vFileformat = 6
Case -4158, "txt", ".txt"
$vFileformat = -4158
Case 36, "prn", ".prn"
$vFileformat = 36
Case 56, "xls", ".xls"
$vFileformat = 56
Case Else
Return SetError(2, 0, 0)
EndSwitch
With $oExcel
.Application.DisplayAlerts = False ; Schaltet Fehlermeldungen bei Excel aus
.ActiveWorkBook.SaveAs($vNewFilepath, $vFileformat)
If $bClose Then
.ActiveWorkbook.Close ; Schließt die Tabelle
.Quit ; Schließt das Workbook
EndIf
EndWith
Return 1
EndFunc ;==>_ExcelSaveAs
