Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Konvertera tabellvärden till XLS format i VB.NET

    A " DataTable " är en VB.NET objekt som låter dig visa data i kolumner och rader till dina läsare . Du kan exportera DataTable information till ett Excel-kalkylblad rad-för - rad. VB.NET innehåller ett Excel -bibliotek , så du behöver inte installera några program från tredje part för att skapa kalkylblad . Filen lagras på servern med ett webbprogram eller på användarens hårddisk med ett datorprogram . Instruktioner
    1

    Klicka på Windows " Start" och välj " Alla program ". Klicka på " Microsoft . NET Framework , " klicka sedan på " Visual Studio " för att öppna VB.NET programmering programvara .
    2

    Klicka på " File " i menyn och välj " Öppna projekt . " Dubbelklicka på VB.NET projekt fil att ladda koden . I den högra " Solution Explorer " panel , högerklicka på filen som du vill använda för att exportera data och välj " Visa kod . " Addera 3

    Lägg systemets biblioteket som innehåller Excel funktioner till toppen av filen :

    Import Excel = Microsoft.Office.Interop.Excel
    4

    Skapa ett nytt kalkylblad för att ladda Excel-funktioner och skapa ett nytt kalkylblad med namnet " order " :

    app = ny Excel.Application ( ) katalog

    ark = ( Excel.Worksheet ) app.ActiveSheet

    sheet.Name = " order "

    5

    iterera genom varje tabellrad och skriva det till kalkylbladet :

    Dim antal As Integer = 1

    för varje rad som DataRow i table.Rows

    count + = 1

    För j As Integer = 1 att table.Columns.Count
    p Om count = 2 Därefter

    sheet.Cells ( 1 , j ) = tabellen . Kolonner ( j - 1 ) . columnName

    End If

    sheet.Cells ( räkna, j ) = row.Item ( j - 1 ) . ToString

    Nästa

    Nästa
    6

    Spara ändringarna till " orders.xls " filen och stäng arbetsboken :

    app.SaveAs ( " orders.xls " ) katalog

    app.Close ( ) katalog

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skriver ett makro för att ut på en knapp Klic…
    ·Hur man använder SQL Query String i VB6 Med Crystal Re…
    ·Lägga till kolumner i Datagrid
    ·Hur man beräknar kolumner i en MS DataGrid
    ·Hur man sparar filtrerad data till en annan tabell i Ac…
    ·Ta reda på om en registernyckel finns i VBScript
    ·Hur man använder rullningslisten med Listbox i Visual …
    ·Hur man programmerar en Array i Visual Basic
    ·Hur man skapar en användare i Active Directory med Vis…
    ·Hur att tolka delar av en sträng i VB
    Utvalda artiklarna
    ·Hur du använder GDB med Eclipse
    ·Hur till rensa upp Perl Script Format
    ·Hur man lägga till en sträng till en annan sträng i …
    ·Hur hämta data i den andra kolumnen i en listruta Punk…
    ·Lägga JButton till JPanel
    ·PHP Form Processing MySQL Query
    ·Hur man tar bort en enhet från en array i PHP
    ·Hur man gör ett Visual Basic Game
    ·Hur man ändrar lösenordet i PHP
    ·Typer av Visual Basic
    Copyright © Dator Kunskap http://www.dator.xyz