Come trasferire i dati da una vista ad albero del nodo di Excel

Conoscenza Informatica

Home Hardware Networking Programmazione Software Domanda Sistemi

* Conoscenza Informatica >> software >> Microsoft Access >> .

Come trasferire i dati da una vista ad albero del nodo di Excel

Essere in grado di esportare le informazioni di visualizzazione ad albero del nodo di Excel può rendere l'applicazione più dinamico . In Visual Basic , è possibile ottenere il testo da un nodo selezionato in un controllo visualizzazione struttura utilizzando la proprietà " SelectedNode " . Questa proprietà rappresenta il nodo selezionato nella vista ad albero che può essere utilizzato per ottenere i dati del nodo . Utilizzare la Libreria oggetti di Microsoft Excel per creare una nuova cartella di lavoro e di esportare i dati in uno dei suoi fogli di lavoro . Istruzioni
1

lancio di Microsoft Visual Basic Express e selezionare " Nuovo progetto ... " dal riquadro sinistro dello schermo . Fare clic su " Visual Basic " in " Modelli installati " e fare doppio clic su " Applicazione Windows Form ".
2

Fare clic sul riquadro "Toolbox" e fare doppio clic su " TreeView " per aggiungere un nuovo " TreeView " il controllo al form. Fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante per trasferire i dati dal controllo " TreeView " .

3 Fare clic sul menu "Progetto" e selezionare "Proprietà . " Fare clic su "Riferimenti ", quindi selezionare " Aggiungi ". Selezionare " COM " e clicca su " Libreria oggetti di Microsoft Excel . " Fare clic su " OK ".
4

Fare doppio clic sul form per creare un evento di caricamento form e aggiungere il seguente codice per aggiungere tre nodi della struttura ad albero
5

doppio clic su " Button1 " per creare un evento click del pulsante e aggiungere il seguente codice per creare un nuovo file di Excel e aggiungere al testo nodo selezionato a " A1 " :

Dim xlTV Come Nuovo Excel.Application

xlTV.Visible = True

Dim xlTVwks Come Excel.Workbooks = xlTV.Workbooks

Dim xlTVwk Come Excel.Workbook = xlTVwks.Add

Dim xlTVshts Come Excel.Sheets = xlTVwk.Worksheets

Dim xlTVsht Come Excel.Worksheet = xlTVshts ( " Foglio1 " ) per

xlTVsht.Range ( "A1" ) . Valore = TreeView1.SelectedNode.Text.ToString

xlTVsht.SaveAs ( "C : \\ dataFromTreeView.xlsx " ) economici

6 Premere il tasto " F5 " per eseguire il programma e selezionare un nodo in il controllo della visualizzazione struttura . Fare clic su " Button1 " per creare il file di Excel .