Appending data in excel sheet.

[Raviteja]

I have a data, in 100 files excel files. The data will be in fixed columns in those 100 files. And number of rows will be variable. I need copy all those data in to 1 excel sheet and to one column sequentially. I am able to copy any(one) file to output file. But unable to do appending one after another. Can any one help?

[water]

Should be possible with the Excel UDF. Will post an example after my vacation after 26th of October. 

[kcvinu]

You mean all data from multiple column into one column ?. If so, Declare a multidimensional array (If those files has uniformity in column numbers, it is easy to declare array) and read all excel files one by one. here is the pseudocode.

1. If all excel files are in a folder loop through them.

2. Read each column and fill the data in each dimension of array.

3. Open the output file and write all data in array to single column. Then empty the array.

4. Repeat this process.

 

Edited October 24, 2016 by kcvinu

[Raviteja]

Hi,

Thank u for the reply.

First i tried to work on this project using simulated data, with which i able to open the file and copy the data.

But failed in appending data. Immediately started working on the pseudo code what u given.

Later i got the files on what i need to work on. Here i am facing another issue, i am unable to open the file.

When i opened normally(directly with out script) it is saying the excel sheet consists unreadable characters

do u want me to open. May be because of this, i am unable to open using script. Can u help me in this.

Error: Fail to open "First file name in the folder"

This is the script what i wrote:

#include <File.au3>
#include <Array.au3>
#include <Excel.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
; Author:         Raviteja
;
; Script Function:

Local $i
Local $j
Local $l = 1
Local $path = "D:\AUTO_IT\Simulator\"

; Create application object
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
$newbook = _Excel_BookNew($oExcel, 5)

Local $FileArray = _FileListToArray($path,"*.xlsm")
For $i = 1 To $FileArray[0]
   Local $book = _Excel_BookOpen($oExcel, $path & $FileArray[$i])
   If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Error", "Fail to open " & $FileArray[$i], 0)
   For $j = 14 To 24  ; For now i made it fixed
      _ExcelReadCell($book, $j, 2)
      _ExcelWriteCell($newbook, $l, 2)
      $l = $l + 1
   Next
Next

_Excel_BookSaveAs($newbook, "D:\AUTO_IT\Final_Report\Report.xlsx", $xlWorkbookDefault, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Status", "Failed to save " & "Report", 0)
MsgBox($MB_SYSTEMMODAL, "Status", "Saved successfully", 0)

Sleep(2000)

_Excel_Close ($oExcel)

[kcvinu]

expandcollapse popup

#include <File.au3>
#include <Array.au3>
#include <Excel.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
; Author:         Raviteja
;
; Script Function:

Local $i
Local $j
Local $l = 1
Local $path = "D:\AUTO_IT\Simulator\"

; Create application object
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
$newbook = _Excel_BookNew($oExcel, 5)

Local $FileArray = _FileListToArray($path,"*.xlsm")
For $i = 1 To $FileArray[0]
   Local $book = _Excel_BookOpen($oExcel, $path & $FileArray[$i])
   If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Error", "Fail to open " & $FileArray[$i], 0)
   For $j = 14 To 24  ; For now i made it fixed
      _ExcelReadCell($book, $j, 2)
      _ExcelWriteCell($newbook, $l, 2)
      $l = $l + 1
   Next
Next

_Excel_BookSaveAs($newbook, "D:\AUTO_IT\Final_Report\Report.xlsx", $xlWorkbookDefault, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Status", "Failed to save " & "Report", 0)
MsgBox($MB_SYSTEMMODAL, "Status", "Saved successfully", 0)

Sleep(2000)

_Excel_Close ($oExcel)

I have posted ur code for clarity. Please use code inserting option when you post code on forum.

 

[mLipok]

@Raviteja please read this:  * How to post code on the forum * 

And if you could, please edit your post accordingly.
Thanks.

[kcvinu]

Can you post your _ExcelReadCell and WriteCell functions here ?

 

[water]

Why not use _Excel_RangeRead and _Excel_RangeWrite?

[Raviteja]

Range read and range write is ok.

In my app, need to access two columns having 1500 lines(rows)  at a time.

So it will increase my application area. So that's why I didn't prefer range read and write.

Read cell and write cell functions I taken it from an UDF and that UDF is also found in this forum itself.

Function is validating the column and rows. If both are valid it is going and reading/writing the cell.

For write:

$oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value = $sValue

For read:

$sValue = $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value

are the lines of code in write cell and read cell functions respectively.

 

After reading approx 3000 cells it is throwing the below error

$sValue = $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value
$oExcel.Activesheet.Cells($sRangeOrRow, $iColumn)^ ERROR

 

Using do while I tried to read it once again. But no luck.

 

 

[Raviteja]

Hi "Water"

 

Please check the below link

The same error I am getting but when I am doing read.

In that link I didn't find any ans. If u have any solution it will

help me greatly.

[water]

Can you please post the full error message you see in SciTE?

[Raviteja]

[water]

Did you check that $dcd_file is an Excel workbook or application object?
Did you check that $id_Cell is a valid number?

[Raviteja]

It is a Excel workbook.

And sure it is a valid number. After your post i validated again.

[water]

I just tried and it works fine here. AutoIt 3.3.12.0 and Excel 2010.

Can you please insert the following line before the crashing line 60 in your script?

MsgBox(0, "",IsObj($dcd_file) & " - " & objname($dcd_file, 1))

 

[Raviteja]

Please go through the code..

 

Edited November 24, 2016 by Raviteja

[water]

Which version of Excel do you run?
Which version of AutoIt do you run?

Could you please post an example workbook that shows the mentioned error we could play with?

 

Edited November 24, 2016 by water

[Raviteja]

I am using Autoit 3.3.14.2 version.

Excel sheet attached.

 

Edited November 24, 2016 by Raviteja

[water]

With AutoIt 3.3.12.0 the script runs to an end without problem.
With 3.3.14.2. I can reproduce your error!

 

[Raviteja]

What is the issue with 3.3.14.2?