Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come convertire i valori della tabella per formato XLS in VB.NET

A " DataTable " è un oggetto di VB.NET che consente di visualizzare i dati in righe e colonne per i lettori. È possibile esportare le informazioni oggetto DataTable a un foglio di calcolo Excel riga per riga. VB.NET include una libreria di Excel , in modo che non c'è bisogno di installare tutte le applicazioni di terze parti per creare il foglio di calcolo . Il file è memorizzato sul server con un'applicazione Web o sul disco rigido del vostro utente con un'applicazione desktop . Istruzioni
1

Fare clic sul pulsante di Windows "Start " e selezionare " Tutti i programmi ". Fare clic su " . NET Framework di Microsoft , " quindi su " Visual Studio" per aprire il software di programmazione VB.NET .

2 Fare clic sulla voce di menu " File " e selezionare " Open Project ". Fare doppio clic sul file di progetto VB.NET per caricare il codice . Nel pannello di destra " Solution Explorer " , fare clic destro sul file che si desidera utilizzare per esportare i dati e selezionare " Visualizza codice ".
3

Aggiungere la libreria di sistema che contiene l' Excel funzioni per la parte superiore del file :

Importazioni Excel = Microsoft.Office.Interop.Excel
4

creare un nuovo foglio di calcolo per caricare le funzioni di Excel e creare un nuovo foglio di calcolo denominato " ordini " :

app = new Excel.Application ( ) per

foglio = ( Excel.Worksheet ) app.ActiveSheet

sheet.Name = " ordini "

5

scorrere ogni riga della tabella e scrivere per il foglio di calcolo :

Dim count As Integer = 1

per ogni riga come DataRow In
table.Rows

count + = 1

j As Integer = 1 To table.Columns.Count

Se count = 2 allora

sheet.Cells ( 1 , j ) = tavolo . colonne ( j - 1) . NomeColonna

End If

sheet.Cells ( conteggio , j ) = row.Item ( j - 1) . ToString

Avanti

Avanti
6

Salvare le modifiche al file " orders.xls " e chiudere la cartella di lavoro :

app.SaveAs ( " orders.xls " ) per

app.Close ( ) per

 

Programmazione © www.354353.com