Nwlapcug.com


Come aprire i file XLS in un Form in VBA

Come aprire i file XLS in un Form in VBA


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.