Aprire Excel e aprire la finestra di sviluppo VBA premendo " Alt "+" F11 ".
2
doppio clic sulla " voce " del riquadro " Progetto Questa cartella di lavoro "per visualizzare un riquadro per l'immissione di un nuovo codice programma .
3
Incolla il programma che appare di seguito nel nuovo riquadro . Questo programma definisce i valori della proprietà Cells dell'oggetto ActiveSheet . La proprietà Cells rappresenta tutte le celle del foglio di lavoro corrente . Le dichiarazioni "per" e "Avanti" del modulo programma una struttura ad anello che riempie una colonna del foglio di lavoro corrente con i dati.
FillColumns Public Sub ()
Dim
col
Per col = 1 To 10
ActiveSheet.Cells ( col, 1 ) = " someValue "
Avanti col
End Sub
4
Fare clic su una dichiarazione del programma FillColumns , quindi premere "F5" per eseguire questo programma .
5
Torna a Excel premendo il tasto " Alt " + " F11 ". Il foglio di lavoro corrente viene visualizzato " somevalue " per le prime 10 righe della prima colonna del foglio di lavoro .
Riempire le colonne con i dati di accesso
6
Aprire Microsoft Access , quindi creare un nuova tabella di database facendo clic voce del menu " Crea" "Tabella" .
7
Tipo " Campo1 " nella cella accanto alla cella che visualizza " ID ", per creare una colonna chiamata " Campo1 " nella nuova tabella . Il tuo macro VBA riempirà questo campo con i dati.
8
Premere " Controllo" + " S ", " Tabella1 " tipo per il nome della tabella , quindi fare clic su " OK" per salvare la nuova tabella .
Pagina 9
Inserire l' ambiente VBA premendo il tasto " Alt " + " F11 ". Fai una nuova finestra del codice sorgente cliccando il comando " Module" del menu "Inserisci" .
10
Incollare il seguente programma colonna di riempimento nella nuova finestra del codice sorgente . Questo programma invita Modifica dell'oggetto Recordset e aggiornare i metodi per riempire Campo1 di Tabella1 con i dati .
FillColumns Public Sub ()
Dim dbs Come DAO.Database
Dim recset come DAO.Recordset
Dim i As Integer
Set dbs = CurrentDb
recset = dbs.OpenRecordset ( " Tabella1 " ) per
For i = 1 A 10
recset.AddNew
recset ! Campo1 = " Il Mago di Oz "
recset.Update
Next i
End Sub
11
Avviare il programma facendo clic su una delle sue affermazioni e premendo il tasto " F5 ". Premere il tasto " Alt " + " F11 " per tornare ad Access , quindi fare doppio clic sulla voce " Tabella 1 " del pannello di navigazione . Tabella 1 viene visualizzato sulla griglia e visualizzare una colonna ( " campo1 " ) che la macro pieno di dati .
Programmazione © www.354353.com