Microsoft tem a sua própria linguagem de programação - ASP.net , que significa Active Server Pages. Este aplicativo é executado dentro do IIS (Internet Information Services) , que é um componente gratuito de certos sistemas operacionais da Microsoft , como o Windows 2000 e Windows NT 4.0. Você pode usar ASP para vários projetos , tais como a criação de relatórios e construção de páginas web. ASP pode conter elementos como tags HTML e scripts, por isso é muito flexível e fácil de usar. Instruções
1

Run Microsoft Visual Studio. NET . Aponte para "New" no menu Arquivo e clique em "Projeto ". Quando o diálogo New Project aparece, clique em " projeto do Visual Basic " dos Tipos de projeto e , em seguida, em Modelos, clique em " ASP.NET Web Application ".
2

Type " ExcelVBTest " no nome caixa e clique no servidor apropriado na caixa Local . Deixe o nome do servidor como " http://localhost ", se seus arquivos estão alojados em seu servidor local, e clique em " OK". Arraste um controle " HYPERLINK" na caixa de ferramentas para o formulário da Web no arquivo WebForm1.aspx. . Botão direito do mouse no arquivo " WebForm1.aspx " e clique em "View Code " para visualizar o código-fonte do seu projeto
3

Cole o código abaixo para o topo da página :

Imports System.Data

Imports System.Data.Common

Imports System.Data.SqlClient

Imports System.IO Imports

System.Text

E então incluir o código de sucessão ao " Page_Load " event:

Dim i as Integer Dim

strLine as String , filePath , fileName , fileExcel , ligação

Dim objFileStream Como FileStream

Dim objStreamWriter Como StreamWriter

Dim nRandom como Random = new Random ( DateTime.Now.Millisecond )

Dim fs As Object , myFile As Object

Dim cnn Como SqlConnection = New SqlConnection (" server = (local); banco de dados = bares ;" & _

" Integrated Security = SSPI" )

'Criar um nome de arquivo pseudo -aleatório.

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

' Definir uma pasta virtual para salvar o arquivo .

' Certifique-se de mudar o nome do aplicativo para corresponder à sua pasta.

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

fileName = filePath & " \\ "& fileExcel

'Use FileStream para criar o arquivo xls . .

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

objStreamWriter = Novo StreamWriter ( objFileStream )

' Use um DataReader para se conectar ao banco de dados Pubs .

cnn.Open ()

Dim sql as String = "select id_au , at_nome , au_fname , telefone, "& _

" endereço, cidade , estado, CEP , contrato de autores "

Dim cmd Como SqlCommand = New SqlCommand ( sql , cnn )

Dim dr as SqlDataReader

dr = cmd.ExecuteReader ()

' Enumerar os nomes dos campos e registros que são usados ​​para criar o arquivo .

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

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

Próxima

'Escreva as informações de nome de campo para o arquivo < br >

objStreamWriter.WriteLine ( strLine )

' reinicializar a string para dados.

strLine = ""

' Enumerar o banco de dados que é usado para preencher o arquivo .

Enquanto dr.Read ()

For i = 0 To dr.FieldCount - 1

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

Próxima

objStreamWriter.WriteLine ( strLine )

strLine = ""

End While

"Clean um link para o arquivo do Excel.

HyperLink1.Text = " Abra o Excel "

HyperLink1.NavigateUrl = fileExcel
4

Clique em " Save All" no Arquivo menu para salvar os arquivos do projeto . Clique em " Criar " para criar o projeto no menu Build no Visual Studio. NET Integrated Development Environment. Botão direito do mouse na forma de " WebForm1.aspx " no Visual Studio. Integrated Development Environment Solution Explorer, e executar o código , clicando em " View in Browser. "