Search This Blog

Friday, July 30, 2010

Basic Excel

Lets us open an excel sheet and try to read and write data into it.

Set Excel = CreateObject("Excel.Application")
Set Book = Excel.Workbooks.Open("Path")
Set Sheet = Book.Worksheets("Global")

For Row = 1 to 4
For Col = 1 to 3

msgbox Sheet.Rows(Row).Columns(Col)

Next
Next

For Row = 1 to 4
For Col = 1 to 3

Sheet.Rows(Row).Columns(Col).value = Row+Col

Next
Next

No comments:

Post a Comment