Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Access 2007 a zvoľte " Prázdna databáza " kliknite na tlačidlo " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " . Kliknite na " Vložiť " poľa a zvoľte " modul " .
2
Skopírujte a vložte nasledujúci kód do modulu . Tento kód sa otvorí list , vložiť nový stĺpec napravo od stĺpca " C " a vložiť " Tento stĺpec bol vložený z programu Access . "
Private Sub addExcelColumn ( )
Dim oExcel As Excel.Application
Dim XLBook Ako Excel.Workbook
Dim XLSheet Ako Excel.Worksheet
Set XLBook = Workbooks.Add ( Šablóna : = " C : \\ Book1.xls " )
Set oExcel = XLBook.Parent
Set XLSheet = XLBook.Worksheets ( " Hárok1 " )
XLBook.Windows ( 1 ) . Visible = TRUE
.
XLApp.Visible = TRUE
S XLSheet
stĺpca . ( " C : C " ) Vyberte klipart
Selection.Insert Shift : = xlToRight
. Range ( " C1 " ) . Vyberte
Selection.Value = " Tento stĺpec bol vložený z programu Access "
. Range ( " D3 " ) . Vyberte
end With end Sub
3
upravte nasledujúci riadok kódu a zadajte cestu k listu :
Set XLBook = Workbooks.Add ( šablóna : = " C : \\ Book1.xls " . " F5 " )
Spustiť podprogram stlačením
Copyright © počítačové znalosti Všetky práva vyhradené