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.
Programmazione © www.354353.com