Opeate Excel

Dim strUrl As String = "http://www.mtsindices.com/datafiles/index_fixing/1730/eMTX_1730.xls"

        Dim filename As System.String = "C:\Xignite\Services\Rates\MTX\today.xls"

        Dim path As String = "C:\Xignite\Services\Rates\MTX\"
        Dim dt As New System.Data.DataTable
        Dim strDate As System.String = Nothing
        If (Not System.IO.Directory.Exists(path)) Then
            System.IO.Directory.CreateDirectory(path)
        End If
        'Try
        '    Dim client As System.Net.WebClient = New System.Net.WebClient()
        '    client.DownloadFile(strUrl, filename)
        'Catch ex As Exception
        'End Try

        Dim con As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + filename + ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1""")
        con.Open()


        Dim dtSheetName As System.Data.DataTable = con.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"})
        Dim strTableNames As String()
        Dim isGoodData As System.Boolean = True
        ReDim strTableNames(dtSheetName.Rows.Count)
        For num As System.Int32 = 0 To dtSheetName.Rows.Count - 1
            strTableNames(num) = dtSheetName.Rows(num)("TABLE_NAME").ToString()
        Next
        Dim da As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [" + strTableNames(0) + "]", con)
        da.Fill(dt)