none
[ASP.NET 1.1.43] Excel n'affiche rien RRS feed

  • Question

  • Bonjour webmestres,

    j'ai voulu faire le malin aujourd'hui en réinstallant Office 2000. J'ai de plus voulu créer mes dll à l'aide de ce script

    SET prog="C:\Program Files\Microsoft Visual Studio .NET\FrameworkSDK\Bin\TlbImp.exe"
    %prog% EXCEL9.OLB /out=Excel.dll

    J'ai ensuite lié cette dll à mon projet en remplaçant l'ancienne de même nom.

    Après ça excel ne m'a renvoyé que des pages blanches. Du coup j'ai réinstallé Office mais toujours le même problème.

    Si vous avez des idées pour rétablir l'ordre précédent?

    voici mon code au cas ou:

    Public Class WebForm1
    Inherits System.Web.UI.Page

    #Region " Code généré par le Concepteur Web Form "

    'Cet appel est requis par le Concepteur Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN*: cet appel de méthode est requis par le Concepteur Web Form
    'Ne le modifiez pas en utilisant l'éditeur de code.
    InitializeComponent()
    End Sub

    #End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Placez ici le code utilisateur pour initialiser la page

    Try
    Dim mtable As New ArrayList()
    mtable = chargeliste()
    Dim MaLigne As DataRow
    Dim Temp As String
    Dim i As Integer = 0

    Temp = "<TABLE BORDER=1><TR>"
    Temp &= "<TD><B>Nom Prenom</B></TD>"
    Temp &= "<TD><B>Service</B></TD>"
    Temp &= "<TD><B>Localite</B></TD>"
    Temp &= "<TD><B>Telephone</B></TD>"
    Temp &= "<TD><B>Poste</B></TD>"
    Temp &= "<TD><B>Email</B></TD>"
    Temp &= "</TR>"
    For i = 0 To mtable.Count - 1
    Temp &= "<TR>"
    Temp &= "<TD>" & mtable.Item(i) & "</TD>"
    Temp &= "</TR>"
    Next i
    Temp &= "</TABLE>"
    ' Temp = ZfStringUtil.SupprimeAccent(Temp)
    HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default
    HttpContext.Current.Response.ContentType = "application/vnd.ms-excel"
    'HttpContext.Current.Response.ContentType = "application/msword"
    HttpContext.Current.Response.Write(Temp)
    Catch

    Finally
    End Try


    End Sub

    Function chargeliste()
    Dim t As New ArrayList()

    t.Add("aaa richard")
    t.Add("aaa anthony")
    t.Add("aaa zorgax")

    Return t

    End Function

    End Class
    mardi 6 mars 2007 16:59