April 29
Essere in grado di inserire i dati in una cartella di lavoro renderà la vostra applicazione Visual Basic più dinamico. Spesso si esegue in la necessità di inserire la data di una cartella di lavoro quando si esportano i dati dall'applicazione VB. In VB, è possibile utilizzare la libreria di oggetti di Microsoft Excel per creare una nuova cartella di lavoro di Excel e inserire i dati in esso. È possibile utilizzare la funzione "Ora" per ottenere la data di sistema e inserirlo in Excel utilizzando la proprietà "Range".
1 Avviare Microsoft Visual Basic Express, fare clic su "New Project" dal riquadro sinistro dello schermo del computer, quindi fare clic su "Windows Form." Fai clic su "OK".
2 Fare doppio clic su "Pulsante" per aggiungere un nuovo pulsante. Fare doppio clic su "Button1" per creare un evento click per questo pulsante. Fare clic sul menu "Progetto", fai clic su "Aggiungi riferimento", quindi fare clic sulla scheda "COM". Fare doppio clic su "<numero di versione> Microsoft Excel Object Library" per aggiungerlo come un riferimento.
3 Copiare e incollare il seguente codice per creare le variabili oggetto di Excel verranno utilizzati per creare una nuova cartella di lavoro di Excel:
objXLS fioco come Application = Nuova applicazione
Dim objXLXBks As Workbooks = Nothing
Dim objXLSBk Come cartella di lavoro = Nothing
objXLSShts Dim come fogli = Nothing
Dim objXLSSht Come foglio di lavoro = Nothing
Dim objXLSrng come gamma = Nothing
4 Digitare il seguente codice per aggiungere una nuova cartella di lavoro:
objXLS.Visible = False
objXLS.DisplayAlerts = False
objXLSBk = CType (objXLS.Workbooks.Add (), cartella di lavoro)
5 Aggiungere il seguente codice per aggiungere un nuovo foglio di lavoro:
objXLXBks = objXLS.Workbooks
objXLSSht = CType (objXLXBks (1) .Sheets.Item (1), foglio di lavoro)
objXLSShts = objXLSBk.Worksheets
6 Inserire la data di "A1" in Excel aggiungendo la seguente riga di codice:
objXLSSht.Cells(1, 1) = Now()
7 Salvare la cartella di lavoro Excel digitando il seguente codice:
objXLSSht.SaveAs("C:\ExcelDate.xlsx")
8 Visualizzare una finestra di messaggio quando la cartella di lavoro è stato creato e salvato.
MessageBox.Show("Date has been added to Excel")
Premere F5 per eseguire il programma, poi cliccare su "Button1".