• 
  

  hur man öppnar xls filer på ett formulär i VBA

  
  

Microsoft Office Excel är ett kalkylprogram som vanligen används för att analysera stora mängder data . Microsoft Visual Basic for Applications (VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Microsoft Office -program. Du kan skapa grafiska användargränssnitt ( GUI ) i Excel för att ge mer flexibilitet för användaren . I några få steg kan du skriva VBA- kod för att öppna en befintlig Excel- arbetsbok och visa dess innehåll genom en listrutekontroll
1
Starta Microsoft Office Excel och skriv följande om " Blad1 ".



Skriv " Fält1 " i " A1 ", " Fält2 " i " B1 "och " Field3 "i " C1 "

typ " 1 " i " A2 " , " 2,1 " i " B2 "och " 3,5 "i " C2 "



Spara arbetsboken till " C : . \ "som " myExcelData. xls "
2 .
Starta Microsoft Office Excel markerar du " Utvecklare " klicka därefter på " Visual Basic . " Välj " Infoga " -menyn och klicka på " UserForm . "



Klicka på " ListBox " kontroll i "Toolbox " Fönster och vänster-klicka var som helst på " UserForm1 "för att skapa en listruta . Klicka på " CommandButton " och vänster-Klicka var som helst på " UserForm1 "för att skapa en ny knapp .
3 .
Högerklicka på " ListBox1 " i formuläret och välj " Egenskaper ".



typ 3 bredvid " AntalKolumner . "
4 .
Dubbelklicka på " CommandButton1 "för att öppna Microsoft Visual Basic.



Kopiera och klistra in koden nedanför på din nya modulen .
5 .
Private Sub CommandButton1_Click ( )



Dim xlApp Som Excel. Application

Dim XLWbook Som arbetsbok

Ange xlApp=Nya Excel. Application

Set XLWbook=XLApp. Workbooks. Open ( "C : \ myExcelData. xls " )



XLWbook. Sheets ( "Blad1 " ) . Välj



XLWbook. Sheets ( "Blad1 " ) . Range ( " A1 " ) . Välj

Me. ListBox1. AddItem

Me. ListBox1. List (0 , 0 )=XLWbook. Sheets ( "Blad1 " ) . Range ( " A1 " ) . Value



XLWbook. Sheets ( "Blad1 " ) . Range ( " B1 " ) . Välj

Me. ListBox1. AddItem

Me. ListBox1. List (0 , 1)=XLWbook. Sheets ( "Blad1 " ) . Range ( " B1 " ) . Value



XLWbook. Sheets ( "Blad1 " ) . Range ( " C1 " ) . Välj

Me. ListBox1. AddItem

Me. ListBox1. List (0 , 2)=XLWbook. Sheets ( "Blad1 " ) . Range ( " C1 " ) . Value



XLWbook . Sheets ( "Blad1 " ) . Range ( " A2 " ) . Välj

Me. ListBox1. AddItem

Me. ListBox1. List (1 , 0 )=XLWbook. Sheets ( "Blad1 " ) . Range ( " A2 " ) . Value



XLWbook. Sheets ( "Blad1 " ) . Range ( " B2 " ) . Välj

Me. ListBox1. AddItem

Me. ListBox1. List (1 , 1)=XLWbook. Sheets ( "Blad1 " ) . Range ( " B2 " ) . Value



XLWbook. Sheets ( "Blad1 " ) . Range ( " C2 " ) . Välj

Me. ListBox1. AddItem

Me. ListBox1. List (1 , 2)=XLWbook. Sheets ( "Blad1 " ) . Range ( " C2 " ) . Value



XLWbook . Stäng



End Sub
6 .
Tryck på " F5 " och klicka på " CommandButton1 "för att öppna din " myExcelData. xls " och visa dess innehåll i listrutan .

Previous：nothing Next：hur man kan få VBA för att öppna ett Word-dokument

Relaterade artiklar