Excel need inputbox fill cells and @crlf

[boniakowski]

Hello my friends, i need to fill a sheet with the follow description,

A1= Name

B1= Serial

my question is: i will open an inputbox (Fill the Name) and with an a barcode scanner i fill the data in A2 and next another input box appear asking Serial to be filled in B2 and again all the work begin from the start input box and find the next blank cell to be filled with the name and the same job for the Serial.

Can anybody help me. thanks.

i have done reading: 

_ExcelWriteSheetFromArray _ExcelWriteCell

 but i dont see nothing for me.

thanks again.

Christian Boniakowski.

[water]

Simply do it in a loop and count the row numbers:

$iRow = 1
While 1
    $sName = InputBox(...)
    $sSerial = .... ; Add your barcode scanner code here
    If @error = 1 Then ExitLoop ; User pressed Cancel
    _ExcelWriteCell($oExcel, $sName, $iRow, 1)
    _ExcelWriteCell($oExcel, $sSerial, $iRow, 2)
    $iRow = $iRow + 1
WEnd

[boniakowski]

 

Simply do it in a loop and count the row numbers:

$iRow = 1
While 1
    $sName = InputBox(...)
    $sSerial = .... ; Add your barcode scanner code here
    If @error = 1 Then ExitLoop ; User pressed Cancel
    _ExcelWriteCell($oExcel, $sName, $iRow, 1)
    _ExcelWriteCell($oExcel, $sSerial, $iRow, 2)
    $iRow = $iRow + 1
WEnd

 

Excelent help MVPs i was stuck in a moment, your help rescue my mind.

this is the result of the script 100% working for me.

expandcollapse popup

#include <Excel.au3>


$Location= ("c:\")
$Excel=InputBox("Ingres el Nombre de la Planilla","Introduzca el nombre del archivo a ser creado aqui...","","")
If @error = 1 Then
   Exit
   EndIf
$sExt=(".xls")
$sFile = ($Location&$Excel&$sExt)

If FileExists ($sFile) Then
   $sMsg1=MsgBox(4, "Precaucion!!!","El archivo "&$sFile& " YA EXISTE"&@CRLF&@CRLF&"¿Desea Reemplazarlo?")
      If $sMsg1=7 Then
         Exit
      EndIf
   EndIf


Local $oExcel = _ExcelBookNew() ;Create new book, make it visible
$iRow1 = 1
Local $aArray[3] = ["PUESTO", "NOMBRE", "LEGAJO"]
$iRow1 = $aArray
_ExcelWriteArray($oExcel, 1, 1, $aArray) ; Write the Array Horizontally


$iRow = 2
While 1
    $sName = InputBox("","Puesto","","")
    If $sMsg1=7 Then
      ExitLoop
      EndIf
    $sSerial = InputBox("","Nombre","","") ; Add your barcode scanner code here
    $sLegajo = InputBox("","Legajo","","") ; Add your barcode scanner code here
    If @error = 1 Then ExitLoop ; User pressed Cancel
    _ExcelWriteCell($oExcel, $sName, $iRow, 1)
    _ExcelWriteCell($oExcel, $sSerial, $iRow, 2)
    _ExcelWriteCell($oExcel, $sLegajo, $iRow, 3)
    $iRow = $iRow + 1
 WEnd

 _ExcelBookSaveAs($oExcel, $sFile, "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary
_ExcelBookClose($oExcel) ; And finally we close out

Thank you very very much.

Christian

[water]

I've beautyfied it a bit and removed the surplus brackets and $iRow1 references (they are never used ):

#include <Excel.au3>
 
Global $Location = "c:\"
Global $Excel = InputBox("Ingres el Nombre de la Planilla", "Introduzca el nombre del archivo a ser creado aqui...", "", "")
If @error = 1 Then Exit
Global $sExt = ".xls"
Global $sFile = $Location & $Excel & $sExt
 
If FileExists($sFile) Then
   If MsgBox(4, "Precaucion!!!", "El archivo " & $sFile & " YA EXISTE" & @CRLF & @CRLF & "¿Desea Reemplazarlo?") = 7 Then Exit
EndIf
 
Global $oExcel = _ExcelBookNew() ;Create new book, make it visible
Global $aArray[3] = ["PUESTO", "NOMBRE", "LEGAJO"]
_ExcelWriteArray($oExcel, 1, 1, $aArray) ; Write the Array Horizontally
 
$iRow = 2
While 1
    $sName = InputBox("", "Puesto", "", "")
    If $sMsg1=7 Then Exit
    $sSerial = InputBox("", "Nombre", "", "") ; Add your barcode scanner code here
    $sLegajo = InputBox("", "Legajo", "", "") ; Add your barcode scanner code here
    If @error = 1 Then ExitLoop ; User pressed Cancel
    _ExcelWriteCell($oExcel, $sName, $iRow, 1)
    _ExcelWriteCell($oExcel, $sSerial, $iRow, 2)
    _ExcelWriteCell($oExcel, $sLegajo, $iRow, 3)
    $iRow = $iRow + 1
 WEnd
 
_ExcelBookSaveAs($oExcel, $sFile, "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary
_ExcelBookClose($oExcel) ; And finally we close out