|
Microsoft Excel est un tableur qui vous permet d'entrer et de gérer de grandes quantités de données dans des feuilles de calcul. Si vous souhaitez transférer des données dans Excel à partir d'une base de données, Visual Basic est un langage de programmation de Microsoft qui vous permet de copier le contenu d'un ensemble de données dans un fichier Excel. Visual Basic a été conçu pour les programmeurs débutants et est principalement utilisé pour développer et personnaliser des applications Windows comme Word, PowerPoint et Excel. Instructions
1 Créer un nouveau fichier de classe dans votre projet appelé " DataTableHelper.vb "
2 Copiez le copie suivant dans le nouveau fichier : . Importations SystemImports System.DataImports System.IO
public Class DataTableHelper
'' pouvez écouter DataTable navigateur, directement , vous devez configurer '' Response.Clear (); " Response.Buffer = true; " Réponse . ContentType = "application /vnd.ms -excel " , " Response.AddHeader ( " Content-Disposition "," inline ; filename = Clientes.xls "); ' Response.Charset =" "; " this.EnableViewState = false ' ACTUAL CODE ' ProduceCSV ( dt , Response.Output , true); '
public Shared Sub ProduceCSV ( ByVal dt Comme DataTable, _ByVal httpStream Comme System.IO.TextWriter , WriteHeader ByVal As Boolean ) i As Int32Dim j Comme Int32If WriteHeader Puis
Dim arr ( dt.Columns.Count ) As String
For i = 0 To dt.Columns.Count - . 1arr (i) = dt.Columns ( i) ColumnNamearr (i) = GetWriteableValue ( arr (i)) NexthttpStream.WriteLine ( String.Join ("," , arr ) ) End If
Pour j = 0 To dt.Rows.Count - 1Dim dataArr ( dt. Columns.Count ) Comme StringFor i = 0 To dt.Columns.Count - 1Dim o As Object = dt.Rows (j) ( i) dataArr (i) = GetWriteableValue ( o) NexthttpStream.WriteLine ( String.Join ("," , dataArr ) ) Suivant
End Sub
# Region " CSVProducer " public Shared Sub ProduceCSV ( ByVal dt Comme DataTable, fichier _ByVal Comme System.IO.StreamWriter , ByVal WriteHeader As Boolean ) < br > Dim i Comme Int32Dim j Comme Int32If ( WriteHeader ) ThenDim arr ( dt.Columns.Count ) Comme StringFor i = 0 To dt.Columns.Count - . 1arr (i) = dt.Columns ( i) ColumnNamearr (i ) = GetWriteableValue ( arr (i)) Nextfile.WriteLine ( String.Join ("," , arr ) ) End If
Pour j = 0 To dt.Rows.Count - dataArr 1Dim ( dt.Columns . comptez ) Comme StringFor i = 0 To dt.Columns.CountDim o As Object = dt.Rows (j) ( i) dataArr (i) = GetWriteableValue ( o) Nextfile.WriteLine ( String.Join ("," , dataArr ) ) NextEnd Sous
Shared Function GetWriteableValue ( ByVal o As Object ) Comme StringIf o Est Rien OrElse IsDBNull ( o) ThenReturn "" ElseIf ( o.ToString (). IndexOf ( ",") = -1) ThenReturn o.ToString () ElseReturn "\\" " + o.ToString () + " \\ ""
End Function IfEnd # End Region
fin classe
3 exécuter le code ci-dessous pour utiliser la nouvelle classe , et de voir la sortie csv à la console: dt As DataTable = ds.Tables (0) swriter As IO.StreamWriter = New IO.StreamWriter ( "c: \\ yourCSVFile.csv " ) DataTableHelper.ProduceCSV ( dt , swriter , True)
|
