Dator > hur man kan få Visual Basic för att importera Excel-data

  • hur man kan få Visual Basic för att importera Excel-data


  • Visual Basic är ett Microsoft programmeringsspråk som är relativt lätt att använda och Microsoft Access och Excel är applikationer erbjuds i Microsoft Office-paketet . Visual Basic. NET Koden är nödvändig när du arbetar med kalkylblad i Excel och behöver importera data till en Access- databas . Uppgifterna kan behövas i Access för vidare data manipulation med hjälp av databasverktyg
    en
    Starta ett nytt Visual Basic . NET-projekt och lägg till en "knapp " i formuläret . Välj " Project " -menyn och klicka på " Egenskaper ". Välj " Referenser " och klicka på " Lägg till ". Välj " COM " och klicka på " Microsoft Office 12,0 Object Library . " Välj " OK ".
    2
    Skapa ett nytt Excel-ark och lägga till följande uppgifter : .



    Field1Field2

    DataData2

    DataData2


    Spara
    den till " C : \ " som
    <" ExcelToImport. xls . " br > 3 .
    Dubbelklicka på " Button1 " på formuläret för att öppna " Form1. vb . " Skriv följande under " Button1_Click "för att skapa en sub samtal :



    importAllData ( " C : \ ExcelToImport . xls " , "C : . \ AccessFile. mdb " )

    MessageBox. Show ( " importen är klar " )
    4
    Skriv följande för att Skapa en ny undersida som heter " importAllData " som kommer att skapa en ny databasfil för att importera :



    Privat Delad Sub importAllData ( ByVal file_path As String , ByVal db_path As String )



    Dim accessDB Som Microsoft. Office. Interop. Access. Application

    accessDB=Nya Microsoft. Office. Interop. Access. ApplicationClass ()

    accessDB . Synlig=False

    accessDB. NewCurrentDatabase ( db_path , Microsoft. Office. Interop. Access. AcNewDatabaseFormat. acNewDatabaseFormatAccess2007 )

    accessDB. CloseCurrentDatabase ( )

    accessDB. Quit ( Microsoft. Office. Interop. Access. AcQuitOption. acQuitSaveAll )

    accessDB=Inget

    Dim conn Som OleDb. OleDbConnection=MakeExcelConnection ( file_path )



    FillAccessDatabase ( Conn, db_path , file_path )



    End Sub
    5 .
    Skriv följande för att skapa en ny sub heter " FillAccessDatabase " :



    Privat Delad Sub FillAccessDatabase ( ByVal Conn, ByVal db_path , ByVal file_path )

    conn=" Provider=Microsoft. ACE. OLEDB. 12. 0 , " " Data Source=" file_path " , " " Extended Properties=Excel 12,0 ; "

    Dim anslutning enligt OleDb. OleDbConnection=Nya OleDb. OleDbConnection ( conn )

    Dim _command Som OleDb. OleDbCommand=Nya OleDb. OleDbCommand ( )

    _command . Anslutning=anslutning



    _command. CommandText=" SELECT * INTO [ MS Access , Database=" db_path " ] [ Tabell1 ] FROM [ Blad1 $ ] . "

    connection. Open ( )

    _command. ExecuteNonQuery ( )

    connection. Close ( )

    End Sub
    6
    Skriv följande för att skapa en ny funktion som kallas " MakeExcelConnection " .



    Privat gemensam funktion MakeExcelConnection ( ByVal fileName As String ) Som OleDb. OleDbConnection

    Dim conn As String

    conn=" Provider=Microsoft . ACE. OLEDB. 12. 0 , " " Data Source=" Filnamn " , " " Extended Properties=Excel 12,0 ; "

    Dim -anslutning som OleDb. OleDbConnection=Nytt OleDb . OleDbConnection ( conn )

    Retur

    End Function
    7 .
    köra programmet och klicka på " Button1 "för att importera " Blad1 " av ditt Excel-ark till "Blad1 " tabell i Access .


Previous:nothing Next:Hur man skickar html e-post med vb.net





Relaterade artiklar


  • vad är felrapporteringssystem programvara ?
  • hur man skapar en pdf- fil som COBOL programutbud
  • vad är ada programmering ?
  • Hur tar jag bort ett dokument VBA ord ?
  • Ändra textfärg i Java
  • hur man skapar en gratis datorprogram
  • avancerad tutorial på Visual Basic
  • Vad är Microsoft Visual C + + ?
  • hur man beräknar rader kod
  • användningsområden för ActiveX-kontroller