-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: Ambrose
Message 3 in Discussion
Hi Sampath, I am not using .NET but using the Excel Object in ASP. here is the Code
Set oExcel=Server.CreateObject("Excel.Application")
Set book = oExcel.WorkBooks.Open(Server.MapPath(".") & "/CNS.xls")
Set sheet =book.workSheets(1)
' Tag Names
arrNames=Array("column1","column2","column3","column4","column5","column6")
' Number of Columns
Dim iCount
iCount=5
' Row Number
Dim row
row=1
val=sheet.cells(row,1)
Do While Trim(val)<> ""
For column=1 to iCount
' Generate Columns
if Trim(sheet.cells(row,column))<>"" Then
strColumn=strColumn & CreateNode(arrNames(column - 1),sheet.cells(row,column),true)
End if
Next
strRow=strRow & CreateNode("Row",strColumn,false)
strColumn=""
row=row + 1
val=sheet.cells(row,1)
Loop
book.close()
Set book = Nothing
Set oExcel = Nothing
Thanks Anandraj.A.
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDOTNET/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
