Come inserire una data in Excel Visual Basic

April 29

Come inserire una data in Excel Visual Basic


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".

istruzione

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".


Articoli Correlati