Avviare Microsoft Office Access 2007 e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare "Modulo ".
2
Copia e incolla il seguente codice nel modulo . Questo codice apre un foglio di lavoro , inserire una nuova colonna a destra della "Colonna C " e inserire "Questa colonna è stata inserita da Access . "
Private Sub addExcelColumn ( ) per
Dim xlApp come Excel.Application
Dim XLBook Come Excel.Workbook
Dim xlSheet Come Excel.Worksheet
XLBook = Workbooks.Add ( Template : = " C: \\ Book1.xls " ) per
xlApp = XLBook.Parent
xlSheet = XLBook.Worksheets ( " Foglio1 " )
XLBook.Windows ( 1) . Visible = True
xlApp.Visible = True
xlSheet
Colonne . . ( "C : C " ) Selezionare
Selection.Insert Maiusc : = 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 :
XLBook Workbooks.Add = ( Template : = " C : \\ Book1.xls " ) per
Eseguire il sottoprogramma premendo
" F5 ".
software © www.354353.com