Run Microsoft Visual Studio . NET . Wijs naar " Nieuw " in het menu Bestand en klik vervolgens op "Project . " Wanneer het dialoogvenster Nieuw project verschijnt , klikt u op " Visual Basic Project" van het Project Types , en vervolgens onder Sjablonen op " ASP.NET Web Application . "

Type " ExcelVBTest " 2 in de Naam vak en klik op de juiste server in het vak Locatie . Laat de servernaam als " http://localhost , " als je bestanden zijn ondergebracht in uw lokale server , en klik op "OK . " Sleep een " hyperlink " controle van de toolbox naar het webformulier in het WebForm1.aspx bestand . Rechts - klik op de " WebForm1.aspx " bestand , en klik vervolgens op " View Code " om uw project broncode weergegeven
3

Plak de code hieronder om de bovenkant van de pagina : . < br >

Invoer System.Data

Invoer System.Data.Common

Imports
System.Data.SqlClient

Imports System.IO

Imports
System.Text

En dan zijn de volgende code om de " Page_Load " event :

Dim i As Integer Dim

strLine
als Koord , filePath , fileName , fileExcel , koppeling

Dim objFileStream
Zoals FileStream

Dim objStreamWriter
Zoals StreamWriter

Dim nRandom
Zoals Random = New Random ( DateTime.Now.Millisecond )

Dim fs
als Voorwerp , myFile als Voorwerp

Dim cnn als SqlConnection = Nieuw SqlConnection ( " server = ( local) ; databank = pubs ; " & _

" Integrated Security = SSPI " ) op Twitter

' Maak een pseudo - willekeurige bestandsnaam .

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

' Stel een virtuele map aan het bewaren bestand .

' Zorg ervoor dat u de naam van de toepassing naar uw map laten overeenkomen .

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

fileName
= filePath & " \\ " & fileExcel

' Gebruik FileStream het . xls -bestand te maken .

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

objStreamWriter
= Nieuw StreamWriter ( objFileStream ) op

' Gebruik een DataReader om verbinding met de database Pubs .

cnn.Open ( )

Dim sql As String = " select au_id , au_lname , au_fname , telefoon , " & _

" adres , stad, staat , postcode , contract van auteurs "

Dim cmd
Zoals SqlCommand = Nieuw SqlCommand ( sql , cnn ) op Twitter

Dim dr Zoals SqlDataReader

dr
= cmd.ExecuteReader ( ) op

' Inventariseer de veldnamen en records die zijn gebruikt om het bestand op te bouwen .

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

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

Volgende

' de veldnaam informatie schrijven naar bestand < br

objStreamWriter.WriteLine > ( strLine ) op

' de string voor gegevens opnieuw initialiseren .

strLine
= " "

' Inventariseer de database die wordt gebruikt om het bestand te vullen .

Terwijl dr.Read ( ) op

Voor i = 0 To dr.FieldCount - 1

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

Volgende

objStreamWriter.WriteLine
( strLine )

strLine
= " "

End
Terwijl

' Clean een link naar het Excel-bestand .

HyperLink1.Text = " Open Excel "

HyperLink1.NavigateUrl
= fileExcel
4

Klik op " Save All " op de File menu om het project bestanden op te slaan . Klik op " Build " om het project op de Build menu in de Visual Studio . NET Integrated Development Environment . Rechts - klik op de " WebForm1.aspx " formulier in Visual Studio . NET Integrated Development Environment Solution Explorer en voer de code door te klikken op " View in Browser . "