Come ottenere un valore da un foglio di lavoro che utilizza VB

January 11

Come ottenere un valore da un foglio di lavoro che utilizza VB


Ottenere un valore da un foglio di lavoro di Excel utilizzando Visual Basic può rendere l'applicazione più flessibile leggendo il foglio di lavoro dinamico invece di avere all'utente di inserire valori manualmente. Questo compito può essere facilmente realizzato utilizzando la libreria di oggetti di Microsoft Excel. I programmatori spesso incontrano difficoltà a leggere i fogli di lavoro, perché si dimenticano di definire la cella del foglio come un tipo di dati "Excel.Range". Una volta fatto questo si può facilmente leggere i dati della cella utilizzando la proprietà "Value".

istruzione

1 Avviare Microsoft Visual Studio, fare clic su "New Project" dal riquadro sinistro dello schermo del computer, ed espandere "Visual Basic" sotto "Modelli installati." Fai clic su "Windows" e fare doppio clic su "Applicazione Console" dal centro della finestra di dialogo per creare un nuovo progetto di console.

2 Fare clic sul menu "Progetto" e selezionare "<projectname> Proprietà". Fare clic su "Riferimenti", quindi selezionare "Aggiungi". Selezionare "COM" e fare clic su "<numero di versione> Microsoft Excel Object Library". Fai clic su "OK".

3 Digitare il seguente codice nella prima riga del modulo per dichiarare lo spazio dei nomi di Microsoft Office:

Le importazioni Microsoft.Office.Interop

4 Digitare la seguente per creare le variabili oggetto e definire il percorso e il foglio di lavoro che si vuole usare:

Dim valueRead As String

Dim xlsxApp As Excel.Application = New Excel.Application

xlsxApp.DisplayAlerts = False

xlsxApp.Workbooks.Open ( "C: \ ExcelWorksheet.xlsx")

5 Modificare il percorso e il nome del foglio di lavoro nel passaggio precedente e digitare il percorso e il nome del foglio di lavoro. Aggiungere il seguente codice per utilizzare "Sheet1", come il foglio di leggere:

Dim xlsxSht As Excel.Worksheet = xlsxApp.Sheets(1)

6 Definire la cella che si desidera leggere e leggere il valore:

Dim xlsxRange As Excel.Range = xlsxSht.Cells(1, 1)

valueRead = xlsxRange.Value

xlsxApp = Nothing

7 Visualizzare il valore letto attraverso la finestra della console:

Console.WriteLine(valueRead)

Console.ReadLine ()

8 Premere il tasto "F5" per eseguire il programma.