#include <File.au3>
#include <Excel.au3>
#include <Array.au3>
$ID = "charid"
$pw = "charpw"
$sFilePath1 = @ScriptDir & "\Kaydedilcek-excel-dosyasi.xls"
If FileExists($sFilePath1) = 0 Then
$oExcel = _ExcelBookNew(1)
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Kaydedilcek-excel-dosyasi.xls", "xls")
Global $aLastRow = $oExcel.Cells.SpecialCells($xlCellTypeLastCell).Ro w
Else
$oExcel = $sFilePath1
$oExcel = _ExcelBookOpen($oExcel, 1)
Global $aLastRow = $oExcel.Cells.SpecialCells($xlCellTypeLastCell).Ro w
EndIf
_ExcelWriteCell($oExcel, $ID, $aLastRow + 1, 1)
_ExcelWriteCell($oExcel, $pw, $aLastRow + 2, 1)
_ExcelBookClose($oExcel, 1, 0)