Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Simple Excel Read

Keywords: 	  simple excel read

cXls = "C:\Incoming\1 work\testnum.xls"

DB             = ObjectOpen("Excel.Application")
DB.Visible     = @FALSE
DB.UserControl = @FALSE
oAPP           = DB.Workbooks

oAPP.Open("%cXls%")

oWS    = DB.Worksheets(1)
oWS.Activate

For i=1 to 8
  oCell  = oWS.Cells(i,1)
  cType  = oCell.Value
  oCell  = oWS.Cells(i,2)
  cValue = oCell.Value
  message(cType,cValue)
Next

ObjectClose(oWS)
oAPP.Close()
ObjectClose(oAPP)
ObjectClose(DB)

exit

Article ID:   W14933