Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come inserire una data in Excel Visual Basic

Essere in grado di inserire i dati in una cartella di lavoro renderà l'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 dal vostro 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" . Istruzioni
1

lancio di Microsoft Visual Basic Express Edition , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , quindi fare clic su " Applicazione Windows Form ". Fare clic su "OK".

2 Fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante . Fare doppio clic su " Button1 " per creare un evento click di questo pulsante. Fare clic sul menu "Progetto" , fai clic su " Aggiungi riferimento ", quindi fare clic sulla scheda "COM" . Fare doppio clic su " Libreria oggetti di Microsoft Excel" per aggiungerlo come riferimento .
3

Copia e incolla il seguente codice per creare le variabili oggetto di Excel si utilizzeranno per creare una nuova cartella di lavoro di Excel :

Dim objXLS Come Application = Nuovi applicativi

Dim objXLXBks come cartelle di lavoro = niente

Dim objXLSBk Come cartella di lavoro = niente

Dim objXLSShts come fogli = Nothing

Dim objXLSSht come manuale = 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 ( ) , Workbook ) economici 5

aggiungere il seguente codice per aggiungere un nuovo foglio di lavoro :

objXLXBks = objXLS.Workbooks

objXLSSht = CType ( . objXLXBks ( 1) Sheets.Item ( 1 ) , fogli di lavoro ) per

objXLSShts = objXLSBk.Worksheets
6

Inserisci la data di "A1" in Excel aggiungendo la seguente riga di codice :

objXLSSht.Cells ( 1 , 1 ) = Now ( ) economici 7

Salvare la cartella di lavoro di Excel , digitare il seguente codice :

objXLSSht.SaveAs ( "C : \\ ExcelDate.xlsx " ) economici 8

Visualizza una finestra di messaggio in cui la cartella di lavoro è stato creato e salvato .

MessageBox.Show (" Data è stata aggiunta in Excel" ) per

Premere F5 per eseguire il programma , quindi fare clic su " Button1 . "

 

software © www.354353.com