Hur till Öppen XLS filer på ett formulär i VBA

November 18

Hur till Öppen 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 listruta kontroll.

Instruktioner

1 Starta Microsoft Office Excel och skriver följande på "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, välj "Utvecklare" -fliken och klicka sedan på "Visual Basic." Välj "Infoga" -menyn och klicka på "Userform."

Klicka på "ListBox" kontroll i "Toolbox" Fönster och vänsterklicka någonstans på "UserForm1" för att skapa en listruta. Klicka på "Command" och vänsterklicka någonstans på "UserForm1" för att skapa en ny knapp.

3 Högerklicka på "ListBox1" på formuläret och välj "Egenskaper".

Typ tre bredvid "column."

4 Dubbelklicka på "CommandButton1" för att öppna Microsoft Visual Basic.

Kopiera och klistra in koden nedan i din nya modulen.

5 Private Sub CommandButton1_Click ()

Dim XLApp Såsom Excel.Application

Dim XLWbook Såsom arbetsbok

Ställ XLApp = Ny Excel.Application

Ställa 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"). Värde

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

Me.ListBox1.AddItem

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

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

Me.ListBox1.AddItem

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

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

Me.ListBox1.AddItem

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

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

Me.ListBox1.AddItem

Me.ListBox1.List (1, 1) = XLWbook.Sheets ( "Blad1"). Range ( "B2"). Värde

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

Me.ListBox1.AddItem

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

XLWbook.Close

End Sub

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


        

Välkommen till dig för att skicka en kommentar:

            
            
            
            

© 2022 Astrixsoft.com | Contact us: webmaster# astrixsoft.com