June 5
Sapere come aprire un foglio di calcolo di Microsoft Excel da Microsoft Access e l'inserimento di una nuova colonna per il foglio di calcolo utilizzando Visual Basic, Applications Edition (VBA) in grado di rendere l'applicazione di accesso più dinamico. Access è un sistema di gestione di database relazionali comunemente usato per i database più piccoli. Excel è un foglio di calcolo che offre potenti strumenti per analizzare i dati. VBA è un linguaggio di programmazione popolare usato per automatizzare le operazioni altrimenti fatto manualmente. In pochi passi è possibile scrivere codice VBA in Access per aprire una cartella di lavoro di Excel e inserire una nuova colonna a Sheet1.
1 Avviare Microsoft Office Access 2007 e selezionare "Database vuoto" quindi fare clic su "Crea". Fai clic su "Strumenti di database", quindi selezionare "Visual Basic". Fare clic su "inserire" e selezionare "Modulo".
2 Copia e incolla il seguente codice nel modulo. Questo codice si aprirà un foglio di lavoro, inserire una nuova colonna a destra di "Colonna C" e inserire "Questa colonna è stata inserita da Access."
Private Sub addExcelColumn ()
Dim XLApp As Excel.Application
Dim XLBook Come Excel.Workbook
Dim xlSheet Come Excel.Worksheet
Set XLBook = Workbooks.Add (Template: = "C: \ Book1.xls")
Set xlApp = XLBook.Parent
Set xlSheet = XLBook.Worksheets ( "Sheet1")
XLBook.Windows (1) .Visible = True
XlApp.Visible = True
con xlSheet
.COLONNE ( "C: C") Select.
Selection.Insert SHIFT: = xlToRight
.Range ( "C1"). Selezionare
Selection.Value = "Questa colonna è stata inserita da Access"
.Range ( "D3"). Selezionare
End With
End Sub
3 Modificare la seguente riga di codice e digitare il percorso del foglio di lavoro:
Set XLBook = Workbooks.Add (Template: = "C: \ Book1.xls")
Eseguire la subroutine premendo il tasto "F5".