Vbscript write output to excel doing multiple rows

Vbscript write output to excel doing multiple rows

If you want to extract data from excel following VB script will be needful.

Dim objExcel

Dim excelPath

Dim worksheetCount
Dim counter

Dim currentWorkSheet

Dim usedColumnsCount

Dim usedRowsCount
Dim row
Dim column

Dim top

Dim Cells

Dim curCol
Dim curRow

Dim word



excelPath = "C:ExcelFilesBook2.xls"

WScript.Echo "Reading Data from " & excelPath


Set objExcel = CreateObject("Excel.Application")


objExcel.DisplayAlerts = 0


objExcel.Workbooks.open excelPath, false, true



workSheetCount = objExcel.Worksheets.Count

WScript.Echo "We have " & workSheetCount & " worksheets"


For counter = 1 to workSheetCount
	WScript.Echo "-----------------------------------------------"
	WScript.Echo "Reading data from worksheet " & counter & vbCRLF

	Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(counter)
	
	usedColumnsCount = currentWorkSheet.UsedRange.Columns.Count
	
	usedRowsCount = currentWorkSheet.UsedRange.Rows.Count

	
	top = currentWorksheet.UsedRange.Row
	
	left = currentWorksheet.UsedRange.Column


	Set Cells = currentWorksheet.Cells
	
	For row = 0 to (usedRowsCount-1)
		
		
		For column = 0 to usedColumnsCount-1
			
			curRow = row+top
			
			curCol = column+left
			 
			word = Cells(curRow,curCol).Value
		
			WScript.Echo (word)
		Next
	Next

	
	Set currentWorkSheet = Nothing
Next

objExcel.Workbooks(1).Close
objExcel.Quit

Set currentWorkSheet = Nothing

Set objExcel = Nothing