Come aprire un foglio di calcolo Excel da Access VBA Inserisci colonna

June 5

Come aprire un foglio di calcolo Excel da Access VBA Inserisci colonna


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.

istruzione

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