Hvordan importere data fra et Excel-regneark til et skjema som er opprettet i Excel

December 11

Skjemaer i Microsoft Office Excel kan hjelpe deg presentere data tydelig og direkte, i stedet henviser dem til en fil på harddisken. Den raskeste måten å importere data til et skjema fra et regneark er ved hjelp av Visual Basic for Applications (VBA). VBA er et programmeringsspråk som brukes til å automatisere manuelle oppgaver i Microsoft Office-programmer, for eksempel Excel. Gjør din søknad mer brukervennlig ved å vise regnearkdata gjennom former.

Bruksanvisning

1 Start Microsoft Office Excel og skriv "2" i celle "A1", "3" i celle "B1", "4" i celle "C1" og "5" i cellen "D1". Trykk "Ctrl" og "S" for å lagre regnearket. Lagre den i "C: \ Temp" som "source.xlsx" og lukke regnearket.

2 Start Excel for å åpne en ny arbeidsbok. Klikk på "Utvikler" fanen, klikk på "Visual Basic". Klikk på "Insert" -menyen og klikk "UserForm1" for å legge til en ny form.

3 Klikk "ComboBox" på "Toolbox" panelet og dra den til skjemaet mens du holder museknappen. Slipp museknappen for å opprette en ny kombinasjonsbokskontroll. Legg til en ny kommandoknapp ved hjelp av samme teknikk.

4 Dobbeltklikk på "CommandButton1" for å åpne klikk-event prosedyre for knappen. Start med å legge til følgende VBA-kode for å lage de variablene som brukes til å åpne regnearket:

Dim sourceXL As Excel.Application

Dim Source Som Excel.Workbook

Dim sourceSheet Som Excel.Worksheet

5 Legg til følgende kode for å åpne "source.xlsx" regneark:

Set sourceXL = Excel.Application

Sett Source = sourceXL.Workbooks.Open ( "C: \ Temp \ source.xlsx")

Sett sourceSheet = sourceBook.Sheets (1)

6 Skriv inn følgende kode for å få verdiene fra «source.xlsx" og legge dem til kombinasjonsboksen på Form:

sourceSheet.Range("A1").Select

Me.ComboBox1.AddItem (sourceSheet.Range ( "A1"). Verdi)

sourceSheet.Range ( "B1"). Velg

Me.ComboBox1.AddItem (sourceSheet.Range ( "B1"). Verdi)

sourceSheet.Range ( "C1"). Velg

Me.ComboBox1.AddItem (sourceSheet.Range ( "C1"). Verdi)

sourceSheet.Range ( "D1"). Velg

Me.ComboBox1.AddItem (sourceSheet.Range ( "D1"). Verdi)

7 Test programmet ved å trykke "F5" og klikke på kommandoknappen for å fylle din kombinasjonsboksen.