Come aprire i file XLS in un form in VBA_Nozioni di base di Visual Programming

Conoscenza Informatica

Home Hardware Networking Programmazione Software Domanda Sistemi

* Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come aprire i file XLS in un form in VBA

Microsoft Office Excel è un foglio di calcolo comunemente usato per analizzare grandi quantità di dati . Microsoft Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in applicazioni Microsoft Office. È possibile creare interfacce grafiche utente ( GUI) in Excel per fornire maggiore flessibilità per l'utente. In pochi passi , è possibile scrivere codice VBA per aprire una cartella di lavoro di Excel esistente e di visualizzarne il contenuto tramite un controllo casella di riepilogo . Istruzioni
1

Avviare Microsoft Office Excel e digitare il seguente su " Foglio1 ".

Tipo " Campo1 " a " A1 " , " Campo2 " in " B1 " e " Field3 "in" C1 "

Tipo " 1 " a " A2 " , " 2.1 " in" B2 " e " 3.5 " in" C2 "

Salvare la cartella di lavoro in" C: \\ " come" myExcelData.xls . "
2

Avviare Microsoft Office Excel , selezionare la " scheda " quindi su " Sviluppatore Visual Basic . " Selezionare il menu "Inserisci" e fare clic su " modulo utente. "

Clicca controllo " ListBox " nella finestra " Strumenti " e sinistro del mouse in qualsiasi punto " UserForm1 " per creare una casella di riepilogo . Fare clic su " CommandButton " e sinistro del mouse in qualsiasi punto " UserForm1 " per creare un nuovo pulsante .
3

Right-Click " ListBox1 " sul modulo e selezionare " Proprietà".

Tipo 3 accanto a " Numero colonne ".
4

doppio clic su " CommandButton1 " per aprire Microsoft Visual Basic .

Copia e incolla il codice sottostante nel tuo nuovo modulo .
5

private Sub CommandButton1_Click ( ) per

Dim xlApp Come Excel.Application

Dim XLWbook Come Workbook

xlApp = New Excel.Application

XLWbook = 0 ) = 1 ) = 2 ) = 0 ) = 1 ) = 2 ) = XLWbook.Sheets ( " Foglio1 " ) . Range (" C2" ) . Valore

XLWbook.Close

End Sub
6

Premere " F5 " e fare clic su " CommandButton1 "per aprire le " myExcelData.xls " e visualizzarne il contenuto nella casella di riepilogo.