Moduli in Microsoft Office Excel consente di presentare i dati in modo chiaro e diretto, piuttosto che li fa riferimento a un file sul disco rigido. Il modo più rapido per importare dati in un form da un foglio di calcolo è utilizzando Visual Basic for Applications (VBA). VBA è un linguaggio di programmazione utilizzato per automatizzare le attività manuali in applicazioni di Microsoft Office, come Excel. Rendere più facile da usare l'applicazione di visualizzazione dei dati del foglio di calcolo attraverso forme.

Istruzioni

1

Lancio di Microsoft Office Excel e di tipo "2" nella cella "A1", "3" nella cella "B1", "4" nella cella "C1" e "5" nella cella "D1". Premere "Ctrl" e "S" per salvare il foglio di calcolo. Salvarlo in "C:\Temp" come "source.xlsx" e chiudere il foglio di calcolo.

2

Avviare Excel per aprire una nuova cartella di lavoro. Fare clic sulla scheda "Developer", quindi fare clic su "Visual Basic". Fare clic sul menu "Inserisci" e fare clic su "UserForm1" per aggiungere un nuovo modulo.

3

Fare clic su "ComboBox" nel riquadro "Toolbox" e trascinarlo al form tenendo premuto il pulsante del mouse. Rilasciare il pulsante del mouse per creare un nuovo controllo casella combinata. Aggiungere un nuovo pulsante di comando utilizzando la stessa tecnica.

4

Fare doppio clic su "CommandButton1" per aprire la routine evento click per il pulsante. Iniziare aggiungendo il seguente codice VBA per creare le variabili utilizzate per aprire il foglio di calcolo:

Dim sourceXL As Excel.Application

Dim sourceBook As Excel.Workbook

Dim sourceSheet As Excel.Worksheet5

Aggiungere il codice seguente per aprire il foglio di calcolo "source.xlsx":

Set sourceXL = Excel.Application

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

Set sourceSheet = sourceBook.Sheets(1)6

Digitare il seguente codice per ottenere i valori da "source.xlsx" e aggiungerli alla casella combinata nel Form:

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"). Valore)

7

Testare il programma premendo "F5" e facendo clic sul pulsante di comando per riempire la casella combinata.