ASP Excel worksheet

[magix]

Hi,

If I have following code to read the excel file, how do I validate the
worksheets name ? In code below, if the filename doesn't contains "SomeName"
worksheet, I will need to prompt error.


set oConn = server.createobject("adodb.connection")

oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Properties("Extended Properties").Value = "Excel 8.0"
oConn.Open server.mappath("excel/" & request.querystring("filename"))

strCSVFileName1 = "SomeName$"


Thanks.

Regards.

 

[James Jones]

use FSO and check to see if the file exists


Option Explicit

Dim oFSO, message
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(Request.QueryString("filename")) Then
set oConn = server.createobject("adodb.connection") oConn.Provider =
"Microsoft.Jet.OLEDB.4.0"oConn.Properties("Extended Properties").Value =
"Excel 8.0"oConn.Open server.mappath("excel/" &
request.querystring("filename"))strCSVFileName1 = "SomeName$"message = "The
file exists!"Elsemessage = "The file selected does not exists."End If
Set oFSO = Nothing

 

[magix]

I'm not looking for whether the excel file exists or not.
I'm looking into whether the worlsheet called "SomeName$" exists in that
excel file.

 

[James Jones]

o ok, lol sorry. i misread your post.

sorry, im unable to help with that.


Jay


http://groups.yahoo.com/groups/classicasp/

 

[Mike Brind]

Hi,

If I have following code to read the excel file, how do I validate the
worksheets name ? In code below, if the filename doesn't contains "SomeName"
worksheet, I will need to prompt error.


set oConn = server.createobject("adodb.connection")

oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Properties("Extended Properties").Value = "Excel 8.0"
oConn.Open server.mappath("excel/" & request.querystring("filename"))

strCSVFileName1 = "SomeName$"

You can iterate through the worksheets using ADOX thus:

<%
Dim oADOX
Set oADOX = CreateObject("ADOX.Catalog")
oADOX.ActiveConnection = yourconnection
For Each oTable in oADOX.Tables
Response.Write oTable.Name
%>

 

[Mike Brind]

You can iterate through the worksheets using ADOX thus:

<%
Dim oADOX
Set oADOX = CreateObject("ADOX.Catalog")
oADOX.ActiveConnection = yourconnection
For Each oTable in oADOX.Tables
Response.Write oTable.Name
%>

Ah. My "Next" fell below my sig.

Should have read:

<%
Dim oADOX
Set oADOX = CreateObject("ADOX.Catalog")
oADOX.ActiveConnection = yourconnection
For Each oTable in oADOX.Tables
Response.Write oTable.Name
Next
%>