actsuriname.org

Quando si creano applicazioni Visual Basic.Net, considerare l'aggiunta di una funzionalità di esportazione in Excel oltre ai report stampati. La funzionalità aggiunta richiede poco codice ei tuoi clienti possono ordinare e analizzare i dati in qualsiasi modo scelgano. Utilizzare la finestra di progettazione moduli in Visual Basic per aggiungere questa funzione.

1

Apri Visual Studio e crea un nuovo progetto Visual Basic. Fare clic su "File", quindi su "Nuovo progetto". Quando viene visualizzata la finestra di dialogo del nuovo progetto, scegli "Visual Basic / Windows" dalla visualizzazione ad albero, fai clic sull'icona "Applicazione Windows Forms", assegna al progetto il nome "ExcelTest", quindi fai clic su "OK". Dopo una breve attesa, apparirà il progettista del modulo.

2

Aggiungere un riferimento al componente ActiveX di Excel. Fai clic su "Progetto" dai menu a discesa, quindi fai clic su "Aggiungi riferimento". Fare clic sulla scheda "COM" e scorrere verso il basso fino a "Microsoft Excel". Potrebbe esserci più di un'istanza di Excel elencata, quindi scegli una versione recente che sia prontamente disponibile sui computer dei clienti.

3

Aggiungi un pulsante al modulo. Fare clic sull'icona Casella degli strumenti per aprire la casella degli strumenti, quindi trascinare un pulsante nel modulo. Fai clic con il pulsante destro del mouse e scegli "Proprietà". Quando viene visualizzato l'elenco delle proprietà, denominare il pulsante "btnToExcel" e modificare la proprietà Text in "To Excel". Ora fai clic sul nuovo pulsante per aprire la finestra del codice.

4

Aggiungi le importazioni della libreria all'inizio del codice del programma come segue:

Importa Microsoft.Office.Interop Importa System.Text Public Class Form1

5

Dichiara i campi privati ​​per gli oggetti Excel:

Private excelApp = New Excel.Application Private excelDoc As Excel.Workbook Private excelSheet As Excel.Worksheet Intervallo privato As Excel.Range

6

Crea il contenuto che andrà nel foglio di calcolo, ad esempio:

Private Sub btnToExcel_Click (sender As System.Object, e As System.EventArgs) Gestisce btnToExcel.Click Dim txt As New StringBuilder Dim i, j As Integer For i = 1 To 20 For j = 1 To 10 txt.Append (i * j ) txt.Append (vbTab) Next txt.AppendLine () Next Clipboard.SetText (txt.ToString) 

Il contenuto inviato al foglio di calcolo in questo esempio utilizza una tabella di moltiplicazione 10 per 20. Tutti i dati vengono aggiunti a uno StringBuilder con colonne separate da caratteri di tabulazione (vbTab) e ogni riga separata da un carattere di fine riga (utilizzando il metodo AppendLine). Dopo che tutto il contenuto viene copiato in StringBuilder, viene inserito negli Appunti. Una volta aperto il foglio di calcolo, il codice incollerà questi dati nel foglio di calcolo.

7

Apri il foglio di calcolo:

excelApp = CreateObject ("Excel.Application") excelApp.Visible = True excelDoc = excelApp.Workbooks.Add () excelSheet = excelDoc.ActiveSheet

Qui, il programma crea un nuovo oggetto applicazione Excel utilizzando il metodo CreateObject, quindi imposta la sua proprietà Visible su True per indicare a Excel di mostrarsi sullo schermo. Quindi crea un nuovo foglio di lavoro e ottiene un handle per la pagina attiva.

8

Incolla i dati nella prima cella del foglio di calcolo:

 intervallo = excelSheet.Cells (1, 1) excelSheet.Paste (intervallo) End Sub 

Fine classe

Ottieni l'intervallo della prima cella, quindi incolla il contenuto degli appunti nella cella. Le schede e gli avanzamenti riga separano le colonne e le righe.

9

Esegui il programma. Fare clic su "F5" per avviare il programma, quindi fare clic sul pulsante "In Excel" per aprire e visualizzare il foglio di calcolo.