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é