When using _Excel_RangeRead, the script copies only some cells.

[MateusAMOK]

When using _Excel_RangeRead, the script copies only some cells. Here's an example below:

In the demo, the fetched behavior of the script is:

Copy cell from one line, write to a text file;
Go back to worksheet, copy cell from next row, write to text file (So, successively)

However, as shown, there are some fields that are not copied.
What makes this happen?

 

[Nine]

Show your script using post code method.  Add also your xls file, so we can test.  Make your script runable to us and eliminate all not related lines.  Thanks.

[water]

• Can you please post the exact _Excel_RangeRead statement you use?
• Can you please post the value of @error and @extended after calling _Excel_RangeRead?
• Did you read the wiki about Excel?

[MateusAMOK]

1 hour ago, Nine said:

Show your script using post code method.  Add also your xls file, so we can test.  Make your script runable to us and eliminate all not related lines.  Thanks.

Ok, thank you

1 hour ago, water said:

• Can you please post the exact _Excel_RangeRead statement you use?
• Can you please post the value of @error and @extended after calling _Excel_RangeRead?
• Did you read the wiki about Excel?

 

$campoInicio = InputBox("Linha INICIO", "Insira a Linha INICIO")
$campoFim = InputBox("Linha FIM", "Insira a Linha FIM")

$contaCadastroInicio = StringReplace($campoInicio, "a", "")
$contaCadastroFim = StringReplace($campoFim, "a", "")

$contaCadastroFim = $contaCadastroFim + 1

$excelPlanilha = _Excel_Open()
$sWorkbook = @ScriptDir & "\plan1.xlsx"
$workBookComplete = _Excel_BookOpen($excelPlanilha, $sWorkbook)

While $contaCadastroFim > $contaCadastroInicio
   $excelCodigo = _Excel_RangeRead($workBookComplete, Default, $campoInicio)
   $excelCompatibilidade = _Excel_RangeRead($workBookComplete, Default, StringReplace($campoInicio, "A", "G"))
   ConsoleWrite(">>>>> DESCRIÇÃO DA CÉLULA: " & $excelCompatibilidade & @CRLF)
   ConsoleWrite("<<<<< " & @CRLF)

   $iLength = StringLen($campoInicio)

   $contaCadastroInicio = $contaCadastroInicio + 1

   if $iLength == 2 Then
      $campoInicio = StringLeft($campoInicio,($iLength-1))&$contaCadastroInicio
      ElseIf $iLength == 3 Then
         $campoInicio = StringLeft($campoInicio,($iLength-2))&$contaCadastroInicio
   EndIf
WEnd

 

Thank you

plan1.xlsx

Edited February 21, 2022 by MateusAMOK
Translate

[Jos]

@MateusAMOK, Could you please refrain from translating the quoted text?  Thanks.  

[water]

Please set parameter 5 to True to use the transpose method of the Excel UDF. This removes limitations of Excel's transpose method.

Example:

_Excel_RangeRead($workBookComplete, Default, $campoInicio, 1, True)

 

[Nine]

Your while loop is a tad complex for nothing :

While $contaCadastroFim > $contaCadastroInicio
   $excelCompatibilidade = _Excel_RangeRead($workBookComplete, Default, StringReplace($campoInicio, "A", "G"), 1, True)
   ConsoleWrite(">>>>> DESCRIÇÃO DA CÉLULA: " & $excelCompatibilidade & @CRLF)
   ConsoleWrite("<<<<< " & @CRLF)
   $contaCadastroInicio += 1
   $campoInicio = StringLeft($campoInicio, 1) & $contaCadastroInicio
WEnd