Tallenna tiedot Excel-laskentataulukkoon VBA: n avulla.
Excel-laskentataulukon luominen Accessissa voi säästää aikaa, kun sinun on vietävä tiedot Excel-laskentataulukkoon. Visual Basic for Applications (VBA) voi olla tehokas työkalu automatisoida prosesseja Microsoft Office -sovelluksissa. VBA: lla voit käyttää Microsoft Excel Application -objektia Excel-laskentataulukon luomiseen Accessista. Excel-sovellusobjekti on sisääntulopiste muuhun objektimalliin. Vie tiedot nopeammin Exceliin tallentamalla tiedot suoraan Excel-laskentataulukkoon.
Vaihe 1
Käynnistä Microsoft Office Access, napsauta "Tyhjä tietokanta" ja napsauta "Luo" -painiketta luodaksesi tyhjä tietokanta. Napsauta "Tietokantatyökalut" -välilehteä ja napsauta "Visual Basic" avataksesi Microsoft Visual Basic -ikkunan. Napsauta "Lisää" -valikkoa ja napsauta "Moduuli" lisätäksesi uuden koodimoduulin.
Päivän video
Vaihe 2
Napsauta "Työkalut"-valikkoa ja napsauta "References". Vieritä alas ja valitse Microsoft Excel
Vaihe 3
Aloita kirjoittamalla seuraava VBA-koodi luodaksesi uuden alimenettelyn:
Yksityinen ali createSpreadSheet()
Vaihe 4
Jatka kirjoittamalla seuraava koodi luodaksesi kolme uutta muuttujaobjektia, joita käytetään Excel-laskentataulukon luomiseen:
Himmennä uusiExcelApp Exceliksi. Sovellus. Himmeä uusiWbk kuten Excel. Työkirja. Dim newWkSheet kuten Excel. Työarkki
Vaihe 5
Lisää seuraava koodi käynnistääksesi Excel ja näyttääksesi sen:
Aseta uusiExcelApp = Excel. Sovellus
uusi ExcelApp. Näkyvä = totta
Vaihe 6
Kirjoita seuraava lisätäksesi uuden työkirjan ja laskentataulukon:
Aseta newWbk = newExcelApp. Työkirjat. Lisätä
Aseta newWkSheet = newWbk. Tehtävätaulukot (1)
Vaihe 7
Lisää tietoja uuteen laskentataulukkoon kirjoittamalla seuraava:
uusiWkSheet. Solut (1, 1). Arvo = "Uusi laskentataulukko..."
Vaihe 8
Tallenna luotu uusi työkirja kirjoittamalla seuraava koodi:
uusiWkSheet. Tallenna nimellä ("C:\myworksheet.xlsx")Vaihe 9
Muokkaa polkua edellisessä vaiheessa ja kirjoita haluamasi polku ja tiedostonimi.
Vaihe 10
Lopeta aliprosessi kirjoittamalla seuraava:
Lopeta ala
Vaihe 11
Paina "F5" suorittaaksesi menettelyn ja luodaksesi uuden Excel-laskentataulukon.
