Come importare dati da un foglio Excel in un modulo creato in Excel

Form in Microsoft Office Excel possono aiutare i tuoi dati presenti in modo chiaro e diretto , invece di fare riferimento a un file sul disco rigido . Il modo più veloce per importare i dati in una forma da un foglio di calcolo è quello di utilizzare Visual Basic, Applications Edition (VBA ) . VBA è un linguaggio di programmazione per computer utilizzato per automatizzare le attività manuali nelle applicazioni di Microsoft Office , ad esempio Excel . Rendere l'applicazione più user-friendly per la visualizzazione dei dati di fogli di calcolo attraverso forme . Istruzioni
1

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

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

Clicca " ComboBox " nel riquadro "Toolbox" e trascinarla alla tua forma mentre si tiene il mouse pulsante . Rilasciare il pulsante del mouse per creare un nuovo controllo casella combinata . Aggiungere un nuovo pulsante di comando con la stessa tecnica .
4

doppio clic su " CommandButton1 " per avviare la procedura click- evento per il pulsante . Iniziate aggiungendo il seguente codice VBA per creare le variabili utilizzate per aprire il foglio di calcolo :

Dim sourceXL Come Excel.Application

Dim Sourcebook Come Excel.Workbook

Dim sourceSheet come Excel.Worksheet
5

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

sourceXL = Excel.Application

Sourcebook = sourceXL . Workbooks.Open ( "C : \\ Temp \\ source.xlsx " ) per

sourceSheet = sourceBook.Sheets ( 1 ) economici 6

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

sourceSheet.Range " . Selezionare

Me.ComboBox1.AddItem ( sourceSheet.Range ( ( " A1 ) " A1 " ) . Valore ) per

sourceSheet.Range ( "B1" ) . Seleziona

Me.ComboBox1.AddItem ( sourceSheet.Range ( "B1" ) . Valore ) per