Saglabājiet datus Excel izklājlapā, izmantojot VBA.
Excel izklājlapas izveide programmā Access var ietaupīt laiku, kad jums ir nepieciešams eksportēt datus uz Excel izklājlapu. Visual Basic for Applications (VBA) var būt spēcīgs rīks procesu automatizēšanai Microsoft Office lietojumprogrammās. Izmantojot VBA, varat izmantot Microsoft Excel lietojumprogrammas objektu, lai programmā Access izveidotu Excel izklājlapu. Programmas Excel objekts ir ieejas punkts pārējā objekta modelī. Ātrāk eksportējiet datus programmā Excel, saglabājot datus tieši Excel izklājlapā.
1. darbība
Palaidiet Microsoft Office Access, noklikšķiniet uz "Tukša datu bāze" un noklikšķiniet uz pogas "Izveidot", lai izveidotu tukšu datu bāzi. Noklikšķiniet uz cilnes "Datubāzes rīki" un noklikšķiniet uz "Visual Basic", lai atvērtu Microsoft Visual Basic logu. Noklikšķiniet uz izvēlnes "Ievietot" un noklikšķiniet uz "Modulis", lai ievietotu jaunu koda moduli.
Dienas video
2. darbība
Noklikšķiniet uz izvēlnes "Rīki" un noklikšķiniet uz "Atsauces". Ritiniet uz leju un atzīmējiet izvēles rūtiņu blakus "Microsoft Excel
3. darbība
Sāciet, ierakstot šādu VBA kodu, lai izveidotu jaunu apakšprocedūru:
Privāts apakšējais CreateSpreadSheet()
4. darbība
Turpiniet, ierakstot šo kodu, lai izveidotu trīs jaunus mainīgo objektus, kas tiks izmantoti Excel izklājlapas izveidei:
Dim newExcelApp kā Excel. Pieteikums. Dim newWbk kā Excel. Darba burtnīca. Dim newWkSheet kā Excel. Darba lapa
5. darbība
Pievienojiet šādu kodu, lai palaistu programmu Excel un parādītu to:
Iestatīt newExcelApp = Excel. Pieteikums
jauna Excel lietotne. Redzams = patiess
6. darbība
Ierakstiet šo, lai pievienotu jaunu darbgrāmatu un darblapu:
Iestatiet newWbk = newExcelApp. Darba burtnīcas. Pievienot
Iestatiet newWkSheet = newWbk. Darba lapas (1)
7. darbība
Pievienojiet datus jaunajai izklājlapai, ierakstot šo:
newWkSheet. Šūnas (1, 1).Vērtība = "Jauna darblapa..."
8. darbība
Saglabājiet jauno darbgrāmatu, kas izveidota, ierakstot šādu kodu:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")9. darbība
Rediģējiet ceļu iepriekšējā darbībā un ierakstiet izvēlēto ceļu un faila nosaukumu.
10. darbība
Lai beigtu apakšprocedūru, ierakstiet šo:
Beigt apakš
11. darbība
Nospiediet "F5", lai palaistu procedūru un izveidotu jaunu Excel izklājlapu.
