操作EXCEL

''''''''''''根据脚本复制文件'''''''''''
        Dim filename As String = CStr(Timer()) + ".xls"
        If File.Exists(Server.MapPath("daochu/script.xls")) Then
            File.Copy(Server.MapPath("daochu/script.xls"), Server.MapPath("daochu/" + filename))
        End If

''''''''''''''''读ＥＸＣＥＬ表''''''''''''''''''''
        Dim strconn As String = "provider=microsoft.jet.oledb.4.0;data source=" + Server.MapPath("daochu/" + filename) + ";Extended Properties=Excel 8.0"
        Dim conn As OleDbConnection = New OleDbConnection(strconn)
        Dim comm As New OleDbCommand
        conn.Open()
        comm.Connection = conn
        comm.CommandType = CommandType.Text
        Dim ds As DataSet = New DataSet
        Dim aadr As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select * from jifang where zhandian='" + zhandian2.Value + "'", ConfigurationSettings.AppSettings("strcnn"))
        aadr.Fill(ds, "jifang")
        Dim i As Integer
        For i = 0 To ds.Tables("jifang").DefaultView.Count - 1
            comm.CommandText = "insert into [Sheet1$]  values('" + ds.Tables("jifang").DefaultView ("jifang").ToString + "','" + ds.Tables("jifang").DefaultView ("jifangbianhao").ToString + "')"
            comm.ExecuteNonQuery()
        Next
        conn.Close()