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:
Code vbnet : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68 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
Partager