Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Visual Basics Programming >> Content
    Hvordan åpne XLS -filer på et skjema i VBA
    Microsoft Office Excel er et regnearkprogram som vanligvis brukes for å analysere store mengder data . Microsoft Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Microsoft Office-programmer . Du kan lage grafiske brukergrensesnitt ( GUI ) i Excel for å gi mer fleksibilitet for brukeren. I noen få skritt , kan du skrive VBA -kode for å åpne en eksisterende Excel-arbeidsbok og vise innholdet gjennom en listeboks -kontroll . Instruksjoner
    en

    start Microsoft Office Excel og skriv følgende på " Ark1 ".

    Type " Felt1 " in " A1 ", " felt2 " in " B1 " , og " Field3 "in" C1 "

    Type" 1 "i " A2 "," 2.1 " i " B2 " , og" 3.5 " i " K2 "

    Lagre arbeidsboken til " C : \\ "som" myExcelData.xls . "
    2

    start Microsoft Office Excel , velg" Developer "-fanen og klikk på« Visual Basic. " Velg " Insert"-menyen og klikk " UserForm . "

    Klikk " Liste- " kontroll i " Toolbox " Window og venstre - klikke hvor som helst på " UserForm1 " for å lage en liste . Klikk " CommandButton " og venstre - klikke hvor som helst på " UserForm1 " for å lage en ny knapp .
    3

    Høyre -klikk " ListBox1 " på skjemaet ditt, og velg " Properties".

    Type 3 ved siden av " Antall kolonner . "
    4

    Dobbeltklikk på " CommandButton1 " for å åpne Microsoft Visual Basic.

    Kopier og lim inn koden nedenfor i den nye modulen.
    5

    Private Sub CommandButton1_Click ( )

    Dim XLApp Som Excel.Application

    Dim XLWbook Som arbeidsbok

    Sett XLApp = Ny Excel.Application

    Set XLWbook = 0 ) = 1 ) = 2) = 0 ) = 1 ) = 2 ) = XLWbook.Sheets ( " Ark1 ") . Range (" K2 ") . Verdi

    XLWbook.Close

    End Sub
    6

    Trykk " F5 "og klikk" CommandButton1 "for å åpne " myExcelData.xls " og vise innholdet i listen .

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan lage en elektronisk Nedtelling 
    ·Hvordan Draw Dice i VB 
    ·Hvordan skrive en lik Kode for Standard kalkulator i VB…
    ·Hvordan utvikle ActiveX- komponenter 
    ·Hvordan bruke VBA til å lage en Counter 
    ·Hvordan redigere registernøkler i VB.Net 
    ·Slik formaterer desimaler i Visual Basic 
    ·Opplæringen av Visual Basic for MSN 
    ·Hvordan skrive VB kode for en berøringsskjerm Tastatur…
    ·Hvordan åpne en fil i Visual Basic 
      Anbefalte artikler
    ·Hvordan legge til kontroller i Google Maps API 
    ·Bruksområder for en rekursiv funksjon 
    ·Slik konverterer Alfabetisk Strenger i C + + 
    ·Hvordan slå av JSP validering i Eclipse 
    ·Hvordan Kill a White Space i Cold Fusion 
    ·Hvordan skrive et nummer i Base 16 
    ·Hvordan lage Myoval & Myrectangle Classes 
    ·Definisjon av Pre - og Post- Processor 
    ·Hvordan Multipliser flere heltall i C 
    ·Hvordan lese heltall i Perl 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/