Gewusst wie: Importieren von Daten aus einer Excel-Kalkulationstabelle in ein Formular in Excel erstellt

Formulare in Microsoft Office Excel können Sie Daten klar und direkt, anstatt sie zu einer Datei auf Ihrer Festplatte darauf verweisen zu präsentieren. Die schnellste Methode zum Importieren von Daten in einem Formular aus einer Kalkulationstabelle ist mithilfe von Visual Basic für Applikationen (VBA). VBA ist eine Computer-Programmiersprache, die zur Automatisierung manueller Aufgaben in Microsoft Office-Anwendungen wie Excel verwendet. Machen Sie Ihre Anwendung durch die Anzeige von Tabellendaten durch Formulare benutzerfreundlicher.

Anweisungen

1 Einführung Microsoft Office Excel und Typ "2" in Zelle "A1", die Zelle "3" in Zelle "B1", "4" in "C1" und "5" in Zelle "D1". Drücken Sie "Strg" und "S", die Tabelle zu speichern. In "C:\Temp" als "source.xlsx" Speichern Sie und schließen Sie die Kalkulationstabelle.

2 Starten Sie Excel um eine neue Arbeitsmappe zu öffnen. Die Registerkarte "Entwicklertools" klicken Sie auf "Visual Basic." Klicken Sie im Menü "Einfügen" und auf "UserForm1" eine neue Form hinzufügen.

3 Klicken Sie auf "ComboBox" im Bereich "Toolbox" und ziehen Sie es in Ihrer Form und halten Sie die Maustaste gedrückt. Lassen Sie Maustaste los, um ein neues Kombinationsfeld-Steuerelement zu erstellen. Fügen Sie eine neue Befehlsschaltfläche mit der gleichen Technik.

4 Doppelklicken Sie auf "CommandButton1" klicken-Ereignisprozedur für die Schaltfläche öffnen. Beginnen Sie mit den folgenden VBA-Code zum Erstellen der Variablen verwendet, um die Tabelle zu öffnen:

Dim sourceXL As Excel.Application

Dim sourceBook As Excel.Workbook

Dim sourceSheet As Excel.Worksheet5

Fügen Sie den folgenden Code, um die Tabelle "source.xlsx" zu öffnen:

Set sourceXL = Excel.Application

Set sourceBook = sourceXL.Workbooks.Open("C:\Temp\source.xlsx")

Set sourceSheet = sourceBook.Sheets(1)6

Geben Sie den folgenden Code, um die Werte von "source.xlsx" erhalten und fügen sie Sie im Kombinationsfeld auf dem Formular:

sourceSheet.Range("A1").Select

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

sourceSheet.Range("B1").Select

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

sourceSheet.Range("C1").Select

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

sourceSheet.Range("D1").Select

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

7 Testen Sie Ihr Programm durch Drücken der Taste "F5" und klicken auf die Befehlsschaltfläche, um Ihr Kombinationsfeld füllen.