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

July 15

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