Forum Discussion

stega's avatar
stega
Contributor
11 years ago

Read and write to excel file

Hi All, My problem is to write to an excel file. I can read datas from it, but i want to write to the same file.  I'm adding new attributes with my script, and the first cell contains the attrib...
murugans1011's avatar
murugans1011
Regular Contributor
11 years ago
hi this error occurs if DDT is not closed make sure u closed the ddt driver before accessing the excel driver



to close the excel driver 



   Call DDT.Closedriver(Driver.name)





Writing data to excel sample







Sub Main




  Dim fileName, sheetName




  fileName = "<Path_To_The_File>"




  sheetName = "Sheet1"




  




  Call WriteExcelSheet(fileName, sheetName)




End Sub




 




Sub WriteExcelSheet(fname, sheetName)




  Dim maxcol, maxrow, app, book, sheet, rowCount, row, col




  maxcol = 5




  maxrow = 5




    




  Set app = Sys.OleObject("Excel.Application")




      




  Set book = app.Workbooks.Open(fname)




  Set sheet = book.Sheets(sheetName)




  app.DisplayAlerts = False




  




  ' Write an index of the current row and column to a cell




  rowCount = sheet.UsedRange.Rows.Count + 1




  For row = rowCount To rowCount + maxrow - 1




    For col = 1 To maxcol




      sheet.Cells(row, col) = row & ", " & col




    Next




  Next




    




  book.Save




  app.Quit




End Sub