Microsoft Office Excel è un'applicazione di foglio di calcolo comunemente utilizzata per analizzare grandi quantità di dati. Microsoft Visual Basic for Applications (VBA) è un linguaggio di programmazione utilizzato per automatizzare operazioni di routine nelle applicazioni di Microsoft Office. È possibile creare interfacce utente grafiche (GUI) in Excel per fornire maggiore flessibilità all'utente. In pochi passi, è possibile scrivere codice VBA per aprire una cartella di lavoro di Excel esistente e visualizzare il contenuto tramite un controllo casella di riepilogo.
Istruzioni
1
Avviare Microsoft Office Excel e digitare il comando seguente su "Sheet1".
Tipo "Field1" in "A1", "Campo2" in "B1" e "Campo3" in "C1"
Digitare "1" in "A2", "2.1" in "B2" e "3.5" in "C2"
Salvare la cartella di lavoro "C:\" come "myExcelData.xls."
2
Avviare Microsoft Office Excel, selezionare la scheda "Sviluppo" quindi fare clic su "Visual Basic". Selezionare dal menu "Inserisci" e fare clic su "Form."
Fare clic su controllo "ListBox" nella finestra "Strumenti" e cliccare ovunque su "UserForm1" per creare una casella di riepilogo. Fare clic su "CommandButton" e cliccare in qualsiasi punto su "UserForm1" per creare un nuovo pulsante.
3
Fare clic destro "ListBox1" sul modulo e selezionare "Proprietà".
Tipo 3 accanto al "ColumnCount."
4
Fare doppio clic su "CommandButton1" per aprire Microsoft Visual Basic.
Copiare e incollare il codice riportato di seguito il nuovo modulo.
5
Private Sub CommandButton1_Click)
Dim XLApp As Excel. Application
Dim XLWbook come cartella di lavoro
Set XLApp = New Excel. Application
Impostare XLWbook = XLApp.Workbooks.Open("C:\myExcelData.xls")
XLWbook.Sheets("Sheet1"). Selezionare
XLWbook.Sheets("Sheet1"). Range("a1"). Selezionare
Me.ListBox1.AddItem
Me.ListBox1.List (0, 0) = XLWbook.Sheets("Sheet1"). Range("a1"). Valore
XLWbook.Sheets("Sheet1"). Range("B1"). Selezionare
Me.ListBox1.AddItem
Me.ListBox1.List (0, 1) = XLWbook.Sheets("Sheet1"). Range("B1"). Valore
XLWbook.Sheets("Sheet1"). Range("C1"). Selezionare
Me.ListBox1.AddItem
Me.ListBox1.List (0, 2) = XLWbook.Sheets("Sheet1"). Range("C1"). Valore
XLWbook.Sheets("Sheet1"). Range("a2"). Selezionare
Me.ListBox1.AddItem
Me.ListBox1.List (1, 0) = XLWbook.Sheets("Sheet1"). Range("a2"). Valore
XLWbook.Sheets("Sheet1"). Range("B2"). Selezionare
Me.ListBox1.AddItem
Me.ListBox1.List (1, 1) = XLWbook.Sheets("Sheet1"). Range("B2"). Valore
XLWbook.Sheets("Sheet1"). Range("C2"). Selezionare
Me.ListBox1.AddItem
Me.ListBox1.List (1, 2) = XLWbook.Sheets("Sheet1"). Range("C2"). Valore
XLWbook.Close
End Sub
6
Premere "F5" e clicca "CommandButton1" per aprire il tuo "myExcelData.xls" e visualizzarne il contenuto nella casella di riepilogo.