Weten hoe u een Microsoft Excel- spreadsheet van Microsoft Access te openen en het invoegen van een nieuwe kolom aan de spreadsheet met behulp van Visual Basic for Applications ( VBA ) kunt u uw Access-toepassing dynamischer te maken . Access is een relationele database management systeem vaak gebruikt voor kleinere databases . Excel is een spreadsheetprogramma dat krachtige tools biedt om gegevens te analyseren . VBA is een populaire programmeertaal gebruikt om taken anders handmatig gedaan automatiseren . In een paar stappen kunt u VBA-code schrijven in Access om een Excel-werkmap openen en plaats een nieuwe column te Sheet1 . Instructies
1 Start Microsoft Office Access 2007 en selecteer " Lege database " en klik op "Create . " Klik op " Database Tools" en selecteer vervolgens " Visual Basic . " Klik op het veld " Insert " en selecteer " Module . "
Copy 2 en plak de volgende code in uw module . Deze code zal een werkblad opent , plaatst u een nieuwe kolom aan de rechterkant van " Kolom C " en voeg " Deze kolom is ingevoegd van Access . " Private Sub addExcelColumn (
) Dim xlApp
als Excel.Application Dim XLBook
Zoals Excel.Workbook Dim XLSheet
Zoals Excel.Worksheet Set XLBook = Workbooks.Add
( Template : = " C : \\ Book1.xls " ) op Stel xlApp = XLBook.Parent
Set XLSheet = XLBook.Worksheets ( " Blad1 " ) XLBook.Windows
( 1 ) . Visible = True
XLApp.Visible = True
Met XLSheet
Columns . . ( " C : C " ) Kies Selection.Insert Shift
: = xlToRight
. Range ( " C1 " ) . Selecteer Selection.Value =
" Deze kolom werd van Access ingebracht " . Range
( " D3 " ) . Selecteer
end With end Sub
3
Bewerk de volgende regel code en typ het pad naar uw werkblad :
Set XLBook = Workbooks.Add ( template : = " C : \\ Book1.xls " ) op Twitter Run je subroutine door op
" F5 . " |
