Microsoft a son propre langage de programmation - ASP.net , qui signifie Active Server Pages . Cette application s'exécute dans IIS ( Internet Information Services) , qui est un composant gratuit de certains systèmes d'exploitation Microsoft, tels que Windows 2000 et Windows NT 4.0. Vous pouvez utiliser ASP pour divers projets , comme la création de rapports et la création de pages Web. ASP peut contenir des éléments tels que les balises HTML et des scripts , il est donc très flexible et facile à utiliser. Instructions
1

Run Microsoft Visual Studio. NET . Point à "Nouveau" dans le menu Fichier, puis cliquez sur " Project ". Lorsque la boîte de dialogue Nouveau projet apparaît, cliquez sur "Project Visual Basic » à partir des types de projet , puis sous Modèles , cliquez sur " Application Web ASP.NET. "
2

type " ExcelVBTest " dans le nom case et cliquez sur le serveur approprié dans la zone Emplacement . Laissez le nom du serveur comme " http://localhost ", si vos fichiers sont hébergés sur le serveur local, puis cliquez sur "OK". Faites glisser un contrôle "Lien hypertexte " de la boîte à outils vers le formulaire Web dans le fichier WebForm1.aspx. Cliquez-droit sur le fichier " WebForm1.aspx " , puis cliquez sur " Afficher le code " pour afficher le code source de votre projet
3

Collez le code ci-dessous pour le haut de la page: .

Imports System.Data Imports System.Data.Common

Imports System.Data.SqlClient

Imports System.IO Imports

System.Text

puis d'inclure le code suivant à l'événement " Page_Load ":

Dim i As Integer

strLine As String, filePath , nom de fichier , fileExcel , lien Photos

objFileStream As FileStream

objStreamWriter As StreamWriter

nRandom As aléatoire = new Random ( DateTime.Now.Millisecond )

fs As Object , myFile As Object

Dim cnn Comme SqlConnection = New SqlConnection ( "server = (local); database = pubs ; " & _

" Integrated Security = SSPI " )
< p > 'Créer un nom de fichier pseudo -aléatoire.

fileExcel = "t" et nRandom.Next (). ToString () & ". xls "

« Définir un dossier virtuel pour sauver la fichier .

' Assurez-vous que vous changez le nom de l'application en fonction de votre dossier.

filePath = Server.MapPath ("\\ ExcelVBTest " )

filename = filePath & " \\ "& fileExcel

' utilisation FileStream pour créer le fichier . xls.

objFileStream = New FileStream ( fileName , FileMode.OpenOrCreate , FileAccess.Write )

objStreamWriter = Nouveau StreamWriter ( objFileStream )

'Utiliser un DataReader pour se connecter à la base de données Pubs.

cnn.Open ()

Dim sql As String = "select au_id , au_lname , au_fname , le téléphone, "& _

" adresse, ville, état, code postal , un contrat d'auteurs "

cmd As SqlCommand = New SqlCommand ( sql , cnn )

Dim Dr AS SqlDataReader

dr = cmd.ExecuteReader ()

' énumérer les noms de champs et les dossiers qui sont utilisés pour créer le fichier .

For i = 0 To dr . FieldCount - . 1.

strLine = strLine & dr.GetName ( i) ToString & Chr (9) pour

Suivant

», écrivent les informations de nom de domaine à déposer < br >

objStreamWriter.WriteLine ( strLine )

« Réinitialiser la chaîne de données.

strLine =" "

' énumérer la base de données qui est utilisée pour remplir le fichier .

Bien dr.Read ()

For i = 0 To dr.FieldCount - 1 x

strLine = strLine & dr.GetValue ( i) & Chr (9) Photos

Suivant

objStreamWriter.WriteLine ( strLine )

strLine = ""

End While

'Clean un lien vers le fichier Excel.

HyperLink1.Text = " Ouvrez Excel "

HyperLink1.NavigateUrl = fileExcel
4

cliquez sur "Save All" sur le fichier Menu pour enregistrer les fichiers de projet. Cliquez sur " Créer " pour créer le projet dans le menu Générer dans Visual Studio. NET Environnement de développement intégré . Cliquez-droit sur la forme " WebForm1.aspx " dans Visual Studio. NET Environnement Explorateur de solutions intégrées de développement et exécuter le code en cliquant sur " Afficher dans le navigateur ».