Avviare Microsoft Visual Basic Express , fare clic su Nuovo progetto nel riquadro di sinistra dello schermo e selezionare Applicazione Windows . Fare clic su "OK".
2
doppio clic su TextBox nel riquadro Casella degli strumenti per aggiungere un nuovo controllo casella di testo alla maschera . Aggiungere una seconda casella di testo e un pulsante con la stessa tecnica .
3 Fare clic sul menu Progetto e selezionare "Proprietà doppio clic su Button1 per aprire l'evento click del pulsante . Digitare il seguente codice nella prima riga del modulo per dichiarare lo spazio dei nomi di Microsoft Office : Importazioni Microsoft.Office.Interop Copia e incolla il seguente codice per creare un nuova cartella di lavoro di Excel e aggiungere i valori delle caselle di testo al foglio di lavoro : Dim xlApp come nuovo Excel.Application xlApp.Visible = True Dim XLwks As Excel.Workbooks = XLapp.Workbooks Dim XLwk Come Excel.Workbook = XLwks.Add Dim XLshts Come Excel.Sheets = XLwk.Worksheets Dim XLsht Come Excel.Worksheet XLshts = ( " Foglio1 " ) per XLsht.Range ( "A1") . Valore = Me.TextBox1.Text.ToString XLsht.Range ( "A2" ) . Valore = Me.TextBox2.Text . ToString XLsht.SaveAs ( "C : \\ excelBk.xlsx " ) economici 6 Premere il tasto " F5 " per eseguire il programma e inserire il testo nella prima casella di testo . Immettere il testo nella seconda casella di testo . Premere il tasto " Button1 " per passare le informazioni nelle caselle di testo alla cartella di lavoro di Excel salvati in C : \\. ExcelBk.xlsx
4
5
Informazioni correlate
software © www.354353.com